Dim db As DAO.Database
Dim td As TableDef
Set db = OpenDatabase(App.Path & "\NombreBaseDatos.mdb")
For Each td In db.TableDefs
If td.Attributes = 0 Then
If td.Name = "Customers" Then td.Name = "Clientes"
End If
Next
Excelente.... muchas gracias lolo..... era algo que de momento no he ocupado, por eso no lo se, pero la próxima vez que lo ocupe ya sabré como se hace, gracias a tu aportación
Me encanta su sarcasmo, gracias me sirviio de mucho las dos aportaciones... a ver si me pueden ayudar con las otras 2 dudas que tengo debajo de este post .... plz..... se los agradeceria enormemente