Should be quotation mark at the end of second example also.
Originally posted by mmccarthy
"SELECT [tblSubProjectKeyWords].[ProjectNumber], " & _
"[tblSubProjectKeyWords].[ProjectKeyWords] " & _
"FROM tblSubProjectKeyWords " & _
"WHERE (([tblSubProjectKeyWords].[ProjectKeyWords]='" _
& get_global("KeyWordsSelected") & "'));"
"SELECT [tblSubProjectKeyWords].[ProjectNumber], " & _ "[tblSubProjectKeyWords].[ProjectKeyWords] " & _ "FROM tblSubProjectKeyWords " & _ "WHERE (([tblSubProjectKeyWords].[ProjectKeyWords]='" _ & [Forms]![frmKWtoStaff]![txtHoldSelected] & "'));"
Set MyDB = CurrentDb()
strSQL = "SELECT [tblSubProjectKeyWords].[ProjectNumber], [tblSubProjectKeyWords].[ProjectKeyWords] " & _
"FROM tblSubProjectKeyWords " & _
"WHERE (([ProjectKeyWords]="
strSQL = strSQL & GBL_KeyWordsSelected & "))"
MyDB.QueryDefs.Delete "subqrySingleKW"
Set qdef = MyDB.CreateQueryDef("subqrySingleKW", strSQL)
DoCmd.OpenQuery "subqrySingleKW", acViewNormal
Comment