เหตุเนื่องมาจากก่อนหน้านี้ หนูทดสอบการ รันเลขอัตโนมัติ โดยใช้ 1 ตาราง

จากนั้น ได้เอามาใส่ในหน้า ฟอร์มจริงๆ ที่ หน้านั้น มี 2 ตาราง คือ ตาราง รายการขายสินค้าและข้อมูลลูกค้า

1. ปัญหาของหนูคือ หนูต้องแก้ ที่ แหล่งระเบียน ดังนี้
จาก 1 ตาราง ที่แหล่งระเบียนใส่ชื่อตาราง รายการขายสินค้า
            2 ตาราง ที่แหล่งระเบียนหนูใส่     select * From รายการขายสินค้า, ข้อมูลลูกค้า;

ถูกต้องมั้ยคะ???

2. จากนั้น ตรงรันเลขอัตโนมัติ ใส่ Code ดังนี้

Private Sub RunBy_Exit(Cancel As Integer)
If Me.รหัสรายการขายสินค้า = "" Or IsNull(Me.รหัสรายการขายสินค้า) Then Me.รหัสรายการขายสินค้า = AutoNo
End Sub

Function AutoNo() As String
Dim X As Variant
Dim bk As String
X = Nz(DMax("Right(รหัสรายการขายสินค้า,5)", "รายการขายสินค้า"), 0)
Z = Nz(DMax("Left(รหัสรายการขายสินค้า,1)", "รายการขายสินค้า"), 0)
If X = 0 Then bk = 1 Else bk = X + 1
AutoNo = Z & Format(bk, "00000")
End Function



ต้องเพิ่มอะไรอีกคะ มันไม่เพิ่ม Record ต่อไปให้ค่ะ