Deleting current record using VBA

[Kivan]

Hi,

I would like to create a delete button in my form. But before the record will be deleted I want to force user to confirm that he really want to delete it. So obviously I need a checkbox, but I dont know how to write delete function in it. I know it should be like this.

Private Sub DeleteButton_Click()
If MsgBox(Prompt:="My question", Buttons:=vbYesNo) = vbYes Then
 
Else

End If
End Sub

Yes I know it is very easy problem and maybe that's why I couldnt have found a solution for it and I dont know anything about VBA.
Thanks for your time .

[June7]

Try:

Private Sub DeleteButton_Click()
If MsgBox(Prompt:="My question", Buttons:=vbYesNo) = vbYes Then
CurrentDb.Execute "DELETE FROM tablename WHERE ID=" & Me.ID
Else
MsgBox "Delete canceled"
End If
End Sub

Probably want to deal with keyboard delete key so users can't delete record that way. Use form BeforeDelConfirm event to intercept that key input. http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

[Kivan]

Thank you for your reply.

No I dont want to deal with keyboard button. The button I deal with is placed on a form. Your soultion looks good but I'm getting error and I have no idea how to solve it. The error:

Run-time error '3061'.
Too less parameters. Expected 1.

And the code.

Private Sub Delete_Click()
If MsgBox(Prompt:="My question", Buttons:=vbYesNo) = vbYes Then
CurrentDb.Execute "DELETE FROM Users WHERE ID=" & Me.IdUser
Else
MsgBox "Delete canceled"
End If
End Sub

Any idea?

Edit: Ah ok I solved it already. Forgot to change where Id to IdUser.

Thanks a lot . Problem Solved.

[June7]

Do you want user able to delete with the keyboard Delete key? If you don't intercept that key input they can delete record without the verification unless maybe you have the form property AllowDeletion set to No.

No need for checkbox unless you want to allow selection of multiple records for deletion. In which case the checkbox would have to bound to a yes/no field in table.

BTW, this syntax works for the MsgBox: MsgBox("My question", vbYesNo+vbQuestion) = vbYes