วิธีรันเลขอัตโนมัติทำไงครับ
กระทู้เก่าบอร์ด อ.Yeadram

 969   3
URL.หัวข้อ / URL วิธีรันเลขอัตโนมัติทำไงครับ

คือผมอยากให้มันรันเลขเองโดยที่ผมไม่ต้องกรอกครับ เช่น
1 2 3 4 แล้วพอผมกรอกข้อมูลในระเบียนที่5 แล้วให้มันรันเลข ลำดับที่5 ขึ้นมาเองเลยอ่ะครับ โดยไม่ใช้วิธีตั้ง auto number อยากได้แบบเขียโค้ดลง vba เพราะผมลองใช้ auto number แล้วข้อมูลพอลบออกไปมันก็ยังรันเลขต่อไปโดยไม่ซ้ำเดิมครับทำให้เลขลำดับมันหายไป

!!!!ปล.ขอแบบระเอียดนิดนึงนะครับพอดีมเพิ่งหัดใช้ได้ไม่นานยังไม่ค่อยชำนาน!!!

ขอบคุณครับ
โดย: ดอกไม้ เมื่อ: 24 ก.พ. 2560 , 09:20

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R22977
ตัวอย่างแบบนี้ของ อ. สุภาพ ไชยยา ก็มีนี้ครับ เห็นถามกันบ่อยด้วย
ลองค้นดูครับ
โดย: ศรี-นคร เมื่อ: 24 ก.พ. 2560 , 16:32
2 @R22979
ขออนุญาตตอบน๊ะครับ ความจริงผมก็ได้ความรู้มาจากอาจารย์ที่อยู่ในนี้หละครับ แต่ไม่ทราบว่ากระทู้ไหน ค้นหาไม่เจอ
1. สร้าง textbox ขึ้นมา 1 อัน (ไม่ได้ผูกไว้) สมมุตว่าชื่อ Text117
2. สร้าง textbox ที่ต้องการให้รันเลขที่อัตโนมัติ สมมุติว่าชื่อ number_sob
3. สร้างปุ่มคำสั่ง สมมุติว่าชื่อ Command22
4. เขียนโค้ดของปุ่มคำสั่งในข้อ 4.

Private Sub Command22_Click()
    DoCmd.GoToRecord , , acLast
    Me!Text117 = number_sob
    DoCmd.GoToRecord , , acNewRec
    Me.number_sob.SetFocus
    Me!number_sob.Value = Me!Text117.Value + 1
    Me.ชื่อฟิลด์ที่จะให้setFocus.SetFocus   'ชื่อฟิลด์ที่จะให้setFocus ใส่เองครับ
End Sub
โดย: ไพรินทร์ เมื่อ: 24 ก.พ. 2560 , 20:37
3 @R22980
แล้วซ่อน Text117 ให้มองไม่เห็น
โดย: ไพรินทร์ เมื่อ: 24 ก.พ. 2560 , 20:39
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3708s