ACCESS窗体控件出问题

新缘依旧

Visual Basic for Applications (VBA) 在试图存取属性或方法时遇到问题。 可能是下列问题之一:
缺少参考值。
关于如何恢复缺少的参考值的帮助，请参阅 Microsoft 知识库文章283806。
表达式拼错。
检查在事件属性中使用的所有表达式以了解正确拼写。
一个用户定义的函数被声明为模块中的子函数或私有函数。
只有当函数被声明为下列只一时，表达式才可以解析用户定义的函数:
模块中的公用函数
当前表单或报表的代码模块中的公用或私有函数
Access 的安全性设置为“中”或“高”，并且未安装 Microsoft Jet 4.0 SP8 更新。
当 Access 的安全性设置为“中”或“高”时，要使 Access 功能正确运行，必须安装更近版本的 Jet 4.0。要获取最近版本的 Microsoft Jet，请访问 Windows Update。


麻烦知道的帮忙说下解决办法

Option Compare Database

Private Sub 车间_AfterUpdate()
Me.操作者.Requery
End Sub

Private Sub Command45_Click()
On Error GoTo Err_Command45_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command45_Click:
    Exit Sub

Err_Command45_Click:
    MsgBox Err.Description
    Resume Exit_Command45_Click
   
End Sub


这是代码 你们看下 谢谢

nxjswt

打开一个空的access,将宏安全性放置到最低。然后再打开您的开发的数据库看看

新缘依旧

nxjswt 发表于 2011-9-16 16:16
打开一个空的access,将宏安全性放置到最低。然后再打开您的开发的数据库看看

不行 还是会有这个提示

Henry D. Sy

把例子传上来看看

新缘依旧

todaynew

新缘依旧 发表于 2011-10-10 10:25

把数据库压缩一下，再试试。如还不中，看看是不是丢失了什么引用。

andymark

引用丢失，编译一下代码看那里出问题

新缘依旧

Option Compare Database

Private Sub 车间_AfterUpdate()
Me.操作者.Requery
End Sub

Private Sub Command45_Click()
On Error GoTo Err_Command45_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command45_Click:
    Exit Sub

Err_Command45_Click:
    MsgBox Err.Description
    Resume Exit_Command45_Click
   
End Sub


这是代码 你们看下 谢谢