สร้าง query ชื่อ insert
SQL : INSERT INTO checkin ( idstd, timein )SELECT [forms]![main]![idstd] AS Expr1, Now() AS Expr2;
กำหนด Code Builder
Private Sub idstd_Exit(Cancel As Integer)
If idstd > 999999 Then
MsgBox idstd
DoCmd.OpenQuery "insert"
idstd = 0
Refresh
End If
End Sub
Private Sub Command_GotFocus()
idstd = ""
Refresh
idstd.SetFocus
End Sub