04/11/2024 - @Alex ha scritto:
Hai provato ad Eliminare e rifare la TableDef se genera il medesimo problema… mi aspetto di no, se così fosse la cosa sarebbe altrettanto semplice, basta usare il CreatTabledef ecc…
Db.Tabledefs.Delete NomeTabellaLocale
Set tdf= Db.CreateTableDef(NomeTabellaLocale, Attributes, NomeTabellaRemota, Connect)
Potrebbe, ma da verificare, richiedere qualche frazione di secondo in più, se hai 100 Tabelle, forse si vede, ma dovrebbe non presentare il problema.
Saluti
Grazie Alex, ottimo suggerimento.
Mi sono scritto questo e va da Dio.
Function Riconnetti(StringaConnessioneSenzaTabella, NomeLink, NomeTabella)
' es. stringa connessione ODBC;DSN=NomeODBC;DATABASE=xxx;
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb
On Error Resume Next: db.TableDefs.Delete NomeLink: On Error GoTo 0
Set tdf = db.CreateTableDef(NomeLink)
tdf.Connect = StringaConnessioneSenzaTabella & ";TABLE=" & NomeTabella
tdf.SourceTableName = NomeTabella
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing
End Function
Riconnetto tranquillamente al volo tra MYSQL, SQLServer o altri ODBC.
Velocità praticamente quella del refreshlink.
Grazie della dritta!