K
Keith
In Access 2000 I get the following error message:
Compile Error
Expected: =
The code I am running 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 help would be greatly appreciated.
Thanks,
Keith
Compile Error
Expected: =
The code I am running 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 help would be greatly appreciated.
Thanks,
Keith