On Mon, 12 Mar 2007 17:56:38 -0400, MLH wrote:
Quote:
Without modifying the default font settings everywhere, is there any
way to specify it for just message boxes?
>
MsgBox "I would like this text to be larger for all message boxes."
>
???
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.
Change it's Font size there.
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.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail