Funktion für Verknüpfung Frontend-Backend erstellen

[Silvio]

Funktion für Verknüpfung Frontend-Backend erstellen

ich möchte eine Funktion erstellen, über die das Verzeichnis des Backends ausgewählt wird
(Standard-Windows-Dialog-Box) und die Einbindung aller Tabellen aktualisiert wird.

Wer kann mir bei diesem Problem helfen???

Vielen Dank für Eure Hilfe.

Silvio

[C. Palmetshofer]

Hi Silvio,

Dim DB as Database
Dim DataDir as String, strPrompt as String
Dim retVal as Integer

'ComDlg.DialogTitle = "databasefile"
'With ComDlg
' .FileName = "ZeitData.mdb"
' .InitDir = AppPath()
' .Filter = "*.mdb"
' .ShowOpen
'End With
'If Len(ComDlg.FileName) > 0 Then
' DataDir = ComDlg.FileName
'End If

strPrompt = "bitte geben Sie Laufwerk und Pfad der Datendatei an!"
'DataDir = [Vorschlaswert für InputBox]
DataDir = InputBox(strPrompt, "Install", DataDir)

if DataDir <> "" then
Set DB = CurrentDb
For i = 0 To DB.TableDefs.Count - 1
Set TD = DB.TableDefs(i)
If TD.Connect <> "" Then
retVal = SysCmd(acSysCmdSetStatus, TD.Name)
TD.Connect = ";DATABASE=" & DataDir & "ZeitData.mdb"
TD.RefreshLink
retVal = SysCmd(acSysCmdClearStatus)
End If
Next i
Set DB = Nothing
end if

[Ines]

Hi
Schau mal in die NordwindDatenbank, da ist das realisiert

Ines

[Silvio]

Hallo,

vielen Dank für die Tips, sie haben mir erstmal weitergeholfen.

Bis später, Silvio