2013-07-17 64 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