Supportnet / Forum / Datenbanken
lösch und anfügeabfrage mit vba ausführen
Frage
Hallo zusammen,
ich möcht mit einem click auf ein Button im formular zuerst den inhalt einer tabelle löschen danach soll es automatisch den inhalt von einer verknüpften exel tabelle anfügen.
Die lösch und anfüge abfragen habe ich schon gemacht.
Ich möchte jetzt nur noch wissen wie man beide abfragen mit einem Button nach einander ausführen kann.
lg
Melanie
Antwort 1 von Springmaus
Private Sub Button_Click()
On Error GoTo Err_Button_Click
sql = "DELETE Löschabfrage.* FROM Löschabfrage"
CurrentDb.Execute sql, dbFailOnError
sql = "INSERT INTO ...Deine Anfügeabfrage"
CurrentDb.Execute sql, dbFailOnError
Exit_Button_Click:
Exit Sub
Err_Button_Click:
MsgBox err.Description
Resume Exit_Button_Click
End Sub
On Error GoTo Err_Button_Click
sql = "DELETE Löschabfrage.* FROM Löschabfrage"
CurrentDb.Execute sql, dbFailOnError
sql = "INSERT INTO ...Deine Anfügeabfrage"
CurrentDb.Execute sql, dbFailOnError
Exit_Button_Click:
Exit Sub
Err_Button_Click:
MsgBox err.Description
Resume Exit_Button_Click
End Sub
Antwort 2 von Teddy7
wenn Du den Befehlsbutton mit dem Assistenten anlegst schlägt er Dir sowas automatisch vor.
Gruß
Teddy
Gruß
Teddy
Antwort 3 von HelpMelanie
Hallo,
super hat geklappt.
Bei meinem VBA assistenten fand er meine lösch Abfrage nicht.
Naja jetzt klappts ja;-)
vielen Dank an alle
super hat geklappt.
Bei meinem VBA assistenten fand er meine lösch Abfrage nicht.
Naja jetzt klappts ja;-)
vielen Dank an alle