creating names of fields in a tabledef dynamicaly

[lanelouna]

hello
I hope someone can help me on this
i am trying to create fields in a tabledef
but the name of the fields is created dynamically
is it possible
here is an example of what i am trying todo nd obviously it does not work
thanks in advance for your suggestions and help
Lina

Do While (i < nbrChamps)
j = i +1
Set chp3 = dft.CreateField(["n" & j ], dbInteger, 3)
Set chp4 = dft.CreateField(["rt" & k ], dbInteger, 3)
dft.Fields.Append chp3
dft.Fields.Append chp4
i = i + 2
Loop

 

[lanelouna]

or can i do something similar?
it is not working i know
but somethign similar

dim fieldname1 as string
dim fieldname2 as string

Do While (i < nbrChamps)
j = i + 1
fieldname1 = "n " & i
fieldname2 = "rt " & j
Set chp3 = dft.CreateField(fieldname1, dbInteger, 3)
Set chp4 = dft.CreateField(fieldname2, dbInteger, 3)
dft.Fields.Append chp3
dft.Fields.Append chp4
i = i + 2
Loop
thanks in advance for your help
Lina

 

[lupins46]

Remove the [ ] around the field names.

 

[lanelouna]

well it is working
sorry to have bothered you with this
should have used []
Set chp3 = dft.CreateField([fieldname1], dbInteger, 3)
anyways thanks
Lina

 

[lupins46]

Can't see the problem here, now.
Are you sure that dft and nbrChamps are OK and you are appending the table to the database?

 

[lupins46]

Sorry can't type as fast as you-)

 

[lanelouna]

lol

when there is a will there is a way
u ll get there someday