寻欢师付，如何把模块转换为单击事件过程？

laiguiyou

以下这段代码是由宏“查找”转换为VB代码的模块。如何应用到“查找”单击事件过程里去
Option Compare Database

'------------------------------------------------------------
' 产品查找_产品代号查找
'
'------------------------------------------------------------
Function 产品查找_产品代号查找()
On Error GoTo 产品查找_产品代号查找_Err

    With CodeContextObject
        DoCmd.GoToControl "产品代号"
        DoCmd.FindRecord "*" & .Text28 & "*", acAnywhere, False, , False, acCurrent, True
        DoCmd.GoToControl "产品代号"
    End With


产品查找_产品代号查找_Exit:
    Exit Function

产品查找_产品代号查找_Err:
    MsgBox Error$
    Resume 产品查找_产品代号查找_Exit

End Function

zhengjialon

在单击事件里写：
On Error GoTo 产品查找_产品代号查找_Err

With CodeContextObject
DoCmd.GoToControl "产品代号"
DoCmd.FindRecord "*" & .Text28 & "*", acAnywhere, False, , False, acCurrent, True
DoCmd.GoToControl "产品代号"
End With


产品查找_产品代号查找_Exit:
Exit Function

产品查找_产品代号查找_Err:
MsgBox Error$
Resume 产品查找_产品代号查找_Exit

laiguiyou

为何会出现“编辑错误”在Sub或propetty中不充许Exit函数

李寻欢

把Exit Function
改为Exit sub看看

laiguiyou

ok,Thank you