Formular Import

[gcniva]

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

[gcniva]

Hi

Habs gefunden..

DoCmd.TransferDatabase acImport, "Microsoft Access", _
    strPfad, acForm, "Grunddaten", _
    "Grunddaten"

muss es heisen.