how to create a text sequence generator in ms access

[Alexander]

how to create a text sequence generator in ms access??
I have a number sequence generator but I would like to create a generator that repeats a given name to a given sequence of number.
this is the number sequence:
Private Sub cmdgen_Click()
Dim sealnum As Integer


For sealnum = box1.Value To box2.Value

CurrentDb.Execute "INSERT INTO sealinventorytbl ([sealnum]) " _
& "VALUES (" & sealnum & ")"



Next sealnum


End Sub

any advice out there? thanks in advance

[orange]

??? Why?

You can get test data free from several sites
http://www.databasetestdata.com/
http://www.jpsoftwaretech.com/random...-in-for-excel/

[rpeare]

dim db as database
dim sSQL as string
dim StartValue

set db = current db
StartValue = box1

do while StartValue <= Box2
    sSQL = "INSERT INTO sealinventorytbl ([SealNum]) VALUES (" & StartValue & ")"
    db.execute ssql
    StartValue = StartValue + 1 'or whatever your increment is
loop


set db = nothing

[Alexander]

dim db as database
dim sSQL as string
dim StartValue

set db = current db
StartValue = box1

do while StartValue <= Box2
    sSQL = "INSERT INTO sealinventorytbl ([SealNum]) VALUES (" & StartValue & ")"
    db.execute ssql
    StartValue = StartValue + 1 'or whatever your increment is
loop


set db = nothing

i'll be taking the name from an input 'techname' also box1 and box2 will have the lower and upper limit respectively of the sequence of numbers.

[rpeare]

If there is a question there I don't see it

[orange]

I don't see a question either.
Perhaps the OP has a solution. If not perhaps he/she would show us a sample of the expected output.

[ssanfu]

how to create a text sequence generator in ms access??

Maybe

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

    techname = "WaterPump"   '<<= this could be a reference to a control on the form

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

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

    Next sealnum

End Sub

(Code based on rpeare's code from Post#3)

Note the text delimiters in the VALUES clause

[Alexander]

here is a better look at what i'm saying, the numbers are generating but not the text

[rpeare]

What is the format of your sequence?

Is it 'Ashuton-001' or is it 1-001 (ashutons's ID from the combo box) or is it 001-Ashuton

the code ssnafu modified from my original post would work just fine. The only thing you'd need to change is the statement:

techname = comboboxname.column(1)

if you want the text to be part of the sequence

techname = comboboxname

if you want the bound column (assuming it's the first column, combo boxes and list boxes are 0 indexed) to be part of the text sequence

[Alexander]

What is the format of your sequence?

Is it 'Ashuton-001' or is it 1-001 (ashutons's ID from the combo box) or is it 001-Ashuton

the code ssnafu modified from my original post would work just fine. The only thing you'd need to change is the statement:

techname = comboboxname.column(1)

if you want the text to be part of the sequence

techname = comboboxname

if you want the bound column (assuming it's the first column, combo boxes and list boxes are 0 indexed) to be part of the text sequence

The format of the sequence is as follows:
1 Ashuton
2 Ashuton
3 Ashuton
.
.
.
20 Ashuton

how can your original program be modify to capture that idea?

[orange]

Alexander,

Based on the comments and suggestions by others, it isn't clear to me that a "text sequence generator" means the same thing to you and readers. When I see a generator, I'm thinking "test data generator" or "random number generator". I think your definition is more like "How to create a custom code/identifier for products/items/things".

Perhaps you could clarify by means of an example or two.

UPDATE: seems are posts were made at the same time

....
MyText = "Ashuton"
For i = 1 to  20
  debug.print i & "-" & Mytext
Next i
.............

[rpeare]

ssnafu's modified code will work just fine with the change in the

techname = combobox.column(x)

addition, where combobox is the name of your technician combobox and x is the column where the technician name appears (remember combo boxes and list boxes are 0 indexed so the second column is .column(1)) and alter the order of his textsequence variable and you should be fine.

[Alexander]

ssnafu's modified code will work just fine with the change in the

techname = combobox.column(x)

addition, where combobox is the name of your technician combobox and x is the column where the technician name appears (remember combo boxes and list boxes are 0 indexed so the second column is .column(1)) and alter the order of his textsequence variable and you should be fine.

ok thanks a million to all of you guys that contributed.

hi, when I executed the code it gave Compile error: Invalid qualifier, and it highlights strText in the line 'CurrentDb.Execute strText.dbFailOnError'
what does that mean? any advise on how to deal with that error?

[rpeare]

what is your code and what is your table design?

you have to modify the code to be in line with your actual form/field/table names

[Alexander]

what is your code and what is your table design?

you have to modify the code to be in line with your actual form/field/table names

the table and the form