Not in this collection 2

[lars7]

Hi Guys,

I'm trying to change the names of 3 tables with the following code but I'm getting this error message "Item not found in this collection"

Option Compare Database
Option Explicit

Function RenameTables()
Dim db As DAO.Database


Set db = CurrentDb
Debug.Print
db.TableDefs("EmpDep_Old").Name = "Empdep_Archive"
db.TableDefs("EmpDep_New").Name = "Empdep_Old"
db.TableDefs("EmpDep_New_Temp").Name = "Empdep_New"

Set db = Nothing

End Function

I think I have the correct references ticked so I'm not sure where I've gone wrong.

Thanks in advance.

 

[MajP]

One of the names of your tabledefs obviously spelled wrong.

 

[JBinQLD]

and the hghlighted line will prolly indicate which one

JB

 

[lars7]

OOP's,
thanks.

 

[PHV]

A crude way to solve your issue:

Function RenameTables()
Dim db As DAO.Database
Set db = CurrentDb
[!]On Error Resume Next[/!]
db.TableDefs("EmpDep_Old").Name = "Empdep_Archive"
db.TableDefs("EmpDep_New").Name = "Empdep_Old"
db.TableDefs("EmpDep_New_Temp").Name = "Empdep_New"
Set db = Nothing
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[JBinQLD]

PHV!

Crude aint the word! How dare you condone such things?! lol.

JB