delete error tables

D

dimpie

I am trying this code in VBA and i am gettting this erro

"data type mismatch"

Please help!!!!!
 
M

Marshall Barton

dimpie said:
If Right(dbCurr.TableDefs(intLoop), 6) = "Errors" Then


Check the name of the table"

If Right(dbCurr.TableDefs(intLoop).Name, 6) = "Errors" Then
 
D

dimpie

the name of one of the table is "Summary$_ImportErrors". this is the name
generated by access when i import.
 
D

Douglas J. Steele

As Marsh correctly pointed out, I left off the name of the property (which
happens to be Name):

If Right(dbCurr.TableDefs(intLoop).Name, 6) = "Errors" Then


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


dimpie said:
If Right(dbCurr.TableDefs(intLoop), 6) = "Errors" Then
 
D

dimpie

you are a great!!!!! IT WORKS!!!!!!!! Thanks a bunch guys. Dont know what i
would do without your help.
 
Top