Access メモ フォーム内のテキストボックスをクリア

すぐ忘れるので、自分用にメモ

フォーム内のテキストボックスをクリアする

Private Sub cmdClear_Click()
'[クリア]ボタンクリック時

  Dim ctl As Control
  
  On Error Resume Next
  'このフォーム内のすべてのコントロールを検索
  For Each ctl In Me.Controls
    With ctl
      If .ControlType = acTextBox Then
        'コントロールの種類がテキストボックスなら値をNull（空）に設定
        .Value = Null
      End If
    End With
  Next ctl

End Sub