#

 

 

 

Wie kann man in MS Access einen Datensatz im geöffneten Formular löschen?

 

Lösung:

Den aktuellen Datensatz Record in einem Acces Formular kann kann man mit einem RunCommand ausführen.

 

Hier zu in vba den Befehl

DoCmd.RunCommand acCmdDeleteRecord

Ausführen

 

Private Sub BtnZeile_loeschen_Click()

    '------< BtnZeile_loeschen_Click() >------

    DoCmd.RunCommand acCmdDeleteRecord

    '------</ BtnZeile_loeschen_Click() >------

End Sub

 

 

Wie kann man beim Löschen eines Datensatzes die System-Warnung unterdrücken?

Systemmeldung: Sie sind dabei 1 Datensätze zu löschen?

 

Die Warnung wird in vba ausgeschaltet mit Docmd.SetWarnings

Zum Ausschalten der Meldung schaltet man diese während des Löschvorgangs aus und anschliessend wieder an.

    DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdDeleteRecord

    DoCmd.SetWarnings True

 

 

Private Sub BtnZeile_loeschen_Click()

    '------< BtnZeile_loeschen_Click() >------

    '*delete Current Record on Form without Warning Message

    If vbYes <> MsgBox("Soll der Datensatz gelöscht werden?", vbYesNo, "Löschwarnung") Then Exit Sub

 

    DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdDeleteRecord

    DoCmd.SetWarnings True

    '------</ BtnZeile_loeschen_Click() >------

End Sub

 

Mobile

.

0123movie.net