PDA

Vollständige Version anzeigen : Datensatz löschen !


matze
01.02.2001, 12:45
Hallo,
eine ganz einfache Sache, ich möchte gerne einen Datensatz löschen, davor soll noch eine Abfrage erscheinen, ob auch wirklich gelöscht werden soll.

Danke

MarkusR
01.02.2001, 12:59
Im Formularereigniss "Beim Löschen" eine Ereignisprozedur:

Private Sub Form_Delete(Cancel As Integer)
if vbno=msgbox("Soll wirklich gelöscht werden?",vbyesno+vbquestion,"Löschen) then
cancel=true
end if
End Sub


Gruß

Markus

matze
02.02.2001, 07:31
Hmm, und wo wird nun der Datensatz gelöscht ??

Ras
02.02.2001, 11:29
Der Datensatz wird in der Symbolleiste gelöscht...
Falls Du einen Button verwendest, kannst Du
dem Ereignis bei Klick folgenden Code
eintragen, passe bitte die Einträge DeineTabelle und DeineID entsprechend an.

Falls Dein ID-Feld eine Zeichenkette, also keine Zahl ist, muss die Zeile
SuchKrit = "[DeineID] = " & Me![DeineID]
wie folgt geändert werden:
SuchKrit = "[DeineID] = " & "'" & Me![DeineID] & "'"

Private Sub DatensatzLöschen_Click()
On Error GoTo Err_DatensatzLöschen
Dim rst As Recordset
Dim db1 As Database
Dim SuchKrit, Meldung As String
Set db1 = CurrentDb()
SuchKrit = "[DeineID] = " & Me![DeineID]
Set rst = db1.OpenRecordset("DeineTabelle", dbOpenDynaset)
rst.FindFirst SuchKrit
Meldung = "Der markierte Datensatz wird vollständig gelöscht !" & Chr$(13) & "Soll jetzt gelöscht werden ?"
If MsgBox(Meldung, 4 + 16, "Datensatz löschen ?") = 6 Then rst.Delete 'Datensatz löschen
Exit_DatensatzLöschen:
Exit Sub
Err_DatensatzLöschen:
MsgBox Err.Number & ", " & Err.Description
Resume Exit_DatensatzLöschen
End Sub

Okillydokilly...