NewData question

[Paul Cooke]

hi guys

could someone tell me if it possible to BOLD "NewData" in VB?

the following is part of a msgbox

& vbCrLf & vbCrLf & Chr(34) & NewData & Chr(34) & vbCrLf & vbCrLf & _

what I want is for the newdata to be be BOLD in the msgbox when it appears - is this poossible? if so how !!

many thanks

 

[DCrake]

Try this user Defined one

Public Function FMsgBox(Prompt As String, _
              Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
              Optional Title As Variant = "", _
              Optional HelpFile As Variant, _
              Optional Context As Variant) As Variant
              
    On Error Resume Next
    If Nz(Title, "") = "" Then
        Title = CurrentDb().Properties("AppTitle")
    End If
    On Error GoTo Err_MsgBox

    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FMsgBox = Eval("MsgBox(""" & Prompt & """, " & Buttons & ", """ & Title & """)")
    Else
        FMsgBox = Eval("FMsgBox(""" & Prompt & """, " & _
                    Buttons & ", """ & Title & """, """ & _
                    HelpFile & """, " & Context & ")")
    End If
Exit_MsgBox:
    Exit Function
Err_MsgBox:
    MsgBox = VBA.MsgBox(Prompt, Buttons, Title)
    GoTo Exit_MsgBox
End Function

To use
Call FMsgBox("Hello world@Hello world@")

 

[Paul Cooke]

Many thanks David for the reply

On the basis I'm very new to this could you tell me where I would actually put this code and how would I ensure 'my text' was in it?


Thanks again

Paul