Question : Title: Error: A RunSQL action requires an argument consisting of an SQL statement (2)

I couldn't figure out how to add an answer to a question, so I thought I'd send this as a question and let one of the "experts" append the answer to the original (original has same title...w/out the "(2)" at the end).

Question was from: Holddigga
Accepted Answer was from: heer2351

heer2351 recommends using a DLookup.  I found a way to use SQL SELECT statment with DAO.Recordset as follows:

    Dim rs As DAO.Recordset
    Dim sSQL As String

    sSQL = "SELECT Pack_Size_Code " & _
             "FROM Pack_Sizes " & _
             "WHERE Pack_Sizes.Size = "’ & PackSize & ‘"
    Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
    If rs.AbsolutePosition > -1 Then
        client = rs!PC_Code
    Else
    PC_Code = ""
    End If
    rs.Close
    Set rs = Nothing

Answer : Title: Error: A RunSQL action requires an argument consisting of an SQL statement (2)

            "WHERE Pack_Sizes.Size = "’ & PackSize & ‘"

should be

             "WHERE Pack_Sizes.Size = '" & PackSize & "'"

I switched the single and double quote marks for you.

-Jim
Random Solutions  
 
programming4us programming4us