Question

Goodmorning，

我在MS Access VBA中工作以生成自动电子邮件。但为了得到我想要的东西，我需要数据库中的一些值。

Table: KlantInfo
KlantID: (AutoNumber)
Voorletters: (Text)
Voorvoegsel: (Text)
Achternaam: (Text)

我通过查询检索信息，该查询依赖于表单中的ID

Result Query:
ID = 1
Voorletters = A.B.
Voorvoegsel = van
Achternaam = Voorbeeld

当我得到返回时，我在VBA中执行以下操作。

Code:
varVoor = rs!Voorletters
varMidden = rs!Voorvoegsel
varEind = rs!Achternaam

varNaam = varVoor & " " & varMidden & " " & varEind

MsgBox varNaam

我怀疑这个结果： A.B。 van Voorbeeld 然而，这是我得到的结果：

A.B. 
van Voorbeeld.

结果也是邮件。

起初我认为问题是B之后的点，但不是这样，因为我已经使用替换函数用空格替换点但仍然是相同的结果。

你有任何提示或建议吗？

亲切的问候，帕特里克

Answer 1

不确定根本原因是什么，但我认为您可以尝试以下方法：

varNaam = Replace(Replace(varVoor & " " & varMidden & " " & varEind, Chr(13), ""), Chr(10), "")

MS Access VBA - 变量显示不正确

1 个答案: