主窗体单击事件很多情况的处理

zyz218

以下根据ACCESS自带数库学到的，觉得不错特和大家探讨一下，将函数放在主窗体中，然后每个单击事件如图所示既可
Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms

    DoCmd.OpenForm strFormName

Exit_OpenForms:
    Exit Function

Err_OpenForms:
    MsgBox Err.Description
    Resume Exit_OpenForms

End Function
<IMG src="">

[此贴子已经被作者于2006-4-17 8:20:56编辑过]

fan0217

也可以直接用代码完成:

如: 对象.onChick = "= 函数()"