I en god del access prosjekt så benytter vi to databaser, en front og en database.
Problemet er ofte at databasene får forskjellig sti hos oss og hos kunden. Noe som gjør at en må knytte opp tabellene på nytt.
Tidligere benyttet vi denne koden:
For Each Tdf In CurrentDb.TableDefs
If Tdf.Connect <> "" Then
strTable = Tdf.Name
CurrentDb.TableDefs(strTable).Connect = ";DATABASE=<sti>\<backenddb>.mdb"
CurrentDb.TableDefs(strTable).RefreshLink '(Denne gir feilmelding)
End If
Next
Men den feiler nå på .RefreshLink, og feilen er at en ikke får satt .Connect til ny sti.
Løsningen var og slette koblingen og opprette den på nytt:
For Each Tdf In CurrentDb.TableDefs
If Tdf.Connect <> "" Then
strTable = Tdf.Name
CurrentDb.TableDefs.Delete strTable
Set td = CurrentDb.CreateTableDef(strTable, dbAttachSavePWD, strTable, ";DATABASE=<sti>\<backenddb>.mdb")
CurrentDb.TableDefs.Append td
End If
Next
Ove B-) |
