มันฟ้องคำนี้ครับ

"Invalid Use of Null"

If MsgBox("ต้องการเพิ่มrecord ใหม่", vbQuestion + vbYesNo, "แจ้ง") = vbYes Then
If IsNull(DLookup("no_document", "Data")) = True Then
   no_document = 1
Else
    DoCmd.GoToRecord , , acNewRec
   no_document = Nz(DMax("no_Document", "Data") + 1)
End If
End If
ไม่ทราบว่าสิ่งที่ต้องการเพิ่มrecord ใหม่หรือเปล่า กรณีนี้ใช้กับฟอร์มที่ผูกกับตารางครับ ถ้าฟอร์ม unboundช่ก็แก้ที่ elseให้ no_document ขึ้นก่อน จากนั้น run sql

ขอบคุณ คุณ sorn มากครับ ผมงมอยู่นานเลย

If No_Document = Null then
   No_Document = NZ(DMax("Val([No_Document])", "Data", "[No_Document]"),0) +1
Endif

ถ้าค่า No_Document เป็นตัวเลขอยู่แล้วไม่มี Val() ก็ได้
If No_Document = Null then
   No_Document = NZ(DMax("[No_Document]", "Data", "[No_Document]"),0) +1
Endif

ถ้าค่า No_Document เป็นตัวเลขที่เก็บเป็น string (text) ใส่ Val() เพื่อแปลงค่า max ก่อนบวก 1
If No_Document = Null then
   No_Document = Val(NZ(DMax("[No_Document]", "Data", "[No_Document]"),0)) +1
Endif

Code ของคุณ Sorn ได้คำตอบที่ถูกต้อง แต่ใช้ code เปลืองครับ มีการตรวจสอบและวาง function ที่ไม่จำเป็นอยู่ด้วย

ขอบคุณ คุณ PichaiTC ที่มาช่วยตอบอีกแนวทางครับ

ผมนำรหัสของคุณ Sorn ไปใช้แค่ส่วนนี้
If IsNull(DLookup("no_document", "Data")) = True Then
ก็สมบูรณ์แล้วครับ