Using Input box value in sql statement

[blindlemonray]

Hi All,

I am trying to pass a value to a SQL statement by way of an inputbox, but I can't seem to get it working. I cannot seem to pass the value from the inputbox into the = part of the sql statement.

Can anyone point me in the right direction?

Dim strCode As String
Dim sSQLdelete As String
strCode = InputBox("Please confirm client code for deletion", "Client Deletion")

 sSQLdelete = "DELETE Plan_norm.* From Plan_norm WHERE (Plan_norm.Code)= strCode"

DoCmd.RunSQL sSQLdelete
DoCmd.OpenForm "Master_plancheck_frm", acNormal

Have also tried

 sSQLdelete = "DELETE Plan_norm.* From Plan_norm WHERE (Plan_norm.Code)=" & strCode

and variations thereof.

thanks in advance

BLR

 

[PHV]

What about this ?

sSQLdelete = "DELETE FROM Plan_norm WHERE Code='" & strCode & "'"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MajP]

in order to debug this you need
debug.print sSqlDelete
prior to executing you code

Now look at the sql string and show us what it resolves to. This should be standard practice when writing code.

 

[blindlemonray]

thanks PHV works a treat. Looks like I may have got there eventualy but you saved me a lot of time.

Hi MajP, I am self taught so standard practices are not something I am aware of, but I will use this from now on. Thanks for the tip