Question

我有一个简单的MS Access数据库（版本2010），只有4个字段：

DB名称：测试

test1 =文字

test2 =是/否（勾选框）

test3 =文字

test4 =文字

然后，我创建了一个名为Form_Test的公式，并将代码分配给复选框：

Option Compare Database

Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long


Function BenutzerName() As String

Dim lngLen As Long
Dim lngX As Long
Dim strBenutzerName As String

    strBenutzerName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strBenutzerName, lngLen)
    If lngX <> 0 Then
        BenutzerName = Left$(strBenutzerName, lngLen)
    Else
        BenutzerName = ""
    End If

End Function



Private Sub test2_Click()
If test2.Value = True Then
    test3 = BenutzerName()
Else
    test3 = ""

End If
End Sub

一旦用户点击任何行中的勾选框，我想使用此代码将用户名添加到字段test3。但是，脚本不起作用，我不明白为什么。有人可以帮忙吗？

Answer 1

确保您的代码位于正确的位置，

在表单的设计模式中

Right click the Check box并选择Properties - ＆gt; Event Tab - ＆GT; On Click - ＆GT; Code Builder 将打开代码编辑器

这就是您的代码必须驻留的地方

<强> 编辑：

此外，Follow this link在您的代码中设置断点（ F9 ）以查看您的代码是否被触发，该链接还包含有关调试的信息。

Access中的VBA脚本无法正常工作

1 个答案: