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
|