B
Bill Barber
I updated from Access 2000 to 2002 and now I get this error on something that
has been working for years.
Here is the code!
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim tdf As TableDefs
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM AlphaErrors")
With db
For Each tdf In .TableDefs
If Left(tdf.Name, 11) = "AlphaErrors" Then ' Error
Here Member or Data Member not Found On tdf.Name!
MsgBox "Found Error Table"
End If
Next tdf
End With
Does anyone know what I have to change to get this to work?
Thanks a Lot
Bill
has been working for years.
Here is the code!
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim tdf As TableDefs
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM AlphaErrors")
With db
For Each tdf In .TableDefs
If Left(tdf.Name, 11) = "AlphaErrors" Then ' Error
Here Member or Data Member not Found On tdf.Name!
MsgBox "Found Error Table"
End If
Next tdf
End With
Does anyone know what I have to change to get this to work?
Thanks a Lot
Bill