MS访问复制按钮

Question

我有一系列表单，在每种表单上，我想添加一个备用按钮，因此我创建了一个命令按钮，并且在分配的单击事件上，它触发了以下vba; <<

Private Sub cmdBack_Click()
On Error GoTo Err_CmdBack_Click
    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close
Exit_CmdBack_Click:
    Exit Sub
Err_CmdBack_Click:
    MsgBox Err.Description
    Resume Exit_CmdBack_Click
End Sub

现在我该如何将此按钮复制到所有其他表格中的最佳方法是什么？如果我只是复制和粘贴，我会丢失代码，而我不想重写每个按钮的代码。

Answer 1

有很多方法可以在访问中的表单中重复使用代码。

在此示例中，您可以简单地在单独的模块中使用函数，然后将按钮绑定到：

：

Public Function formBack()
On Error GoTo Err_CmdBack_Click
    If Screen.ActiveForm.Dirty Then Screen.ActiveForm.Dirty = False
    DoCmd.Close
Exit_CmdBack_Click:
    Exit Function
Err_CmdBack_Click:
    MsgBox Err.Description
    Resume Exit_CmdBack_Click
End Function

（如果按下表单上的按钮，它始终是主动表单）。

您可以通过将其On Click属性设置为=formBack()

将按钮绑定到此功能

还有其他方法重复使用代码。这个问题有一些不错的答案，证明了一些更复杂的答案。