access

ไม่ต้องใช้ autonumber ค่ะ ให้ properties เป็น number ธรรมดาก่อน

แล้วเวลาดึงไปในฟอร์ม ก็ดึงไปปกติ และให้เพิ่ม Text Box ที่ไม่เชื่อมโยงกับ Table (Unbound) ขึ้นมา 1 อัน ในทีนี้ สมมติว่า Text Box ชื่อ Text1 และสมมติว่า ต้องการให้รันเลขที่อินวอยซ์ ฟิลด์ชือ่ InvNum

เพิ่มปุ่ม New Record เข้าไป ใน sub on click ให้พิมพ์ว่า

DoCmd.GoToRecord , , acLast เมื่อกดปุ่ม ให้ไปที่เรคคอร์ดสุดท้าย
Me!Text1 = InvNum ให้ Text1 รับค่าของเลขที่อินวอยซ์ใบสุดท้าย
DoCmd.GoToRecord , , acNewRec เพิ่มเรคคอร์ดใหม่
Me!.InvNum.SetFocus ให้เคอร์เซอร์อยู่ที่ InvNum
Me!InvNum.Value = Me!Text1.Value + 1 ให้บวกค่าเข้าไปอีก 1 ในค่าที่เก็บไว้ใน Text1 ที่เราให้เก็บไว้ในตอนแรก

วิธีนี้ เราสามารถแก้เลขที่ได้ตามปกติ โดยที่ค่าตั้งต้นให้รันเลขที่ให้เราเพิ่มจากใบสุดท้ายครั้งละ 1 ค่ะ

======================================================================

ได้อยู่ค่ะ หลังการสร้าง field set เป็น autonumber แล้ว ไป set ตรงคุณสมบัติเขตข้อมูล ที่ รูปแบบ = "51"000
ประมาณนี้ ลองดูนะ

=====================================