Is it possible to have a 'Delete' and 'Close' button on a form

  • Thread starter Thread starter sea_minerals
  • Start date Start date
S

sea_minerals

Am i able to put a buttom on a form that says Delete and one that says
Close.

So after people finish entering in details through the form they can
click on a 'Close' button.

When they want to delete a client they can press the 'Delete' button.
But have it to say "Are you sure you want to delete this entry" or
something.

Can a form also have a "Add Another Entry" on a form. They enter one,
then click that button to add another.

I know there are buttons for this, but im trying to make it extremely
basic for people to use (not many people know how to use access). It
doesn't matter if this is not possible!



Thanks for any help.
 
not many people know how to use access ?????
________________________

So after people finish entering in details through the form they can
click on a 'Close' button.
Click to expand...

Private Sub ButtonName_Click()
DoCmd.Close
End Sub

________________________
When they want to delete a client they can press the 'Delete' button.
But have it to say "Are you sure you want to delete this entry" or
something.
Click to expand...

Private Sub ButtonName_Click()
Msg = "Are you sure you want to delete this record?"
Style = vbYesNo
title = "Record Delete"
responce = MsgBox(Msg, Style, title)
If responce = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
End Sub

________________________
Can a form also have a "Add Another Entry" on a form. They enter one,
then click that button to add another.
Click to expand...

Private Sub ButtonName_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
 
"Better" is - At least turning off & on the warnings to avoid 2 confirmation
questions <g>

Private Sub ButtonName_Click()
If MsgBox ("Are you sure you want to delete this record?", vbYesNo +
vbQuestion, "Record Delete") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCmd acCmdDeleteRecord

DoCmd.SetWarnings True
End If
End Sub

HTH

Pieter
 
Back
Top