Insert to a table

[dr223]

Hi,



On my form (frmMain) I have 4 combo boxes, cmbcr1, cmbcr2, cmbcr3 and cmbcr4.

I have also a submit button..

When clicked I want to pass the value selected from the combo boxes to a TblTemp.. How can I update this code;


DoCmd.RunSQL "INSERT INTO TblTemp(Que1W,Que2W, Que3W,Que4W) SELECT .......


N/B: Que1W = will store the value from cmbcr1
Que2W = will store the value from cmbcr2 etc



Thanks

[pdebaets]

First, you can bind a form to a table and make this process much easier.

If you MUST use a query to insert your records, then if your combo boxes return numeric values try

CurrentDB.Execute "INSERT INTO TblTemp(Que1W,Que2W, Que3W,Que4W) VALUES (" & cmbcr1 & "," & cmbcr2 & "," & cmbcr3 & "," & cmbcr4 & ");", dbseechanges + dbfailonerror

If they return text strings, then try


CurrentDB.Execute "INSERT INTO TblTemp(Que1W,Que2W, Que3W,Que4W) VALUES ('" & cmbcr1 & "','" & cmbcr2 & "','" & cmbcr3 & "','" & cmbcr4 & "');", dbseechanges + dbfailonerror

[dr223]

It's text so i used:

DoCmd.RunSQL "INSERT INTO TblTemp(Que1W,Que2W, Que3W,Que4W) VALUES ('" & cmbcr1 & "','" & cmbcr2 & "','" & cmbcr3 & "','" & cmbcr4 & "');", dbseechanges + dbfailonerror


Message:

You are about to append 1 row(s).
Once you click Yes, you can't use.....

I selected - Yes.

Open the table I see a blank Row created with no data... Why?

Many thanks

[pdebaets]

You can turn off the Access option "Confirm Action Queries".

Was anything in your combo boxes?

Please note that I strongly recommend using a bound form, instead of the approach you are using.