กระทู้เก่าบอร์ด อ.Yeadram
1,039 1
URL.หัวข้อ /
URL
การรัน Autuonumber โดย Dmax
คือใช้โค้ด
Dim intMax As Integer
intMax = DMax("Val([EmpId])", "Employees") + 1
Me.EmpId = Format(intMax, "E0")
ใน textbox ของรหัสพนักงาน พอกดจะรันเป็นเลขถัดไป แต่พอกดเลขจะรันแค่ E1 แบบเดียว เป็นเพราะอะไรคะ
ลองใช้โค้ดเดียวกันรันฟอร์มเลขใบสั่งซื้อ ได้ตามที่ต้องการ คือ(0001 ,0002 ,0003) แต่พอฟอร์มรหัสพนักงาน รหัสลูกค้า รหัสสินค้า ไม่เป็น
Dim intMax As Integer
intMax = DMax("Val([EmpId])", "Employees") + 1
Me.EmpId = Format(intMax, "E0")
ใน textbox ของรหัสพนักงาน พอกดจะรันเป็นเลขถัดไป แต่พอกดเลขจะรันแค่ E1 แบบเดียว เป็นเพราะอะไรคะ
ลองใช้โค้ดเดียวกันรันฟอร์มเลขใบสั่งซื้อ ได้ตามที่ต้องการ คือ(0001 ,0002 ,0003) แต่พอฟอร์มรหัสพนักงาน รหัสลูกค้า รหัสสินค้า ไม่เป็น
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R22268
รันให้ค่าแต่ E1 เพราะ EmpId ไม่ได้มีค่าเปลี่ยนแปลง คุณต้องเปลี่ยนมันเอง ส่วนที่ใช้ได้ในที่อื่น อาจเป็นเพราะ EmpId ในเทเบิลอื่นมี Data Type เป็น AutoNumber ครับ
Time: 0.6997s
