อาจารย์ค่ะ ตาม code ข้างล่างนี้ได้ copy มาจากที่ 701 และได้ทำการเปลี่ยน field , table เรียบร้อยแล้ว แต่พอคลิ๊ก 2 คั้ง แล้ว ขึ้นแค่ 0001 และ ลองทดลอง ไปที่ newrecord กลับขึ้น 0001 เหมือนเดิมค่ะ ไม่ทราบว่าผิดตรงไหนค่ะ field ที่ใช้เป็น text ค่ะ แบบ primarykey

Private Sub InvoiceID_DblClick(Cancel As Integer)
Dim strPrefix As String, strPrefix1 As String, intMax As Integer

strPrefix1 = Format(Date, "YY-")
strPrefix = Right(strPrefix1, 2)

If Me.InvoiceID <> "" Or IsNull(Me.InvoiceID) Then
If Nz(DCount("invoiceid", "tblinvoicehistory", "left(InvoiceID, 3)='" & strPrefix & "'"), 0) = 0 Then
Me.InvoiceID = strPrefix & "0001"
Else
intMax = DMax("val(right(invoiceid, 3))", "tblinvoicehistory", "left(invoiceid, 3)='" & strPrefix & "'")
Me.InvoiceID = strPrefix & Format(intMax + 1, "0000")
End If
End If

End Sub