On Mon, 12 Mar 2007 17:56:38 -0400, MLH wrote:
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