|
Manufacturing Information Solutions Your Place for Support and Discussions
|
View previous topic :: View next topic |
Author |
Message |
BIGmiralli Frequent Poster
Joined: 17 Apr 2007 Posts: 38 Location: Boston, Massachusetts
|
Posted: Fri Jan 04, 2008 11:54 am Post subject: Delete Confirmation |
|
|
Hello every one, how can I have a delete routine with my own message rather than having the Access promt?
Thanks.
________
Indica strains
Last edited by BIGmiralli on Wed Feb 16, 2011 10:40 am; edited 1 time in total |
|
Back to top |
|
|
JoeM Master Poster
Joined: 09 Jul 2004 Posts: 122 Location: Jackson Hole, Wyoming USA
|
Posted: Fri Jan 04, 2008 11:58 am Post subject: |
|
|
Delete Confirmation
This code prompts the user if they realy want to delete a record
Code: | Sub btn_Delete_Click ()
On Error GoTo Err_btn_DeleteElement_Click
'**This whole section just prompts the user if they realy want to delete the record.
DoCmd SetWarnings False '**Turns warning message off
Const MB_OK = 0, MB_OKCANCEL = 1 '** Define buttons.
Const MB_YESNOCANCEL = 3, MB_YESNO = 4
Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32 '** Define icons.
Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
Const MB_DEFBUTTON2 = 256, IDYES = 6, IDNO = 7 '** Define other.
title = "Think About What You Are Doing"
'** Put together a sample message box with all the proper components.
Msg = "Are you sure you want to DELETE this Tool?" '**Chnage this to fit your needs
Msg = Msg & " If so, click Yes"
DgDef = MB_YESNO + MB_ICONSTOP + MB_DEFBUTTON2 '** Describe dialog box.
Response = MsgBox(Msg, DgDef, title) '** Get user response.
If Response = IDYES Then '** Evaluate response
Msg = "The record WAS deleted." '** and take appropriate
'Version 2
' DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20
' DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else '** Take action.
Msg = "You chose No or pressed Enter, the recorord will not be deleted."
End If
title = ""
Response = MsgBox(Msg, , title) '** Display action taken.
DoCmd SetWarnings True '**Turns Warning back on
Exit_btn_DeleteElement_Click:
Exit Sub
Err_btn_DeleteElement_Click:
MsgBox Error$
Resume Exit_btn_DeleteElement_Click
End Sub |
Just change your messages and titles and you should be good. |
|
Back to top |
|
|
dawn Master Poster
Joined: 26 Jun 2004 Posts: 311 Location: Mishawaka, IN
|
Posted: Fri Jan 04, 2008 12:39 pm Post subject: |
|
|
There are two slight differences in versions later then Access 2.0 in your Delete Confirmation code:
Code: | DoCmd.SetWarnings False '**Turns warning message off | and Code: | DoCmd.SetWarnings True '**Turns Warning back on |
Note the period in: DoCmd.SetWarnings _________________ Dawn Mitchell
Manufacturing Information Solutions
www.mis-group.com |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|