G
Guest
I have a simple function in my Access 2000 database that is giving me the
following error:
Compile Error Expected: =
The code is as follows:
Sub efile_cleanup()
Dim tbl As Recordset
Dim db As Database
Dim jobvar As String
Dim lastcriteria As String
Set db = CurrentDb()
Set tbl = db.OpenRecordset("QRY_CLOSED_JOBS", dbOpenDynaset)
tbl.MoveLast
lastcriteria = tbl("JOB_NO")
tbl.MoveFirst
jobvar = tbl("JOB_NO")
Do Until jobvar <> lastcriteria
'Call efile_delete_files(jobvar)
Debug.Print jobvar
tbl.MoveNext
jobvar = tbl("JOB_NO")
Loop
End Sub
Note that I commented out the function call in case that was the source of
the problem. Any ideas?
Keith
following error:
Compile Error Expected: =
The code is as follows:
Sub efile_cleanup()
Dim tbl As Recordset
Dim db As Database
Dim jobvar As String
Dim lastcriteria As String
Set db = CurrentDb()
Set tbl = db.OpenRecordset("QRY_CLOSED_JOBS", dbOpenDynaset)
tbl.MoveLast
lastcriteria = tbl("JOB_NO")
tbl.MoveFirst
jobvar = tbl("JOB_NO")
Do Until jobvar <> lastcriteria
'Call efile_delete_files(jobvar)
Debug.Print jobvar
tbl.MoveNext
jobvar = tbl("JOB_NO")
Loop
End Sub
Note that I commented out the function call in case that was the source of
the problem. Any ideas?
Keith