Pulling value

[Overdive]

Hello
I am trying to pull the value of the textbox (which is bound to a table field) then use that value in an SQL statement.
The SQL statement I am using works fine for values that I specify.

Here is the code

Dim del_var As String

Part_ID_PART.SetFocus (Part_ID_PART is the name of the control)
del_var = Part_ID_PART.Value

DoCmd.RunSQL "DELETE * FROM [PART]" & _
"WHERE [PART ID] =del_var ;"

I also tried Part_ID_PART.Text and didn’t work.
However I do get a msgbox asking for del_var value and when I enter that it works but obviously I don’t want that msgbox to pop up

Any help would be appreciated .



Thank you

[RuralGuy]

There is no reason to move the focus unless you *must* use the .Text property. Nor do you need the variable. So...

DoCmd.RunSQL "DELETE * FROM [PART] WHERE [PART ID] =" & Me.Part_ID_PART & ";"

...should work if [PART ID] is numerical and...

DoCmd.RunSQL "DELETE * FROM [PART] WHERE [PART ID] ='" & Me.Part_ID_PART & "';"

...if [PART ID] is a text field.

[Overdive]

thank you that worked.

[RuralGuy]

Glad I could help.