ขอบคุณมากครับ ทำได้แล้วครับ
 

ตามที่ได้ทำครับ ถ้าไม่ต้องการให้เพิ่มเข้าไปซ้ำกันครับ ไม่ทรายว่าจะต้องเพิ่มโค้ดตรงส่วนไหนครับ พร้อมแจ้งเตือนค่าซ้ำครับ

Private Sub Command9_Click()
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Right("0000" & I, 4)

     rs.AddNew
        rs![Barcode] = [txtModel] & "" & [Text15] & "" & [strNum] & "R2"
       
     rs.Update
     Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing
End Sub

สอบถามเพิ่ม
1.เลือก dropdown คือต้องการ เลือกชื่อคิวรี่ที่จะเอามาแสดงผลใช่ไหมครับ
2.เลือก Picking นี้เลือกด้วยทุกครั้งไหมครับ หรือ เลือกบางครั้ง

1.ใช่แล้วครับ เลือก dropdown ที่ต้องการแล้วให้โชว์ตามคิวรี่ที่กำหนด
2. เลือก Picking ก็ต่อเมื่อจะปริ้นออกมาเพื่อเช็คสต็อกครับ

สอบถามเรื่องโค้ดครับ ถ้าทำเป็นที่ละ Model สามารถทำได้ครับไม่มีปัญหา แต่มันเยอะขึ้นเรื่อย ไฟล์ก็ใหญ่ตามครับ เลยอยากลองทำเป็นแบบค้นหาครับ
ทำเป็นตัวอย่างสักอันก็ได้ครับ เพราะสิ่งที่จะทำ Model มันมีเป็น 100 Model เลยครับ
1. Dropdown แล้วให้ข้อมูลโชว์ค่าตาราง Qurey

2. ตรงช่องค้นหาให้ค้นหาค่าที่แสดงขึ้นมา
3. ตรง Print and export ให้ทำได้ โดยได้ทำ Report แล้ว

ขอบคุณมากครับ

ได้แนบไฟล์ฐานข้อมูลด้วยครับ แก้ไขแล้วครับ

ได้แล้วครับ แต่มันขึ้น

ลองแล้วหาไดร์เวอร์ลงเรียบร้อยครับ ก่ยังไม่ได้ครับ

ที่บอกมาถูกต้องเลยครับ
"แต่ความต้องการคือให้ + 100 ไปเรื่อยๆหรือไม่เช่น
ถ้า 6 ครั้ง ก็จะได้ AAABBB100 - AAABBB600
แต่ถ้า 15 ครั้ง Bcode จะเป็น AAABBB100 - AAABBB1500"

Error ครับ

ขอบคุณครับ

สอบถามการเพิ่มตัวเลขลงท้ายอัตโนมัติ
เช่น Taxbox ชื่อ QRCode สแกน แล้วได้ค่า AAABBB100
สิ่งที่ต้องการคือ เมื่อสแกนแล้วค่าที่บันทึกก่จะได้
AAABBB100
AAABBB200
AAABBB300
AAABBB400
AAABBB500
AAABBB600

ตัวอย่างนี้เราเป็นผู้กำหนดว่าแต่ละรุ่นจะบันทึกกี่ครั้ง ไม่มีปุ่มให้กดครับ สแกนแล้วเข้า Database เลย
ขอบคุณครับ