WIS blogg

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-)