Can someone spot anything wrong with this code.
I build a query on the fly...but sometimes it gets blown away. I am trying to find the criteria that causes it....
code:
Dim Criteria As String, TableName As String, QueryName As String
TableName = "EQWDC"
QueryName = "PrimeVoters"
Criteria = "SELECT * FROM " & TableName & " WHERE " & Me.Filter
Criteria = Criteria & " Order by street"
'"Select * from eqwdc where " & Me.Filter
Dim WorkDB As Database, WorkQuery As QueryDef, WorkSet As Recordset
Set WorkDB = DBEngine.Workspaces(0).Databases(0)
WorkDB.QueryDefs.Delete QueryName
Set WorkQuery = WorkDB.CreateQueryDef(QueryName, Criteria)
Set WorkSet = WorkDB.OpenRecordset(QueryName, DB_OPEN_DYNASET)
WorkSet.MoveFirst
h
I build a query on the fly...but sometimes it gets blown away. I am trying to find the criteria that causes it....
code:
Dim Criteria As String, TableName As String, QueryName As String
TableName = "EQWDC"
QueryName = "PrimeVoters"
Criteria = "SELECT * FROM " & TableName & " WHERE " & Me.Filter
Criteria = Criteria & " Order by street"
'"Select * from eqwdc where " & Me.Filter
Dim WorkDB As Database, WorkQuery As QueryDef, WorkSet As Recordset
Set WorkDB = DBEngine.Workspaces(0).Databases(0)
WorkDB.QueryDefs.Delete QueryName
Set WorkQuery = WorkDB.CreateQueryDef(QueryName, Criteria)
Set WorkSet = WorkDB.OpenRecordset(QueryName, DB_OPEN_DYNASET)
WorkSet.MoveFirst
h