VBA SQL syntax problem

[atrium]

I'm having trouble including a integer variable into an SQL statement.
If I substitute the variable for the numeric 1, it works as expected.

The code is:-

    Dim intClientId As Integer
    Dim strSQL As String
    Dim rs As DAO.Recordset
    Dim strWhereStatement As String
    Dim strQryFile As String
    
    intClientId = [Forms]![ViewPrintSendClientFrm]![ClientId]
    Set db = CurrentDb
    strQryFile = "DocumentLibrary"
    strWhereStatement = " WHERE (((DocumentLibrary.MatterId)=0) AND ((DocumentLibrary.Attached)=True) AND ((DocumentLibrary.ClientId)= " & intClientId & " )) ;"
    strQryFileSql = "SELECT * FROM " & strQryFile & strWhereStatement

I'm having trouble with the strWhereStatement line and the variable at the end of the statement (AND ((DocumentLibrary.ClientId)= " & intClientId & " )) ;"

Any help would be appreciated

 

[pbaldy]

This will show you what the finished SQL is:

http://www.baldyweb.com/ImmediateWindow.htm

 

[JHB]

You don't tell if you get an error message, or if the result is not as expected?
What value does intClientId have after the code line?

intClientId = [Forms]![ViewPrintSendClientFrm]![ClientId]

Are you sure that ClientId is a number field type in the table DocumentLibrary?

Check if the generated SQL string is correct by included a Debug.Print strQryFileSql in your code.

 

[atrium]

Thanks Paul

That really helped.

Atrium

 

[jdraw]

Has the issue been solved??

 

[pbaldy]

Thanks Paul

That really helped.

Atrium

Happy to help!