Adding Multiple Records

[tezy1994]

Hi,

I have a table with the following fields:

InspID(AutoNumber)
Crane Number
RepairID
AreaNumber
Date Of Inspection
Crack Length
Image Path
Inspector Name

The main fields I am looking to update is the Crane Number and AreaNumber.

A form should be able to update this 2 fields, the rest of the fields can remain blank. The Crane Number field is linked to another table where a list of Crane numbers are stored and I am thinking of using a combobox for the user to select a Crane number to update. They should only be able to add 1 crane at a time.



1 Crane Number should automatically add 82 area numbers into the table. The 82 area numbers are stored in another table called Area Number.

Is there any way to do this, and if yes how?

Thanks

[drunkenneo]

You can get all your answers in :
http://www.datapigtechnologies.com/f...combobox2.html

[June7]

Adding 82 area numbers is adding 82 records. This will require some code. In VBA, like:

CurrentDb.Execute "INSERT INTO tablename([Crane Number], AreaNumber) SELECT " & Me.combobox & " AS Crane, AreaNumber FROM [Area Number]"


Advise no spaces in any field and object names.

[tezy1994]

Hello, I can't seem to be able to access your link.

[tezy1994]

Where exactly will I place this code? Into a button?
Sorry, I am still pretty new to access and not familiar with this aspect of VBA codes.

Alright I will try to remove the spaces in the names.


Thanks.

[June7]

The real challenge is figuring out what event(s) to put code in. A button click is certainly one possibility.

[tezy1994]

The real challenge is figuring out what event(s) to put code in. A button click is certainly one possibility.

So I would just have to copy this exact code, CurrentDb.Execute "INSERT INTO tablename([Crane Number], AreaNumber) SELECT " & Me.combobox & " AS Crane, AreaNumber FROM [Area Number]"

into a button click event?

[June7]

It is a generalized example. I don't know your data structure nor your form design. Certainly your table is not named 'tablename'.

[tezy1994]

Thanks, I have managed to solve this issue with the following code

CurrentDb.Execute "INSERT INTO Inspection(CraneNumber, AreaNumber) SELECT('" & Combo5.Value & "') AS CraneNumber, AreaNumber FROM [Area Number]"