Generate Mutiple Records using VBA

[poucedeleon]

I am building a database for logging in Officers into our building. It uses a continuous form. I have added a command button labeled "Multiple Bookings. OnClick it opens a form that has two comboboxes (Select Agency: fills in "AgencyName" on Main Form.) (Officer Name: fills "Officers Name" on MainForm.) and text field (Amount: states how many records to create) Each day we have groups of bookings arrive (Chain, Co-op, Comittments & DOC) These group can be from as little as 2 to as many as 30. I would like to be able generate multiple entries (Recordsets) using the comboBoxes and amount text field listed above. (I realize I will need a command button to run the code.) Is it possible to create multiple recordsets with some default data and some selected from the form. Trying to prevent my booking asst. from having to type the same info multiple times.

[Scott Price]

You have posted your question in the Articles Section, I've moved it across for you to the main forum. Please do not post another thread with the same question, as this one will be attended as normal.

MODERATOR

[MMcCarthy]

I would look at using the run sql statement like the following:

Dim strSQL As String
 
    'This assumes value1 is a string, value2 is a date and value 3 is some other datatype
    strSQL = "INSERT INTO [table_name] ([column1], [column2], [column3]) " & _
        "VALUES ('value1', #value2#, value3);"
 
    DoCmd.RunSQL strSQL
 

You will need to work out the logic of what you are doing and maybe put this in a loop. You can use multiple statements like this.

[FishVal]

Hi, Kevin.

This is usually made via subform(s). To design subform you should have properly designed tables set.

Please include the MetaData for all relevant datasets. Here is an example of how to post table MetaData :
Table Name=tblStudent

Field; Type; IndexInfo
StudentID; AutoNumber; PK
Family; String; FK
Name; String
University; String; FK
Mark; Numeric
LastAttendance; Date/Time