-สั่งโค้ดให้ไปดูเลขที่ล่าสุดจากตาราง โดยมีเงือนไขว่า ต้องเป็นเรคคอร์ดของวันนี้
- ถ้าไม่มีเรคคอร์ดของวันนี้เลย ให้เลขอัตโนมัติ = 1
- ถ้ามี   ให้นำเลขที่ล่าสุดนั้น มาบวกด้วย 1

ค้นในเว็บบอร์ดนี้ ครับเยอะมา คำว่า "เลขที่อัตโนมัติ" "Autorun" "auto number" "Running"

พี่รบกวนเขียนให้ดูหน่อยนะครับ หาไม่เจอจริงๆ เจอก็เอามาแก้ไม่เป็นอ่ะ
ขอบพระคุณมากๆ ครับ

ขออนุญาตตอบแทนอาจารย์
สมมติว่า
ตาราง tblRun ประกอบด้วยfield
a datatype date/time
b datatype number
บนฟอร์ม
textbox txta เก็บ field a
textbox txtb เก็บ field b

Private Sub Command2_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If MsgBox("lllllll", vbQuestion + vbYesNo, "......") = vbYes Then
If DCount("a", "tblRun") = 0 Then
Me.txta = Date
Me.txtb = 1
ElseIf DCount("b", "tblRun", "a=date()") = 0 Then
DoCmd.GoToRecord , , acNewRec
Me.txta = Date
Me.txtb = 1
Else
DoCmd.GoToRecord , , acNewRec
Me.txta = Date
Me.txtb = DMax("b", "tblRun", "a=date()") + 1
End If
End If
End Sub
ผลที่ได้
ขึ้นวันใหม่ เริ่มเลข 1 ใหม่
ยังไม่ทดสอบ

แจ่มมากๆ เลยครับ
ทำไม พอลบค่าในตารางแล้ว
ยังจำค่า Number เดิมอีก

ขอบคุณมากครับ