1. สมมติว่าฟิลด์ที่จะเก็บเลขที่บัตรชื่อ UserID ให้สร้าง Textbox ขึ้นมาเพิ่ม 1 อัน สมมติให้ชือ IDTemp แล้วกำหนด Input Mask เป็น &-&&&&-&&&&&-&&\-&;;_

2. ให้สร้าง Event procedure ดังนี้
[FONT=Courier]
Option Compare Database
Dim stText As String

Private Sub IDTemp_AfterUpdate()
     Me.UserID = stText
End Sub

Private Sub IDTemp_GotFocus()
     stText = ""
     Me.IDTemp = ""
End Sub

Private Sub IDTemp_KeyDown(KeyCode As Integer, Shift As Integer)
     Select Case KeyCode
     Case vbKey0 To vbKey9
          stText = stText & Chr(KeyCode)
          KeyCode = vbKeyMultiply
     Case vbKeyNumpad0 To vbKeyNumpad9
          stText = stText & Chr(KeyCode - 48)
          KeyCode = vbKeyMultiply
     Case vbKeyEscape, vbKeyReturn
          'Nothing change for these keys
     Case Else
          KeyCode = 0
     End Select
End Sub
[/FONT]

ปล. อันนี้ใช้สำหรับ Form แบบ Single Form View ครับ

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