代码不会在MS Access 2010

我已经在MS Access 2010转换的嵌入式宏VBA并不在所有的工作转换嵌入式宏VBA之后再工作。举个具体的例子。我做了一个使用向导添加记录按钮和完美的作品，但在通过使用内置的功能转换窗体的宏到Visual Basic和按钮都不会做了它转换成VBA。我实际上不知道自己做错了什么，因为我是MS Access 2010中的新手。但是我曾经在MS Access 2007中这样做过，它完美无瑕。代码不会在MS Access 2010

有人可以给我一个想法什么是我做错了吗？提前致谢。

这就是MS Access 2010中宏转换为VBA

Private Sub cmd_AddRecord_Click() 
    On Error GoTo cmd_AddRecord_Click_Err 

    On Error Resume Next 
    DoCmd.GoToRecord , "", acNewRec 
    If (MacroError <> 0) Then 
     Beep 
     MsgBox MacroError.Description, vbOKOnly, "" 
    End If 

    cmd_AddRecord_Click_Exit: 
    Exit Sub 

    cmd_AddRecord_Click_Err: 
    MsgBox Error$ 
    Resume cmd_AddRecord_Click_Exit 
End Sub

来源

2014-03-07 Jhun

显示一些代码，请。另外，你有没有尝试过不转换任何东西？ Office 2010大部分都是向后兼容的（从目前为止）。 –

感谢您的评论。按钮字面上不会因为某些原因转换vba后做任何事情。但是如果你查看代码，代码就在那里。 – Jhun

您好，我刚刚尝试了您所要求的有关宏和转换为vba。转换为宏的按钮不起作用，宏上的一个工作。 – Jhun

确认键“点击”属性设置为[Event Procedure]后生成的代码。这可能是你的问题。

此外，该代码在其自动生成状态中非常复杂。试试这个：

Private Sub cmd_AddRecord_Click() 
    On Error GoTo cmd_AddRecord_Click_Err 

    DoCmd.GoToRecord , "", acNewRec 


    Exit Sub 

    cmd_AddRecord_Click_Err: 
     Beep 
     MsgBox err.Description, vbOKOnly, "" 

End Sub

来源

2014-03-07 17:23:18 enderland

谢谢。非常感激。 – Jhun

代码不会在MS Access 2010

回答

相关问题