Unbound Form updating table VBA

[ShostyFan]

I have an unbound, no record source form with a few dropdown boxes populated by various tables. The user selects what they want from the dropDown boxes and then clicks a button and my VBA creates a folder in windows with the names from the dropDown boxes as the windows Path. All of this works fine.
The issue is that I want to store the string created by the multiple dropboxes into a table and this is where my issue resides. I have this, and it does not work.
CurrentDb.Execute "UPDATE Products SET PhotoDirectory = testing WHERE [ProductCode]=" & "'" & [cmboNames] & "'"
I want this line to go to my Products Table and insert the word "testing" in the PhotoDirectory field where the product code selected on my unbound form is the same as the product code in the Products Table.
Thank you for your help with this, and any solution is welcomed even if it is on a different path then the one I am on.

[ranman256]

reference the combo box on the form:

="UPDATE Products SET PhotoDirectory = 'testing' WHERE [ProductCode]='" & me.cmboNames & "'"

this statement says the ProductCode is a string, so
be sure the cmboNames BOUND COLUMN property is correct

photoDirectory is a string too, so put quotes around it.

[ShostyFan]

The update is now creating and storing data, thanks.

The new issue is for SET photoDirectory = 'testing'
what I really need is basically this:
Dim strFolderPath As String
strFolderPath = [cmboDirPath]

SET photoDirecotory = strFolderPath

If I say msgBox strFolderPath I get the correct data, but when I put the variable name in the UPDATE line I get blanks.
How do I go about fixing that?
Thanks.

[Welshgasman]

Put your sql into a string variable and debug.print it.
When you get it working, use that variable in your Execute command.

[ShostyFan]

sorry, but I don't undertand that, can I see an example of this in action?
thanks.

[Welshgasman]

Dim strSQL As String
StrSQL =  "UPDATE Products SET PhotoDirectory = testing WHERE [ProductCode]=" & "'" & [cmboNames] & "'"
CurrentDB.Execute strSQL

No code tags on phone access?

[Gicu]

Same idea, you need to isolate the variable:

Dim strFolderPath As String
strFolderPath = [cmboDirPath]
"UPDATE Products SET PhotoDirectory = '" & strFolderPath & "' WHERE [ProductCode]='" & me.cmboNames & "'"

Cheers,

[ShostyFan]

Got it, works perfect. Thanks to both of you.