Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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