Hallo
Hab mal wieder ein Problem
Private Sub update_Click()
Dim db As DAO.Database
Dim strSQL As String
Dim strPfad As String
'Tabelle suchen
strPfad = DateiOeffnen("welches Update?", "C:\")
If strPfad = "" Then Exit Sub
Set db = CurrentDb
'suchen fertig
DoCmd.TransferDatabase acImport, "Microsoft Access", _
acForm, "Grunddaten", strPfad, True, _
"Grunddaten"
'info das alles ok ist
MsgBox "Update auf 2.1 wurde durchgeführt!", vbInformation
End Sub
geht aber nicht, Hat jemand eine idee
Gerd
Hi
Habs gefunden..
DoCmd.TransferDatabase acImport, "Microsoft Access", _
strPfad, acForm, "Grunddaten", _
"Grunddaten"
muss es heisen.