【ACCESS VBA】フォーム内の入力内容をクリアする

ACCESS VBAを学習しています。

今回はVBAを使ったフォーム内の入力欄をクリアする方法を学びます。

この記事では、使い方と使用例を掲載しています。

使い方については、よく使う部分だけを抜粋してご紹介しています。

詳細は公式のドキュメントをご覧ください。

説明・パラメータ
1. 書式
使用例(コード)
1. ヘッダにあるテキストボックスの値を全てクリア
参考

説明・パラメータ

フォーム内の各コントロールに対して順番に処理をしていきます。

書式

Private Sub button_クリア_Click()
 Dim Clear As Control    
    For Each Clear In Me.Controls
        With Clear
            If .ControlType = [コントロールの種類] Then
                .Value = ""
            End If
        End With
    Next Clear
End Sub

Private Sub button_クリア_Click()

Dim Clear As Control

For Each Clear In Me.Controls

With Clear

If .ControlType = [コントロールの種類] Then

.Value = ""

End If

End With

Next Clear

End Sub

[コントロールの種類]はテキストボックスやコンボボックスなどを指定します。以下の種類などがあります。

acCheckBox
acComboBox
acCommandButton
acTextBox

Clearはループ処理を行うために用意した変数です。

「Me.Controls」で指定したフォーム内の全コントロールを一つずつ順に「Clear」に入れて順に処理していきます。

Withは同じ変数(今回はClear)に対して、毎回「Clear.～」と指定する手間を減らすことができます。

With内であれば「 . ～」と始めることができます。

If文内ではコントロールの種類が[コントロールの種類]で指定したものと一致した場合に、その値を「””」空白に変更しています。

→For Eachの使い方

→Withの使い方

→Ifの使い方

使用例(コード)

ヘッダにあるテキストボックスの値を全てクリア

Private Sub button_クリア_Click()
    '各コントロールを一時的に格納する変数を用意
    Dim Clear As Control
    'ボタンやテキストなどの各コントロールの値を全てクリア
    'ヘッダの各コントロールを変数Clearに入れて繰り返し処理を行う
    For Each Clear In Me.Section(acHeader).Controls
        '変数Clearに格納されたコントロールに対してWithを使って処理
        With Clear
            'もしコントロールタイプがテキストボックスなら
            If .ControlType = acTextBox Then
                '値を空白に変更
                .Value = ""
            End If
        End With
    Next Clear
End Sub