Question

Can anyone give me details of

runtime error 3734

in Access vba.

For reference i am getting it from a code in the following thread

How to run a loop of queries in access?

Sub plausibt_check()  Dim rs As DAO.Recordset Dim rs2 As ADODB.Recordset Dim db As database Dim strsql As String Dim tdf As TableDef     Set db = opendatabase('C:\Codebook.mdb') Set rs = db.OpenRecordset('querycrit')  Set rs2 = CreateObject('ADODB.Recordset') rs2.ActiveConnection = CurrentProject.Connection   For Each tdf In CurrentDb.TableDefs ' in this line the error occurs 

Answer 1

It seems that you are using ADO in the current database without saving. You must save before running code that contains ADO.