SQL Statement Selecting Records and Creating Query Def

[Mechele]

I'm getting a syntax error from the following:

Dim StrSQL As String
Dim QDF As QueryDef

Me!Temp = Me!List1

If Me!Temp = "The Westin La Cantera" Then
StrSQL = "SELECT data.NameofRegistrant, Data.[Hospital\FacilityName], Data.Address, Data.Address1, Data.City, Data.State, Data.ZipCode" _
& "FROM Data" _
& "WHERE Data.Westin = Yes;"
Set QDF = CurrentDb.QueryDefs("MailingListbyHotelQuery")
QDF.SQL = StrSQL
QDF.Close
End If

What am I doing wrong?

 

[Travis]

Try using "CreateQueryDef" instead of "QueryDef"

 

[Tim K.]

I think you need space in you SQL string, before From and Where.

StrSQL = "SELECT data.NameofRegistrant, Data.[Hospital\FacilityName], Data.Address, Data.Address1, Data.City, Data.State, Data.ZipCode" _
& " FROM Data" _
& " WHERE Data.Westin = Yes;"