Solved: Rename Message Box Buttons

I'm using VBA and Access to do some automation stuff. I've got a few message boxes, like this one, where I list options in text and tell the User which button to press for the option.

[vba]
Function MessageBox()
MsgBox "What do you want to do next?" & _
vbCrLf & vbCrLf & "Press OK to print report" & _
vbCrLf & vbCrLf & "Press Cancel to quit", vbInformation + vbOKCancel, "Print or Quit?"

End Function

[/vba]

I would prefer to just rename the buttons on the message box so that:
OK = Print Report
Cancel = Quit

Any way to do this?

Just use a form for a custom message box

Quote:

---

Originally Posted by Carl A

Just use a form for a custom message box

---

I know that I can use a form for this. I'm just curious to know if it is possible to rename the buttons on a message box.

Quote:

---

Originally Posted by CreganTur

I know that I can use a form for this. I'm just curious to know if it is possible to rename the buttons on a message box.

---

I don't think you can rename the buttons on a message box, but here is a great link for forms and samples.
http://www.fontstuff.com/access/acctut20.htm

I've built you this Example for a Custom Message Box
It uses a Class to do the donkey work:

e.g.
[vba]Public Function TestMyMessageBox() As Integer

Set MyMsgBox = New cls_MessageBox
With MyMsgBox
'// you can have any combinations of buttons(up to 3!)
.Button1Text = "Print Report"
.Button2Text = "Quit"
'.Button3Text = "3rd Button" '// not used here
.BoxStyle = Information
.Prompt = "Testing my MyMsgBox"
.Title = "Title here"
End With
TestMyMessageBox= MyMsgBox.MessageBox '// Loads MessageBox

End Function[/vba]
Now you can have any button text you like.

the return is the button number(read: Left to Right).
Enjoy,

=DarkSprout=

unfortunity you cannot rename the button for message boxes, I've searched and tried myself and found that you are stuck with : vbok, vbokonly, vbyesno,vbyesnocancle ( and vbdefalt, 1 ,2, 3 witch is the same as above, but your stuck with buttons, yes, no, ok, cancel , you will havd to use a make a form based apon what responce you are looking for
ie: dim responce as string
responce = msg(" msg here")
if responce = vb yes Then
[Contition]
else [condition]
End if
end sub

Quote:

---

Originally Posted by CreganTur

I know that I can use a form for this. I'm just curious to know if it is possible to rename the buttons on a message box.

---

See the message from DarkSprout. He created a class module that will allow you to have customized buttons, title etc.
Download his sample database; copy his class module, then set up your usage to use his class module substituting your values for his sample values that he showed in his post.

sorry , I missed his post when I was posting, I see it now :-p thanks

Thanks Darksprout- exactly what I was looking for!

Quote:

---

Originally Posted by DarkSprout

I've built you this Example for a Custom Message Box
It uses a Class to do the donkey work:
=DarkSprout=

---

Works fine in Access 2000, however it totally pukes in 2007. I can't tell you what the problem is because the only option I'm left with after clicking either button is to use Windows Task Manager to shut Access down. I put a break in the code and that doesn't even work.

The Error is The Expression OnClick you entered as the event property setting Produced the following Error: The expresssion you entered has a function name that Microsoft Office Access can't find.
Any Ideas?

Error - See Next...:banghead:

The ClickEvent sends a numeric parameter (1,2,3) to a Sub called Response

Change these to an OnClick Event
eg.
[vba]
Private Sub cmbd1_Click()
Call Response(1)
End Sub
[/vba]
And the Same for cmbd2 and cmbd3 - sending 2 or 3.

Hope this helps,
=DarkSprout=

Hi.
If I want the button1 open the form1
and button2 open the form2
how can I do it ?
thank you

Hi DarkSprout,
If I want the Cmbd1 open the form1
and Cmbd2 open the form2, and Cmbd3 exit
how can I do it ?
thank you

To use the example I supplied above:

[vba]
Public Function TestMyMessageBox()
Dim nResult As Integer
Set MyMsgBox = New cls_MessageBox
With MyMsgBox
'// you can have any combinations of buttons(up to 3!)
.Button1Text = "Print Report"
.Button2Text = "Quit"
'.Button3Text = "3rd Button" '// not used here
.BoxStyle = Information
.Prompt = "Testing my MyMsgBox"
.Title = "Title here"
End With
nResult = MyMsgBox.MessageBox '// Loads MessageBox

Select Case nResult
Case 1:
DoCmd.OpenForm "frm_Form1"
Case 2:
DoCmd.OpenForm "frm_Form2"
Case 3:
DoCmd.Close
End Select
End Function[/vba]

Would you mind attaching the class module for this? I can't find it in the thread.

Thanks.

Quote:

---

Originally Posted by DarkSprout

To use the example I supplied above:

[vba]
Public Function TestMyMessageBox()
Dim nResult As Integer
Set MyMsgBox = New cls_MessageBox
With MyMsgBox
'// you can have any combinations of buttons(up to 3!)
.Button1Text = "Print Report"
.Button2Text = "Quit"
'.Button3Text = "3rd Button" '// not used here
.BoxStyle = Information
.Prompt = "Testing my MyMsgBox"
.Title = "Title here"
End With
nResult = MyMsgBox.MessageBox '// Loads MessageBox

Select Case nResult
Case 1:
DoCmd.OpenForm "frm_Form1"
Case 2:
DoCmd.OpenForm "frm_Form2"
Case 3:
DoCmd.Close
End Select
End Function[/vba]

---

i tried to use it but i get compile error on cls_MessageBox

i dont know where is the proble

Quote:

---

Originally Posted by hima193

i tried to use it but i get compile error on cls_MessageBox

i dont know where is the proble

---

I think that somewhere over the years since this post was started Darksprout has removed the code for his class module.
If he happens to pass by he may post a copy.
You may find something via google or bing.

thanx for sharing this article.is most important when user is create account in website.