PDA

Vollständige Version anzeigen : Löschen von markierten Datensätzen im Uform


horse79
04.11.2001, 07:54
Hi folks,

wie kann ich per Code über nen Button die vom User markierten Datensätze im Uform löschen?

Merci

Maximilian
04.11.2001, 08:24
Hallo Sven,

Ich habe im Endlosformular einen Button eingefügt und mit folgendem Code hinterlegt:

Private Sub DeinButton_Click()
On Error GoTo Err_DeinButton_Click

Dim Meldung As String
If Not IsNull(Forms![DeinFormular].[DeinUnterformular]!DeinSteuerelement) Then
Meldung = "Die gewählten Daten werden vollständig gelöscht !" & Chr$(13) & _
"Soll jetzt gelöscht werden ?"

If MsgBox(Meldung, 4 + 16, "Datensatz löschen ?") = 6 Then
CodeDb.Execute "Delete from [DeineTabelle] Where [DeinPrimärschlüssel]=" & [DeinPrimärschlüssel]
Me.Requery

Exit_DeinButton_Click:
Exit Sub

Err_DeinButton_Click:
MsgBox Err.Description
Resume Exit_DeinButton_Click

End If
End If
End Sub

schönen Sonntag,
Max

horse79
04.11.2001, 09:04
Merci,

hab den Code übernomme, aber bei mir wird jeder Datensatz gelöscht? Wie werden nur die markierten im Uform gelöscht?

horse79
04.11.2001, 09:53
mittlerweile klappt das.