Hello and Happy New Year!

I (a retired, unpaid volunteer) have lurked and searched and tried what I learned here, but only know enough to know that I need your help. And I thank you ALL for helping me and others here.

I have several tables of equipment assigned for certain circumstances.

Table: tSelectionSets
Fields are:
tSelectionSets_ID AutoNumber LongInteger Primary Key
SelName Text Set’s Nickname
Sel_Car_ID Number LongInteger Lookups to tCars tCar_ID
(more fields for Truck, Generators, Compressors, etc. – all long Intergers)

Table: tCars
Fields are:
tCar_ID AutoNumber LongInteger Primary Key
CarNickName Text Car’s Nickname
(many fields ie. VIN, inspection info, license, etc…..)

In form (fSelectionSets) I select Set (#3 – TestSetThree) which has no car (Sel_Car_ID = 0) and from there via a command button open form (fSelectCar) and choose (tCar_ID = 4) (CarNickName = Fred’s pickup).

Now I click command button (CmdSaveThisRec) to TRY to update record 3 of Table: tSelectionSets.

This table is NOT updated.

My code is:
code
Private Sub CmdSaveThisRec_Click()
On Error GoTo Err_CmdSaveThisRec_Click

strSQL = "UPDATE tSelectionSets" & _
" SET tSelectionSets.Sel_Car_ID = " & Forms![fSelectCar]![txtSel_Car_ID] & _
" WHERE tSelectionSets.tSelectionSets_ID = " & Forms![fSelectionSets]![txttSelectionSets_ID]

DoCmd.RunSQL strSQL

Exit_CmdSaveThisRec_Click:
Exit Sub

Err_CmdSaveThisRec_Click:
MsgBox Err.Description
Resume Exit_CmdSaveThisRec_Click

End Sub
/code

Thank you for your assistance.
-- Fred

Hi there.. if you receive no error, then your query is not trying to update what you think.
Could you debug the Query String and see if the parameters are correct??

Once you do that, can you manually try the query to see if something happens???

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

Thank you.

I did get it to work, but do not understand why.

I could not figure our how to debug this. Me Access uses Visual Basic 6.3 and its debug and compile run without showing an error.

I changed the statement to
I really don't understand why replacing
Forms![fSelectCar]![txtSel_Car_ID]
with
Me.[txtSel_Car_ID]
made this work, but it does.

Any education would be appreciated.

Thanks again!
¡Feliz Año Nuevo!

-- Fred