Ms Access

[วัชรากรณ์ ศักดิ์บูรณะ]

ms access เรียงลำดับภาษาไทยไม่ถูกต้อง
-----------------

ลำดับการเรียงจะขึ้นกับ Sort Order ที่ได้กำหนดไว้ล่วงหน้า (กำหนดใน Options - General - New Database Sort Order) ตอนที่ถูกสร้างฐานข้อมูลหรือตอนถูก Compact and Repair ครั้งหลังสุด
ดังนั้น ถ้าตอนนี้วินโดว์หรือ New Database Sort Order กำหนด เปลี่ยนจาก legacy เป็นไทยแล้ว ก็ให้ Compact and Repair ฐานข้อมูลอีกทีครับ

[JioHome Admin]

การดึงหลายฟิลด์ในโดเมน
dlookup("ชื่อตัว & "" "" & [ชื่อสกุล]","Tเจ้าหน้าที่","[รหัสผู้รับ]="&dlookup("wlog","TSettings"))

ฟิลด์เดียว
=DLookUp("[ProductNameTh]","T Shopee","[ProductCode]=" & "'ง'")

[JioHome Admin]

ตรวจว่า Table มี Field นี้หรือไม่ ถ้ามีให้ค่าเป็นจริง 1 ถ้าไม่มี ให้ค่าไม่จริง 0
สร้าง Fn ไว้ใช้งานก่อน
---
Function FieldExists(ByVal Table As String, ByVal Field As String) As Boolean
    On Error Resume Next
    FieldExists = (DCount(Field, Table) >= 0)
End Function

แล้วจึงไปใช้งาน
เช่น
If FieldExists("Order S", "[เหตุผลในการยกเลิกคำสั่งซื้อ]") Then
DoCmd.RunSQL "INSERT INTO [T Order Shopee] SELECT [Order S].* FROM [Order S] WHERE ((([Order S].[*หมายเลขติดตามพัสดุ])<>'')) OR ((([Order S].[เหตุผลในการยกเลิกคำสั่งซื้อ])=''));"
Else
DoCmd.RunSQL "INSERT INTO [T Order Shopee] SELECT [Order S].* FROM [Order S] WHERE ((([Order S].[*หมายเลขติดตามพัสดุ])<>''));"
End If