[Access] Rinominare una tabella con nome variabile

[nman]

certo che l'idea di rinominare le tabelle è molto discutibile
a parer mio è un grande errore

prova a pensare di importare i dati "con accodamento" quindi li aggiungi tutti come nuovi record
e nella importazione aggiungi un campo in cui definisci in modo univoco il tuo numero che non ho ancora capito bene
poi con una query puoi estrarre i dati che ti interessano


Comunque solo per conoscenza per rinominare le tabelle io farei cosi:

Private Sub Rinomina()


Dim strVecchioNome As String
Dim strNuovoNome As String
Dim objTabTutte As Object
Dim objTabUna As Object


'   qui sotto scrivi i 2 nomi del cambiamento
strVecchioNome = "T5"
strNuovoNome = "T6"


Set objTabTutte = DBEngine(0)(0).TableDefs
Set objTabUna = objTabTutte(strVecchioNome)


objTabUna.Name = strNuovoNome


Set objTabUna = Nothing
Set objTabTutte = Nothing


End Sub

Facci sapere