لو سمحتوا ممكن احد يشرح هالكود بالتفصيل لانه بيفيدني في تصميم برنامج
الكود منقول من المنتدى
Dim counter As String
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Stock")
counter = Val(Me.From) - 1
Do While counter < Val(Me.To)
counter = counter + 1
counter = Format([counter], "0000000")
With rst
.AddNew
rst!TicketID = counter
rst!TicketDes = Me.TicketDes
rst!userEntered = Me.userEntered
rst!DateEntered = Date
rst!TimeEntered = Time()
.Update
End With
Loop
End Sub