เหมือนต้องสร้างคิวรี่มา Format ก่อนเช่น
คิวรี่แรกชื่อ Qry_DBO_Panasonic
SELECT Format([Indate],"dd/mm/yyyy") AS SIndate, DBO_Panasonic.Quanlity
FROM DBO_Panasonic;

เนื่องจาก Now() จะรวมทั้งวันที่และเวลา ไว้ด้วยกัน แต่ Date() จะมีเฉพาะวันที่ปัจจุบัน
ถ้าจะเทียบกันต้องให้เหลือเฉพาะวันที่ ใน format แบบเดียวกัน

ที่นี้ก็ใช้ Dsum ได้แล้ว เช่น
=DSum("Quanlity","Qry_DBO_Panasonic","SinDate ='" & CStr(Format(Date(),"dd/mm/yyyy")) & "'")

1.ลองกระชับฐานข้อมูลดูซักหน่อย (compact and repair)
2.เช็คการอ้างถึงคอนโทรลอื่นว่าถูกต้องหรือเปล่า (ลองนำการอ้างถึงมาดูหน่อยครับ)
  บางกรณี มีการใช้ชื่อ ฟิลล์กับชื่อคอนโทรลเหมือนกันเช่น
  ฟิลล์ชื่อ Status  คอนโทรลของฟิลล์ก็ชื่อ Status จึงควรเปลี่ยนเป็น txtStatus เพื่อไม่ให้เหมือนกันเป็นต้น
3.เช็คอ้างถึงฟังก์ชั่น(ถ้ามี) ว่าถูกต้องหรือเปล่า

ใช้ IIF ในการเช็คเงื่อนไขครับเช่น
ที่ฟิลล์ที่ต้องการกรอง

S: IIf(IsNull([SOI]),Null,SOISORT([SOI]))

ถ้า SOI เป็นค่าว่าง ก็ให้ = Null
ถ้าไม่ว่างก็ให้ใช้การกรอง

SQL ของคิวรี่นั้นก็คือ
SELECT Mytable.ID, Mytable.SOI
FROM Mytable
ORDER BY IIf(IsNull([SOI]),Null,SOISORT([SOI]));

ถ้าไม่อยากนำ บุคคลไม่มีชื่อซอยมาแสดงก็ใส่ SQL ว่า
SELECT Mytable.ID, Mytable.SOI
FROM Mytable
WHERE ((Not (Mytable.SOI) Is Null))
ORDER BY IIf(IsNull([SOI]),Null,SOISORT([SOI]));


OShiftID ในตาราง T_OT ชนิดข้อมูลเป็นแบบไหนครับ
ShiftID ในตาราง T_Shift ชนิดข้อมูลเป็นแบบไหน

สามารถ Remote ไปเช็คได้หรือไม่

ท่านอาจารย์ครับลองทำแล้วไปไม่รอด รบกวนขอตัวอย่างครับ

ลองดูตัวอย่างที่แนบมานะครับ สามารถนำไปใช้กับการเรียงลำดับที่มีตัวเลขผสมกับตัวอักษรได้หลากหลายครับ
ผมค้นหาข้อมูลจากเว็บ
เครดิต https://www.access-programmers.co.uk/

excel  จะได้ค่า stdev = 0.00057735

ใน excel ก็ได้เท่านี้ครับ
ใน access ได้เท่ากันครับ

โค้ดที่ทดสอบ ผมใช้ val ด้วย

SELECT StDev(Val([Numb])) AS StDev
FROM Mytable;

ส่งตัวปรับแก้ไปให้แล้วครับ ลองทดสอบดู

ทำตัวอย่าง ข้อมูลมาครับ เดี่ยวผมเช็คและบอกสาเหตุให้
ส่งมาทางกล่องข้อความได้เลย

มันอาจจะเป็นได้หลายอย่างเช่นการกำหนดใส่ชื่อ ฟิลล์หรือตาราง ผิด ก็ขึ้น error ครับ

ทำได้ 2 แบบด้วยกัน
แบบที่ 1
สมมุติตารางชื่อ Mytable
Field ไอดี ชื่อ ID
Field วันที่ ชื่อ Mydate

คิวรี่กำหนดดังนี้
SELECT Mytable.ID, IIf(Month([Mydate])=Month(Date()) And Year(Date())=Year([Mydate]),1,0) AS CheckMonth
FROM Mytable;
กำหนดชื่อคิวรี่ชื่อ QryCheckMonth
คิวรี่ด้านบน ท่านจะได้ข้อมูล ที่ถ้าหากปีเป็นปีปัจจุบัน และเดือนเป็นเดือนปัจจุบัน จะมีค่าเท่ากับ 1 ส่วนเดือนอื่นๆ ปีอื่นๆจะเท่ากับ 0

ต่อไปเขียนโค้ดไว้เรียกใช้เงื่อนไขในการเช็ค
Private Sub CheckAllowEdits()
Dim MonthCheck As String
MonthCheck = DLookup("CheckMonth", "QryCheckMonth", "ID =" & Me.ID & "")
If MonthCheck = 0 Then
Me.AllowEdits = False
Me.Undo
Else
Me.AllowEdits = True
End If
End Sub

ต่อไปเวลาจะนำโค้ดไปใช้ ก็ใส่ CheckAllowEdits ได้เลยครับ
อาจจะใช้ในเงื่อนไข หลังจากการค้นหาข้อมูลมาแสดงที่ฟอร์ม แล้วเช็คระบบการแก้ไข
หรือ ใช้ในปุ่มแก้ไขข้อมูลได้เลย เมื่อ User กดถ้าเ็นเดือนอื่นๆ มันจะ Undo ข้อมูลกลับทันทีและจะไม่สามารถกดพิมพ์เพิ่มอีกได้


แบบที่ 2 สามารถใช้กับ Formแบบ  Continuous Form ได้ดี
สมมุติตารางชื่อ Mytable
Field ไอดี ชื่อ ID
Field วันที่ ชื่อ Mydate

คิวรี่ ที่จะเป็น Record Source โค้ดจะเป็น
SELECT IIf(Month([Mydate])=Month(Date()) And Year(Date())=Year([Mydate]),1,0) AS CheckMonth, *
FROM Mytable;

เวลาเรานำ ข้อมูลลงมาบน Control ก็นำ Field CheckMonth ลงมาด้วย ตั้งชื่อ textbox ว่า CheckMonth เลย
โดยเราจะสามารถ กำหนดให้ซ่อนไว้ก็ได้ครับ ไม่ต้องแสดง
ต่อไปเราจะสร้างเงื่อนไขในการ ปิดการแก้ไขข้อมูลโดยใช้การจัดรูปแบบตามเงื่อนไข


กำหนดนิพจน์ตามภาพ




วิธีนี้เวลาแสดงในฟอร์มแบบ Continuous Form
ถ้าrecord ไหน CheckMonth = 0 จะถูก Enabled = false ทันที
คือกดแก้ไขไม่ได้เลย ถ้า CheckMonth = 1 ก็จะแก้ไขได้ปกติ