ผมใส่โค๊ดนี้...
Private Sub Text0_Exit(Cancel As Integer)
If Len(Text0) > 0 Then
If DCount("Id_Teacher", "InOut", "Id_Teacher = '" & Text0 & "' and KeepDate = #" & Text2 & " # ") = 0 Then
DoCmd.RunSQL ("INSERT INTO InOut ( Id_Teacher,KeepDate,[In]) SELECT '" & Text0 & "' , #" & Text2 & "# , #" & Text3 & "# ;")
'Text4 = DLookup("[Prefix]+[Name]", "History", "Id_Teacher = '" & Text0 & "'") & " " & "เข้างาน" & " " & Text3
Text4 = DLookup("[Prefix]+[Name]", "History", "Id_Teacher = '" & Text0 & "'")
Text4 = Text4 & " " & DLookup("[Lastname]", "History", "Id_Teacher = '" & Text0 & "'") & " " & " เข้างานเวลา " & Text3
Else
DoCmd.RunSQL ("UPDATE InOut SET InOut.Out = #" & Text3 & "# WHERE ((InOut.Id_Teacher= '" & [Text0] & "') AND (InOut.KeepDate=#" & Text2 & "#));")
'Text4 = DLookup("[Prefix]+[Name]", "History", "Id_Teacher = '" & Text0 & "'") & " " & "ออกงาน" & " " & Text3
Text4 = DLookup("[Prefix]+[Name]", "History", "Id_Teacher = '" & Text0 & "'")
Text4 = Text4 & " " & DLookup("[Lastname]", "History", "Id_Teacher = '" & Text0 & "'") & " " & " ออกงานเวลา " & Text3
End If
End If
End Sub

เพื่อรับรหัส และรับเวลา จากนั้นแสดงชื่อ-สกุล ซึ่งหลังจากเราป้อนรหัสเสร็จแล้ว จะแสดงกรอบให้เราเลือก

ในกรอบนะครับ
***คุณกำลังจะเชื่อมแถว 1 แถว
คุณแน่ใจว่าคุณต้องการที่จะเชื่อมแถวที่ได้เลือกไว้
(มีให้เลือก) ใช่ (และ) ไม่

- ความต้องการของผมคือ ต้องการทำอย่างไรก็ได้ครับ (เหมือนกดปุ่ม หรือคลิก "ใช่" ไปเลยโดยอัตโนมัติ)
ให้ผ่านกรอบข้อความนี้ไปเลย โดยให้ตอบใช่ทุกครั้งครับ ไม่รู้จะทำอย่างไร ครับ อาจารย์ หรือผู้รู้ช่วยแนะนำด้วยครับ

ขอบคุณล่วงหน้าครับ