2

テーブルにレコードを追加するフォームがあります。コンボボックスのイベントに関するVBAコードがありAfterUpdate、選択した値に応じて他のフォームコントロールの表示を変更します。

クリックするとこのコードを実行する保存ボタンもあります。

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

[保存]ボタンをクリックすると、最後のレコードで表示されていたコントロールが引き続き表示されます。いわば、すべてのコントロールをデフォルトの表示に「リセット」したいと思います。

4

1 に答える 1

2

フォームのOn Currentイベントの手順を使用します。別のレコードに移動すると、コントロールの表示をデフォルトの選択にリセットできます。条件付きで可視性を設定することもできます...したがって、現在のレコードの値に基づいて特定のコントロールの可視性を設定できます。

于 2013-03-07T17:14:27.377 に答える