Question

我在按钮点击事件的访问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控件通信时出现问题”。我真的不知道该怎么做。那么，请有人指出我正确的方向吗？

提前致谢！

Answer 1

我不知道你的表格名称中的重音字符是否是一个问题 - 我认为它不是。但是你不应该为FilterName和WhereCondition参数提供空字符串“”，只需使用逗号跳过这些参数,,,

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

Access 2007按钮单击事件错误

1 个答案: