0

我在按钮单击事件的访问 vba 中有以下代码。想法是使用临时变量将值从文本框转发到子表单：

Private Sub button_novi_ir_Click()
    On Error GoTo button_novi_ir_Click_Err

    On Error Resume Next
    TempVars("brojRN").Value = Me.brojRNtxt
    DoCmd.OpenForm "PODACI_O_IZVRŠENIM RADOVIMA_FORM", acNormal, "", "", acAdd, acNormal
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

button_novi_ir_Click_Exit:
    Exit Sub

button_novi_ir_Click_Err:
    MsgBox Error$
    Resume button_novi_ir_Click_Exit

End Sub

每次单击该按钮时，我都会收到一条错误消息“MS Office Access 与 OLE 服务器或 ActiveX 控件通信时出现问题”。我真的不知道该怎么办。那么，请谁能指出我正确的方向？

提前致谢！

4

1 回答 1

0

我不知道您的表单名称中的重音字符是否有问题 - 我假设不是。但是您不应该为 FilterName 和 WhereCondition 参数提供空字符串 ""，只需使用逗号跳过这些参数 ,,,

这是代码，而不是宏，因此您应该使用该Err对象并检查它的Err.Numberand Err.Description。

于 2013-07-17T23:22:32.747 回答