Delete code not recognizing my string values

[database_1]

I have a form where a user uses a combobox to pick a position, then use another combobox to pick a training. Then there is a button to delete the selected training. For some reason when I try to run this code, it asks for a value for pos but there is an option chosen in the pos_cmb. Why is this happening and how could I fix it?

Dim trng As String
Dim pos As String
pos = Me.cmb_pos.Value
trng = Me.com_trng.Column(1)
MsgBox (trng)


DoCmd.SetWarnings False
strSQL = "Delete * From [TRNG_TBL] WHERE [POS_ID] = pos And [TRNG_ID] = trng"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

End Sub

[Gicu]

Try this:

strSQL = "Delete * From [TRNG_TBL] WHERE [POS_ID] = '" & pos & "' And [TRNG_ID] = '" & trng & "'"

Note the single quotes needed for string variables (none for numbers and # for dates).
Cheers,

[June7]

As Vlad shows, must concatenate variable inputs.

You declared variables as string type. Are the fields text data type?

The variables are not really needed since they are used only once. Why annoy users with message box?

I prefer Execute method then don't need SetWarnings.

If the fields are actually number type:

CurrentDb.Execute "DELETE FROM [TRNG_TBL] WHERE [POS_ID] =" & Me.cmb_pos & " AND [TRNG_ID] = " & Me.cmb_trng