bevestiging verwijder knop

[Dencar77]

Dag allen,

ik maak in een formulier een standaard verwijderknop.
Nu wil ik graag dat wanneer iemand deze knop indrukt dat er eerst een bevestiging gevraagd wordt voordat de record verwijderd wordt.
Welke vba code kan ik daarvoor gebruiken?

 

[OctaFish]

Met een Msgbox kun je de vraag stellen of de record verwijderd moet worden. Zo Nee: Cancel = True als opdracht laten uitvoeren.

 

[Dencar77]

Dus ik creeer de verwijder button en dan in de vba voeg ik de msg toe, een vbyesno versie. Bij yes dan verwijdert deze de record en anders doet hij niets..?

 

[OctaFish]

Ja. Het antwoord vang je met een IF af:

IF MsgBox(tekst) =  VbNo THEN Cancel = True

 

[Dencar77]

top, bedankt

ik heb onderstaande code toegepast en werkt prima. Naam van de knop is Knop595, kon ook Btnverwijder of zo zijn.
Had je dit als code bedoeld, Michel?

Private Sub Knop595_Click()
On Error GoTo Err_Knop595_Click
Dim Answer As Integer

Answer = MsgBox("Weet u het zeker dat je deze record wilt verwijderen?", vbYesNo + vbExclamation + vbDefaultButton2, "Bevestig verwijder record")
If Answer = vbYes Then
DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True

Else

End If

Exit_Knop595_Click:
    Exit Sub

Err_Knop595_Click:
    DoCmd.SetWarnings True
    MsgBox Err.Description
    Resume Exit_Knop595_Click
    
End Sub

 

[Dencar77]

Ik zie alleen dat in de tabel de verwijderde record

#verwijderd

heeft. Hoe is dat op te lossen dat wanneer je een record verwijderd dat deze ook in de tabel niet meer te zien is?