เรียนอาจารย์สุภาพ
หนูจะทำ running number โดยมีเดือนกับปีเป็นส่วนประกอบด้วยค่ะ ลอง run ตาม code ที่อาจารย์แนะนำแล้วค่ะ แต่พอ run แล้วขึ้น error "data type mismatch in criteria expression"
ชื่อ table = Software Support และ field ID มี data type เป็น text ขนาด 11 digits
format เป็นดังนี้ S03-05-0001.........รบกวนตรวจสอบให้หน่อยค่ะ

Private Sub ID_Click()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String

strDate = Format(Date, "yy-mm")

If Me.ID = "" Or IsNull(Me.ID) Then
If IsNull(DMax("Val(Right([ID],4))", "Software Support", "left([ID],6) = '" & "S" & strDate & "'")) Then
Me.ID = "S" & strDate & "-" & "0001"
Debug.Print "1"
Else
intMax = DMax("Val(Right([ID],4))", "Software Support", "Left([ID],6) = '" & "S" & strDate & "'")
intMax = intMax + 1
Me.ID = "S" & strDate & "-" & Format(intMax, "0000")
Debug.Print "1"
End If

End If
End Sub