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

Question

我有将记录添加到表中的表单。我有一些关于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

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

Answer 1

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