vba - 设置文本框VBA的控制源

Question

在我的 Access 2007 表单中，我之前使用此代码直接在属性窗口中成功设置了文本框的 controlSource

=UCase(Left([txtLName],6) & "_" & Left([TxtFName],1))

但是，为了将其硬编码到表单中，我尝试使用 VBA 通过以下代码设置 controlSource 属性:

Me.txtCodePersonal.ControlSource = "=UCase(Left([txtLName],6) & "_" & Left([TxtFName],1))"

在我的调试中，它将我的问题解决到这一行的 “_” 部分。

我不知道 controlSource 属性在 VBA 中是如何工作的，所以我不知道如何更正这个问题。预先感谢您的所有帮助。

Answer 1

您正在尝试将字符串值分配给 .ControlSource 属性。但是，该字符串中包含引号。同样，在立即窗口中，这将引发错误:

Debug.Print "=UCase(Left([txtLName],6) & "_" & Left([TxtFName],1))"

将字符串中的引号加倍以避免该问题。

Debug.Print "=UCase(Left([txtLName],6) & ""_"" & Left([TxtFName],1))"
=UCase(Left([txtLName],6) & "_" & Left([TxtFName],1))