Question

我的MS Access应用程序有一个子例程，在我更新表单上的一个控件后触发。

Public Sub cboCrew_AfterUpdate()
    ...do some work...
End Sub

我想从我在Module1中定义的函数中调用这个相同的子

Function my_function()
     Call cboCrew_AfterUpdate
End Function

此代码抛出错误：“编译错误子或函数未定义”

我怀疑问题在于我对sub的调用不够具体。我是否需要使用"some_modulte_name.sub_name"来引用该子？谁能告诉我我错过了什么？

Answer 1

反过来设置它......

Public Sub cboCrew_AfterUpdate()
    My_Function
End Sub

Function my_function(frm As Form)
     ''Do stuff
End Function

重新评论

Public Sub cboCrew_AfterUpdate()
    My_Function Me 
End Sub

Function my_function(frm As Form)
     MsgBox frm.Name
End Function

Sub AnotherSub()
   My_Function Forms!AFormName
End Sub

从Access 2010中的函数调用sub

1 个答案: