Msgbox font size

[GraeagleBill]

Is it possible to increase the font size used in Msgbox? I don't see anything in Client Settings.

[isladogs]

I can't just write No as the message would be too short!

To do this, you have to create your own replacement form
However you can use the Eval function to make the first section BOLD :



If that looks useful, let me know & I'll provide the code needed

[GraeagleBill]

I was reluctant to write my own replacement form simply because, if there's a way to do it, I don't know how to pass back to the point of launching of a popup form the user action. I suppose I could use a global variable to effect such communication but I was hoping there was a way to tell Access to increase the size of the text. And yes, please post the code so I can have a look at what you've done.

You realize, of course, that "Old Geezers" don't see as well as they used to

[June7]

I was curious so did research. Tested in the Immediate window:

?Eval("MsgBox ('Test@@test', " & vbOkayOnly & ")")

Apparently has to use the MsgBox function - MsgBox(), not just the simple MsgBox.

I have used my own form. Variety of methods available to pass back selected value. Can set a global variable, TempVars, or code populates a textbox on the calling form.

[isladogs]

The syntax is messy so I use a function to make it simpler to work with
Place this in a standard module:

Public Function FormattedMsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ 
        Optional title As String = vbNullString, Optional HelpFile As Variant, Optional Context As Variant) As VbMsgBoxResult

On Error GoTo Err_Handler
 
 'Taken from http://www.trigeminal.com/usenet/usenet015.asp
 
    If IsMissing(HelpFile) Or IsMissing(Context) Then
      'NOTE: I NEVER use this section - it could be omitted
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & title & """)")
    Else
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & title & """, """ & _
         HelpFile & """, " & Context & ")")
    End If
    
    'Examples:
    'section before @@ is in BOLD followed by blank line
    'strPrompt = "Import completed@@" & strPrompt
    'FormattedMsgBox strPrompt, vbInformation + vbOKOnly, "Contact import completed"
    'FormattedMsgBox "Bold text here!@First line normal text.@Second line normal text.",vbOKOnly + vbExclamation, "Box Title"
    
Exit_Handler:
    Exit Function

Err_Handler:
   'various obscure errors which you may never experience
    If err = 5 Or err = 13 Or err = 94 Or err = 2465 Then Exit Function
    
    strProc = "FormattedMsgBox"
    MsgBox "Error " & err.Number & " in " & strProc & " procedure : " & vbCrLf & "   - " & err.description
    
    Resume Exit_Handler
    
End Function

Then in the immediate window type this to get the message box I showed before:

FormattedMsgBox "Bold text for important text here!" & _
"@First line normal text. " vbCrLf & _vbCrLf & _
"Second line normal text. @",vbOKOnly + vbExclamation, "Formatted Message Box Title"

One other nice thing about it is that you can widen the formatted message box by leaving deliberate spaces at the end of lines.
That doesn't work in a standard message box

For customised message boxes (and other ways of getting user's attention), see this example database: https://www.accessforums.net/showthread.php?t=69858

[GraeagleBill]

I have used my own form.

I'm inclined to write such a form when I can break away from what's currently "on my plate".

Thank,
Bill

[GraeagleBill]

Thanks, like I posted to June7, I'll write a popup form to handle most of my situations when I can create some time.
Bill

[isladogs]

I forgot to mention that you can of course enlarge message boxes along with every other Windows feature by increasing the scaling from 100% in Windows settings / control panel
I just tried 175% & the message box was large!
The maximum is 500%