2013-07-17 33 views
0

我在按钮点击事件我访问vba中有以下代码。想法是使用临时变量来转发值从文本框到窗体:访问2007年按钮点击事件错误

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 

每次我按一下按钮我得到一个错误信息“,而微软Office Access已与OLE服务器或ActiveX通信时出现问题控制”。我真的不知道该怎么办。那么,请任何人都能指出我的方向?

在此先感谢!

回答

0

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

而这是代码而不是宏,所以您应该使用Err对象并且检查其Err.NumberErr.Description

+0

谢谢你的回答。我更改了表单名称以删除本地字符,并删除了空字符串并更改了错误处理,但仍然无效。它甚至在我使用宏时也不起作用,这就是我尝试使用代码的原因。 – bjelokrili