Insert value from one form into several tables

HI
i need to insert value from one text box to several tables.
the user will insert the value on one text box and than will be able to press one of several buttons; each button will insert the value into different table.

so basically i need the code to insert value into table.

access 2003

Thanks for your help
Eyal

You don't need the same data in two (or more) tables,
except the FOREIGN KEY.

Hi
no, i do not need the same data in few tables.
i need that every time the user is typing text on the text box, he can choose a button to which table to insert it.

TNX
Eyal

Try to do it via "APPEND QUERY".

Hi! All you have to do is

INSERT INTO tableName (field1, field2, field3...)
VALUES (value1, value2, value3...)

This is SQL. You need to construct the SQL sentence dinamically, depending on the button pressed.


Dim strTableAndFields as String ' Name of the table
Dim strSQL as String ' SQL command to insert

' ------ When user presses button1
strTableAndFields = "table1 (field1, field2, ....)"

'----- And later on

strSQL = "INSERT INTO " & strTableAndFields & " VALUES (" & control1 & ", " & control2 & .... & ")"

... where control1, control2... are the names of the controls that get the information to insert (you should make sure that they are not empty)

This would be the SQL command.

In order to embed SQL into your code (that is, into Visual Basic), you need to access the database through an object library like DAO or ADODB, then execute the SQL sentence.

* With DAO it's pretty straighforward:

Dim db as DAO.Database
Set db = CurrentDb()
' -- now the only thing you need to do is
db.execute strSQL
' -- where strSQL is the SQL command that you construct

I hope it's clear enough for you.

Regards

Thanks
this will give me the first push start to do it.

BR
Eyal

Can primary key be useful instead of foreign key?

Hi dears,


please help me

I want to run this code in ms access 2003 form but it has a problem syntax error

this is the complete code



Private Sub add_Click()
Dim strSQL As String
strSQL = "INSERT INTO Table1 ("name,number) VALUES ('1',1);"
Dim db As DAO.Database
Set db = CurrentDb()
db.Execute strSQL
End Sub


thank you for any help ....

shahab, you should have started a new thread with your question.

Hijacking thread is poor forum etiquette and your question has less chance of getting attention as simply another post in existing thread. Normally I would not view a thread that has been answered but this was the only new post in forum so I got curious.

There is an unnecessary quote mark in the sql string. Variables are ok but not always needed, especially for such short procedure.

Private Sub add_Click()
CurrentDb.Execute = "INSERT INTO Table1 (name, number) VALUES ('1', 1);"
End Sub

I want to run this code in ms access 2003 form but it has a problem syntax errorURLURLURLURL
URL