Msgbox font increase

  • Thread starter Thread starter Jay
  • Start date Start date
I am not sure but you can create a custom msgbox by creating a form that pops
up when something is trigered.
 
Can the Msgbox font be increased and how if so.
Click to expand...

Only if you change the master settings for the message box for all
Windows and Office Application.
Right- lick on a blank section of the Windows Desktop.
Select Properties + Appearance + Advanced.
Find the Message Box in the drop down.

I would suggest that rather than change the settings for all
applications, you create your own, unbound form to be used as a
message form.
Add a Label control and a Text control as well as 2 command buttons.
Name them cmdYes and cmdNo

You can set the font style, size, color, etc., however you wish.

Code the cmdYes button's click event:
TextControlName = 1
Me.Visible = False

Code the cmdNo click event:
TextControlName = 2
Me.Visible = False

You would then open the form, using:

Dim strMessage as String
strMessage = "This is your message"
DoCmd.OpenForm "MessageFormName", , , , , acDialog, strMessage

If forms!MessageFormName!TextControlName = 1 then
' Do the Yes thing
Else
'Do the No thing
End If

DoCmd.Close acForm,"MessageFormName"

Code the Load event of the message box form:
LabelName.Caption = Me.OpenArgs

When the form is opened processing waits (just like a MsgBox) until
you click either command button. Then the Yes or No action will be
taken and the form closed.
 
fredg said:
Only if you change the master settings for the message box for all
Windows and Office Application.
Right- lick on a blank section of the Windows Desktop.
Select Properties + Appearance + Advanced.
Find the Message Box in the drop down.

I would suggest that rather than change the settings for all
applications, you create your own, unbound form to be used as a
message form.
Add a Label control and a Text control as well as 2 command buttons.
Name them cmdYes and cmdNo

You can set the font style, size, color, etc., however you wish.

Code the cmdYes button's click event:
TextControlName = 1
Me.Visible = False

Code the cmdNo click event:
TextControlName = 2
Me.Visible = False

You would then open the form, using:

Dim strMessage as String
strMessage = "This is your message"
DoCmd.OpenForm "MessageFormName", , , , , acDialog, strMessage

If forms!MessageFormName!TextControlName = 1 then
' Do the Yes thing
Else
'Do the No thing
End If

DoCmd.Close acForm,"MessageFormName"

Code the Load event of the message box form:
LabelName.Caption = Me.OpenArgs

When the form is opened processing waits (just like a MsgBox) until
you click either command button. Then the Yes or No action will be
taken and the form closed.
Click to expand...

OK. I will use both.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Change the color of each capital letter in a rich text memo field. 0
Msgbox Function - increase font size? 1
Access 2007 font size increases on my Windows 7 computer 3
Happy Birthday Historian! 8
crazt font stuff 2
Access DLOOKUP with IF Function in MS ACCESS DB 0
Increase the font size in message box. 2
Access Access DLookup Function – more than 1 criteria 0

Back
Top