จากCodeครับ ผม Runnumber จากแบบคลิก1 ครั้งก็จะ Run+1 ไปเรื่อยๆครับ
แต่ผมอยากเปลี่ยนเป็นเมื่อเปิด Form ขึ้นมา ถ้ามี Reccord ไหนที่มีค่าว่างให้ Run+1 ไปเรื่อยๆต้องทำอย่างไรครับ
คือ Form คลิ๊กตรงนี้เป็น Form ย่อยครับ

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 = DMax("B_NoIPI", "Qr_TwoPD2Last")
      AA = "IPI"
      BB = "/"
If Me.B_NoIPI = "" Or IsNull(Me.B_NoIPI) Then
   intMax = Nz(DMax("Val(Mid(B_NoIPI,4,4))", "Qr_TwoPD2Last", "B_NoIPI"), 0)
   Me.B_NoIPI = AA & Format(intMax + 1, "0000") & BB & strPrefix1
       
Else
Me.B_NoIPI = "IPI" & "0001" & "/" & strPrefix1
End If


รายละเอียดครับ
ตารางที่เก็บ    = Qr_TwoPD2Last
พิวที่เก็บค่า Run ตัวเลข      =B_NoIPI
รูปแบบของตัวNumber    =IPI0001/07/56   ตัวเลขก็จะรันแค่ 0001+1 ไปเรื่อยๆครับ
ความต้องการครับคือเมื่อเปิด =Private Sub Form_Current()
ฟอร์มที่ใช้คือ =Form1เป็นพอร์มหลัก,SubForm1เป็นพอร์มย่อยครับ
ตัวSubForm1ก็จะมีB_NoIPI อยู่ข้างในครับ
เงื่อนไขครับ =เมื่อเปิดฟอร์มขึ้นมาเมื่อB_NoIPI เป็นค่าว่างให้ Runnumber ครับถ้ามีค่าอยู่แล้วไม่ต้องทำอะไรครับห้ามเปลี่ยนแปลง

ขอบคุณครับ