Automating records into a table

[Aprilhm14]

I am trying to automate records into an existing table using vba.


Is it necessary to create a form or a command... Can I just create a module and execute it?

I just want to create a while loop that will automate the primary key field. For example record 1 pk is record1 record2 pk is record2 and keep the other fields the same.

[ranman256]

FOR i = 1 to 99
  vNdx = "Record" & i
  sSql = "insert into tbl ([id]) values ('" & vNdx & "')"
  docmd.runsql sSql
next

[June7]

Yes, you can create a module and execute it. But how do you want to execute it - the Run tool on VBA editor menu?

[Aprilhm14]

Yes, you can create a module and execute it. But how do you want to execute it - the Run tool on VBA editor menu?

The easiest way. I am going to have change the format for the primary key a few different times for different records.. So a way that will make it easier to edit the text.

[June7]

What??? Change format for primary key???

Do you have enough info to do what you want?

[Aprilhm14]

What??? Change format for primary key???

Do you have enough info to do what you want?

My primary key is text.
I want to automate records by just changing the primary key. Example of the primary key would be :

mytextn , n<200


mytext001
mytext002
mytext003
mytext004 etc.

Mytext might will change depending on the group of records

[June7]

Generating unique identifier is a common topic in forum. Here is a recent thread https://www.accessforums.net/program...not-44704.html

However, since you want the text prefix to be different for some condition, will need more complicated VBA code that will find the max value for the condition.

[Aprilhm14]

I am lost at how to even start. Is it necessary to create a form or a command... Can I just create a module and execute it?

[June7]

Yes, you can just create a general module and execute it from the VBA menu bar.

[Aprilhm14]

Thanks! I got it to work. I still had to make a button. Is there a way to turn off the message " You are about to append one row" ?

[June7]

Use:

CurrentDb.Execute strSQL