หนู RunNumber ตามนี้ค่ะ
แต่ติดปัญหาเวลาเป็นค่าเริ่มต้นค่ะ คื่อยังไม่มีค่าค่ะ
Run Time Error 94     Invalid use of Null
ที่บันทัด
intMax = DMax("Val(Mid(B_NoIPI,4,4))", "Qr_TwoPD2Last", "B_NoIPI")




Dim intMax As Integer
     Dim strPrefix As String
     Dim strPrefix1 As String
     Dim istrPrefix2 As String
     Dim AA As String
     Dim BB As String
      strPrefix1 = Format(Date, "mm/yy")
      strPrefix2 = DLast("B_NoIPI", "Qr_TwoPD2Last")
      AA = "IPI"
      BB = "/"
If Me.B_NoIPI <> "" Or IsNull(Me.B_NoIPI) Then
   intMax = DMax("Val(Mid(B_NoIPI,4,4))", "Qr_TwoPD2Last", "B_NoIPI")
   Me.B_NoIPI = AA & Format(intMax + 1, "0000") & BB & strPrefix1
       
Else
Me.B_NoIPI = "IPI" & "0001" & "/" & strPrefix1
End If
     
End Sub

*******************************************************
หนูลองแก้เป็น

If IsNull(Me.B_NoIPI) Then
     Me.B_NoIPI = "IPI" & "0001" & "/" & strPrefix1
Else
      intMax = DMax("Val(Mid(B_NoIPI,4,4))", "Qr_TwoPD2Last", "B_NoIPI")
               Me.B_NoIPI = AA & Format(intMax + 1, "0000") & BB & strPrefix1
Endif

ก็เกิด Run Time Error 94
*****************************************************************
หนูอ่านจากบทความคือ
การแก้ปัญหาด้วยการใส่เครื่องหมาย Double Quote "" วางไว้ก่อนเพื่อเชื่อม (ด้วยเครื่องหมาย &) กับข้อมูลอีกครั้งหนึ่ง แต่เฉพาะที่เป็นตัวอักษรเท่านั้นน่ะครับ และแน่นอนว่าหาก RS("CustomerID") เป็นค่าว่างมา ก็จะไม่มี Error เกิดขึ้นเลย

แต่ลองแล้วก็ไม่หายค่ะ ขอรบกวนพี่ๆ อาจารย์ทุกท่านช่วยดูให้หน่อยค่ะ
ขอบคุณค่ะ