how to insert in MsgBox string value from TextBox or ComboBox

[eugzl]

Hi All.
In my form I check duplicate value before save record.

            If DCount("*", "tblBrands", "Brand ='" & !Brand & "'") > 0 Then
                MsgBox "Brand already exist. Please enter a different Brand.", vbOKOnly
                SetSaveClose Me, False
                Exit Sub

Is it possible to insert Brand value into message box. I tried like this:

MsgBox "Brand " & txtBrand.Text & " already exist. Please enter a different Brand."

But error message:

How to fix the problem?


Thanks.

[Welshgasman]

Do not use the Text property. As the error states, to access that property that control must have the focus.
I would always use Me.txtBrand as well ?

[eugzl]

Hi Welshgasman. Thanks for reply.
Is it possible to make Me.txtBrand bold font or change color in MsgBox? If yes. How it to do?

Thanks.

[Welshgasman]

Not that I am aware of. There is an enhanced msgbox, but I have never used it, so not sure what can be done with it? Surround the brand with * or Google for it.

[eugzl]

I found online function to change font in a message box:

Public Function TestBoldMsgBox()
 
    Dim MsgBold As String
    Dim MsgNormal As String
 
    MsgBold = "This is a Bold Message"
    MsgNormal = "This is a  Normal Message"
 
    Debug.Print Eval("MsgBox ('" & MsgBold & vbNewLine _
    & "@" & MsgNormal & "@@', " & vbOKOnly & ", 'Testing Bold')")
 
End Function

But cannot figure out how to implement it in my case. Please help.

Thanks

[CJ_London]

where did you find it? it may not be appropriate for VBA

you can always use the title parameter as an attention getter plus you have the option to display various images

see this link about what you can do with a msgbox in access
https://support.microsoft.com/en-us/...6-ba9f1749f4c0

[eugzl]

Hi Ajax.
Take look https://bytes.com/topic/access/answe...01-bold-msgbox

[Welshgasman]

Works for me?
What are you confused with?

[eugzl]

I'm new in VBA and don't know how implement this function in code that I display in first post. I will appreciate if you show how it to do.

Thanks.

[Welshgasman]

Use it just as shown in place of your msgbox code. Change parameters to suit.

[CJ_London]

have the function return a value

Public Function TestBoldMsgBox() As Integer
 
    Dim MsgBold As String
    Dim MsgNormal As String
 
    MsgBold = "This is a Bold Message"
    MsgNormal = "This is a  Normal Message"
 
    TestBoldMsgBox = Eval("MsgBox ('" & MsgBold & vbNewLine _
    & "@" & MsgNormal & "@@', " & vbYesNoCancel & ", 'Testing Bold')")
 
End Function

? TestBoldMsgBox()
6 --vbYes
7--vbNo
2--vbCancel

so in your vba code you might have

if TestBoldMsgBox() =vbyes then 'do something

or

select case TestBoldMsgBox()
  case vbYes
  
  case vbNo

  case cvCancel

End Select

you might want to change the name of the function to something more relevant and include parameters for the different parts of the message

[ssanfu]

If you really want a custom message box, create your own using a dialog form.
Youtube video How to Create Custom Message box in Microsoft Access?
Kind of simplistic and the music irritated me, but demonstrates the idea.
Could pass in a parameter for custom messages using OpenArgs....


Also look at custom message box
Read the 3rd message by Wayne Gillespie.


And I found a really interesting site Improved, Enhanced Message Box Replacement for MS Access
I haven't tried this or even downloaded it....yet.
It states "This project provides a custom and enhanced message box replacement for the default MsgBox found in Access."