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