how to create a text sequence generator in ms access

[rpeare]

Private Sub cmdgen_Click()
    Dim sealnum As Integer
    Dim strText As String
    Dim techname As String
    Dim TextSequence As String

    techname = cbox.column(x)   '<<= this could be a reference to a control on the form X STANDS FOR THE 0 INDEXED VALUE OF THE TECHNICIAN NAME IN YOUR COMBO BOX

    For sealnum = Me.box1 To Me.box2  '<-references to controls on the form
        TextSequence =  sealnum & " " & techname 

        strText = "INSERT INTO sealinventorytbl (sealnum)  VALUES ('" & TextSequence & "')"
        Debug.Print strText   'for debugging
        CurrentDb.Execute strText
    Next sealnum

End Sub

if it fails on the currentdb.execute command you need to enable a reference microsoft DAO 3.x will work just fine.

[Alexander]

Private Sub cmdgen_Click()
    Dim sealnum As Integer
    Dim strText As String
    Dim techname As String
    Dim TextSequence As String

    techname = cbox.column(x)   '<<= this could be a reference to a control on the form X STANDS FOR THE 0 INDEXED VALUE OF THE TECHNICIAN NAME IN YOUR COMBO BOX

    For sealnum = Me.box1 To Me.box2  '<-references to controls on the form
        TextSequence =  sealnum & " " & techname 

        strText = "INSERT INTO sealinventorytbl (sealnum)  VALUES ('" & TextSequence & "')"
        Debug.Print strText   'for debugging
        CurrentDb.Execute strText
    Next sealnum

End Sub

if it fails on the currentdb.execute command you need to enable a reference microsoft DAO 3.x will work just fine.

hey thanks a lot. the code is running good, a little adjustment was made to allow the data to go into the columns sealnum and techname.

Private Sub cmdgen_Click()
Dim sealnum As Integer
Dim strText As String
Dim techname As String
Dim TextSequence As String
techname = cbox.Column(0)
For sealnum = Me.box1 To Me.box2
TextSequence = sealnum
TextSequence1 = techname
strText = "INSERT INTO sealinventorytbl (sealnum, techname) VALUES ('" & TextSequence & "', '" & TextSequence1 & "')"
Debug.Print strText 'for debugging
CurrentDb.Execute strText
Next sealnum
End Sub