Question

I have a database with a table which is full of conditions and error messages for checking another database.

I want to run a loop such that each of these conditions is checked against all the tables in the second database and generae a report which gives the errors.

Is this possible in ms access.

For example,

querycrit table

id           query                                 error     1           speed<25 and speed>56              speed above limit   2           dist<56 or dist >78                dist within limit 

I have more than 400 queries like this of different variables.

THe table against which I am running the queries is

records table

id   speed     dist    accce   decele   aaa   bbb     ccc 1     33        34      44         33   33     33      33 2     45        44      55         55   55     22      23 

regards ttk

Answer 1

Here is some more sample code. It illustrates the use of two different types of recordsets. You may wish to read VBA Traps: Working with Recordsets by Allen Browne and List of reserved words in Access 2002 and in later versions of Access .

Dim rs As DAO.Recordset Dim rs2 As ADODB.Recordset  Set rs = CurrentDb.OpenRecordset('querycrit') Set rs2 = CreateObject('ADODB.Recordset') rs2.ActiveConnection = CurrentProject.Connection For Each tdf In CurrentDb.TableDefs 'EDIT: TableDefs includes Microsoft System tables and ' 'these should never be tampered with. They all begin with Msys ' 'so we can leave them out of the loop here. '    If Left(tdf.Name, 4) <> 'msys' And tdf.Name <> 'querycrit' Then         rs.MoveFirst         strSQL = 'SELECT * From [' & tdf.Name & '] WHERE '          Do While Not rs.EOF             On Error Resume Next             Debug.Print tdf.Name             rs2.Open strSQL & ' ' & rs![query]             If Err.Number = 0 Then                 On Error GoTo 0                 If Not rs2.EOF Then                     Debug.Print rs![Error]                     Debug.Print rs2.GetString                 End If             End If             Err.Clear             rs2.Close             rs.MoveNext          Loop     End If Next End Sub