Dim dl As Long
Dim dm As Long

dl = DLast("[เลขที่บิล]", "[ตาราง1]") 'ตัวสุดท้าย
dm = DMax("[เลขที่บิล]", "[ตาราง1]") 'ตัวล่าสุด
MsgBox dl & " / " & dm

If (dm - dl) > 1 Then
Me.เลขที่บิล = dl + 1
Else
Me.เลขที่บิล = dm + 1
End If

โค้ดที่ให้ไว้ใช้ได้แต่ติดเงื่อนไขอีกนิดนึง คำถามอยู่ในไฟล์แนบแล้ว
ขอบคุณอีกครั้งครับ

ผมเปิดชื่อฟอร์มที่เป็นภาษาไทยไม่ได้ครับ

ทดลองเอาโค๊ตนี้ใว้ที่ AfterUpdate ของ ID ครับ
แล้วก็ลบ บรรทัด MsgBox ออกก็ได้นะครับ

อีกนิดนึงคือต้องการเช็กเงื่อนไขด้วยว่าถ้ามีซ้ำให้ข้ามไปเลย
แนบไฟล์คำถามแล้วครับ นี้เป็นคำถามสุดท้ายแล้วครับ