การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง
100 ตารางหรือ 100 Record ครับ ???
ถ้า 100 Record ก็ตามนี้เลย
โค้ด
Private Sub Command8_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) 'Table1 คืื่อตาราง
For I = Me.
txtBeginNumber To Me.
txtEndNumber strNum = Nz(Me.
txtModel) & Nz(Me.
txtYear) & Right("00000" & I, 4)
rs.AddNew
rs![
Runnum] = strNum 'runnum คือ Field ในตาราง
rs.Update
Next
End Sub
เวลาใส่ตัวเลข ในช่องเริ่มและสิ้นสุด ใส่ตัวเลข ธรรมดาได้เลยเช่น 1 กับ 100