Solución:
Usted puede:
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
tdf.Name = tdf.Name & "_backup"
End If
Next
Sugeriría el siguiente código. Reemplazaría la tabla recién renombrada, con la tabla existente, si ya existía con el nuevo nombre de la tabla:
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Name, 7) <> "backup_" Then
Dim newTableName As String
newTableName = "backup_" + tdf.Name
DoCmd.SetWarnings False
DoCmd.Rename newTableName, acTable, tdf.Name
DoCmd.SetWarnings True
End If
Next
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)