Dialog Box Access 2003

i have the following codes..
is there anyway i can change the font size of the messages in my msgbox?
i am using access 2003

Dim resp As String

resp = MsgBox("You are about to Open Joint Venture, " & _
"DRAWING Menus." & _
vbCrLf & " " & _
vbCrLf & "Would you like to Continue?", vbYesNo +
vbInformation, " Engineering Database")

If resp = vbNo Then
DoCmd.CancelEvent

Else
DoCmd.OpenForm "Drawings", , , , , acWindowNormal
End If

hope any1 out there is kind to help me

thanks

On Sep 11, 5:52*am, Denver wrote:
i have the following codes..
is there anyway i can change the font size *of the messages in my msgbox?
i am using access 2003

Dim resp As String

resp = MsgBox("You are about to Open Joint Venture, " & _
* * * * * * * "DRAWING Menus." & _
* * * * * * * vbCrLf & " " & _
* * * * * * * vbCrLf & "Would you like to Continue?", vbYesNo +
vbInformation, " Engineering Database")

* * If resp = vbNo Then
* * DoCmd.CancelEvent

* * * * Else
* * * * DoCmd.OpenForm "Drawings", , , , , acWindowNormal
* * * * End If

hope any1 out there is kind to help me

thanks

I guess you could write your own function that opens a custom form,
but other than that, I don't think so.

On Thu, 11 Sep 2008 03:52:01 -0700, Denver wrote:

i have the following codes..
is there anyway i can change the font size of the messages in my msgbox?
i am using access 2003

Dim resp As String

resp = MsgBox("You are about to Open Joint Venture, " & _
"DRAWING Menus." & _
vbCrLf & " " & _
vbCrLf & "Would you like to Continue?", vbYesNo +
vbInformation, " Engineering Database")

If resp = vbNo Then
DoCmd.CancelEvent

Else
DoCmd.OpenForm "Drawings", , , , , acWindowNormal
End If

hope any1 out there is kind to help me

thanks

Only if you change the master settings for the message box for ALL
Windows and Office Applications.
Right- click on a blank section of the Windows Desktop.
Select Properties +Appearance + Advanced.
Find the Message Box in the drop down.
Make the font size change.

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.

You can customize the message as needed.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

thanks a lot 'fredg' and 'pietlindin'....
this is very helpful to me as new to access 2003....

denver

"fredg" wrote:

On Thu, 11 Sep 2008 03:52:01 -0700, Denver wrote:

i have the following codes..
is there anyway i can change the font size of the messages in my msgbox?
i am using access 2003

Dim resp As String

resp = MsgBox("You are about to Open Joint Venture, " & _
"DRAWING Menus." & _
vbCrLf & " " & _
vbCrLf & "Would you like to Continue?", vbYesNo +
vbInformation, " Engineering Database")

If resp = vbNo Then
DoCmd.CancelEvent

Else
DoCmd.OpenForm "Drawings", , , , , acWindowNormal
End If

hope any1 out there is kind to help me

thanks

Only if you change the master settings for the message box for ALL
Windows and Office Applications.
Right- click on a blank section of the Windows Desktop.
Select Properties +Appearance + Advanced.
Find the Message Box in the drop down.
Make the font size change.

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.

You can customize the message as needed.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail