Solved msg box vlookup

[TipsyWolf]

hey guys, hope u r doing well today.
i have a vba code with dialog pop up like

If Me.DueDate < Date Then
    rtn = MsgBox("Due date is in the past. Verify this is correct. If correct select OK if not select CANCEL", vbOKCancel, "Verify Date")

so i created a table

how do i vlookup non-english txt it in my vba ? i know there is no vlookup in access, but still though

 

[isladogs]

You would use DLookup in Access

You can use non-English text in the VBE and in message boxes as long as it is based on Latin character sets e.g. German, Spanish, Italian but not languages such as Japanese, Bengali, Arabic.

However my FormattedMagBox example app can also handle Unicode characters:

Formatted Message Box

This function allows bold text in a standard message box as well as standard features such as message box icons and more than one button. It uses the Eval function to format the first part of the code in BOLD text

www.isladogs.co.uk

For example:

 

[TipsyWolf]

However my FormattedMagBox example app can also handle Unicode characters:

i've looked at it and either i didn't find it or just simple didn't get it.

isn't the simple way to do something like this ?

 If Me.DueDate < Date Then
    rtn = MsgBox(DLookup("nonEnglishMsgBoxTxt", "Tmsgbox", "ID=1"), vbOKCancel, "Verify Date")

but for some reason it doesnt work

 

[Gasman]

So what is the name of that table?

 

[TipsyWolf]

So what is the name of that table?

Tmsgbox

 

[LarryE]

i've looked at it and either i didn't find it or just simple didn't get it.

isn't the simple way to do something like this ?

 If Me.DueDate < Date Then
    rtn = MsgBox(DLookup("nonEnglishMsgBoxTxt", "Tmsgbox", "ID=1"), vbOKCancel, "Verify Date")

but for some reason it doesnt work
View attachment 116014

Try:
MsgBox (DLookup("nonEnglishMsgBoxTxt", "Tmsgbox", "msgboxID=1"), vbOKCancel, "Verify Date")
The ID is msgboxID, not ID

 

[isladogs]

One set of brackets too many:

MsgBox DLookup("nonEnglishMsgBoxTxt", "Tmsgbox", "msgboxID=1"), vbOKCancel, "Verify Date"

As already explained, my FormattedMsgBox is only needed if you use a language with a Unicode character set

 

[TipsyWolf]

i thought it could read non-unicode...

 

[arnelgp]

but for some reason it doesnt work

check again your table name and plug the correct one to your dlookup()

 

[isladogs]

i thought it could read non-Unicode...

What does 'it' refer to here? Standard MsgBox or FormattedMsgBox?

To repeat, a standard message box cannot handle Unicode characters:
MsgBox DLookup("NonEnglishText", "tblTest", "MsgID = 1"), vbOKOnly, "JapaneseText"

This is the same message as a formatted message box:
FormattedMsgBox DLookup("NonEnglishText", "tblTest", "MsgID = 1"), vbOKOnly, "JapaneseText"

This is the data source used for both of those above

 

[TipsyWolf]

What does 'it' refer to here? Standard MsgBox or FormattedMsgBox?

it was for standard

To repeat, a standard message box cannot handle Unicode characters:

got it now! thank you.

FormattedMsgBox

for some reason it doesnt work for me...

my data source

once i remove the word "formatted" it works , but can't display unicode. so the problem is ... it just doesnt like when i add "formatted".

 

[Gasman]

You have to Import isladog's function?

 

[arnelgp]

isladog's function?

now it becomes his dr. frankentein?

 

[TipsyWolf]

You have to Import isladog's function?

oh.. .i didn't ! damn. i feel so dummy right now.

now i did and everything works like magic !! thank you very much guys ! !

 

[TipsyWolf]

@isladogs thank you for your help, Sir!

 

[TipsyWolf]

You have to Import isladog's function?

btw, if there is a way to move part of txt which is in NonEnglishText to 2nd line ?
like & vbCrLf &

 

[TipsyWolf]

oh got it ! , just need to & in prompt string after dlookup ends

 

[isladogs]

If you want, you can use bold text for the first part of the message. Read the article to find out how to do so.