Inputbox not working help debugging?

Databases
1

If I substitute ID with a real CLIENT_ID like ‘Smith’ it works but won’t work with the InputBox statement. Help am going mad :confused:

[I]Sub OPEN_MATTERS_CLIENT_ID()

ID = InputBox(“Client ID?”)

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID =‘ID’”

With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Worksheets(“Sheet4”).Range(“A2”), Sql:=strH)
.Refresh
End With

End Sub[/I]

2

if CLIENT_ID is a string

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID ='” + ID + “'”

or

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID ='” & ID & “'”

if CLIENT_ID is not a string

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID =” + ID

or

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID =” & ID

3

Ah this is the answer

if CLIENT_ID is a string

strH = “Select CLIENT_ID from MATTER Where CLIENT_ID ='” + ID + “'”

Thanks!

4

what property of InputBox you trying to access?