RunTime error 2471 with DLOOKUP

[Josef P.]

@The_Doc_Man: deprecated in VB.NET.

 

[JoséBob]

Do I understand you correctly: This text "Text, Text, Text" " & vbNewLine & vbNewLine & "Text" can be read exactly like this in the text field of the table?
Then it is also displayed in exactly the same way in the message text. vbNewLine is then just a text.
Why is it stored like this? The text to be output would be easier to use.

But let's take a look at the current situation purely in VBA:

Private Sub Test()

    Dim NewMsgBoxTxt As String
   
    NewMsgBoxTxt = """Text, Text, Text"" "" & vbNewLine & vbNewLine & ""Text"""
    Debug.Print NewMsgBoxTxt
    MsgBox NewMsgBoxTxt
   
' fix to correct vba code inside string:
    NewMsgBoxTxt = """Text, Text, Text"" & vbNewLine & vbNewLine & ""Text"""
    Debug.Print NewMsgBoxTxt
    MsgBox NewMsgBoxTxt
    MsgBox Eval(Replace(NewMsgBoxTxt, "vbNewLine", "chr(13) & chr(10)"))

End Sub

As stated before in the thread I have several translation stored in a table. One on the many translation is to be displayed through msgbox. I have some text with linebreaks for clarity. Something of the sort :

Text, text, text​

​

Text​

So, in my table I have written the string I thought I could pass as variable in the form "Text, Text, Text" " & vbNewLine & vbNewLine & "Text"
If this works using declared variables in VBA as in

NewMsgBoxTxt = "Text, Text, Text" " & vbNewLine & vbNewLine & "Text"
MsgBox NewMsgBoxTxt

it doesn't when the string is fetched from the table using dlookup and shows only "Text, Text, Text" " & vbNewLine & vbNewLine & "Text"

 

[Gasman]

Why not just have those fields as long text and actually put the CRLF in the field?

Or, if you have to stick with what you are trying....

tt= dlookup("description","twgonder","ID=2")
? tt
test , text , tert  vbnewline  vbnewline  test
msgbox tt
msgbox replace(tt,"vbnewline",vbcrlf)

 

[cheekybuddha]

@Doc - your link is not about vba

Attributes
ObsoleteAttribute​

Applies to​

Core 1.0, Core 1.1, Core 2.0, Core 2.1, Core 2.2, Core 3.0, Core 3.1, 5, 6, 7, 8, 9, 10

1.1, 2.0, 3.0, 3.5, 4.0, 4.5, 4.5.1, 4.5.2, 4.6, 4.6.1, 4.6.2, 4.7, 4.7.1, 4.7.2, 4.8, 4.8.1

10.0

[th]

Product​

[/th][th]

Versions​

[/th]​

[th]

.NET​

[/th]​

[th]

.NET Framework​

[/th]​

[th]

UWP​

[/th]​

​

See also​

 

[cheekybuddha]

See the applies to section in your link

The table got messed up on pasting

 

[The_Doc_Man]

David, the second part of my post was right, though. I've never had issues when using vbCrLf.

 

[cheekybuddha]

I've never had problems using vbNewLine

 

[JoséBob]

Hi,
in the end, I used a very un-nice way for the multilingual UI : I have on my main form a dropdown menu for selecting the language. On Dirty, it'll reload the form and all the Captions of the elements on the form will get their new value from a table. I have coded a line that "dlookup" every Caption of every Labels and buttons and gives them a new value.
What takes me the longest is to find all the Label's and button's Name and link then to what the Caption should be.
I also had issue with the msgbox as described earlier, but that was not really solved as the text of some msgbox had to include new lines and I had difficulty to pass it.
I'll try a bit more, but I think I'll leave all the msgbox in English.