保存并转到新记录后如何重置表单的格式

Posted 2023-04-19

【中文标题】保存并转到新记录后如何重置表单的格式

【英文标题】：How do I reset the format of a Form after saving and going to a new record

【发布时间】：2013-03-07 17:01:40

【问题描述】：

我有将记录添加到表中的表单。我在组合框的 AfterUpdate 事件上有一些 VBA 代码，它根据所选值更改其他一些表单控件的可见性。

我还有一个保存按钮，点击时会运行此代码：

Private Sub btnSave_Click()

    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , "", acNewRec
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

End Sub

当我单击“保存”按钮时，在最后一条记录中可见的控件仍然可见。可以这么说，我想将所有控件“重置”为默认可见性。

【参考方案1】：

对表单的On Current 事件使用过程。当您导航到不同的记录时，您可以将控件的可见性重置为您的默认选择。您还可以有条件地设置可见性......因此您可以根据当前记录的值设置给定控件的可见性。

【讨论】：

我其实只是在表单的_OnCurrent事件中调用了控件的_AfterUpdate事件。奇迹般有效。谢谢@Hans