クエリ列を表示/非表示にするフォームでVBAコードを作成するにはどうすればよいですか？ （MS-アクセス）

Question

私はAccessでの作業に非常に新しいですし、次のようなものだろうということVBAコードを書くことでトラブルを抱えています：

Private Sub YesNoShowHide() 

     If DateTested_checkbox = 'yes' 
      Then show 'DateTested' column in 'search query' query 
     Else DateTested_checkbox = 'no' 
      Then hide 'DateTested' column in 'search query' query 
End Sub 

を私は実行するフォームを持つデータベースを持っていますテキストボックスにキーワードを入力して検索するだけではなく、キーワードをクエリに入力することで、「カスタム検索」を行うことができます。私は多くのフィールドを持っており、フォームのチェックボックスに基づいてクエリの列を表示または非表示にするオプションを作成したいと考えています。

Answer 1

QueryDefs.Fields.Propertiesコレクションを使用してクエリ列にアクセスして、クエリ列を表示および非表示にすることができます。

次の方法でそれを使用することができます。これは、それがリフレッシュになるまで開かれたクエリを変更しないと、永久にクエリを変更すること

CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = True 

注意を。あなたは永久にクエリを変更しないようにしたい場合は、次の操作を実行できます。

CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = True 
DoCmd.OpenQuery "search query" 
CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = False 

Answer 2

あなたがColumnHiddenとCheckBox.Valueプロパティを探しています：

全部または提案のすべてのヘルプは

フォームやクエリ画像をいただければ幸いです。あなたの例のサブは、次のようになります。チェックボックスオブジェクトの

Private Sub YesNoShowHide() 

     If Forms!Search_form.DateTested_checkbox.Value = True Then 
      Forms!Search_form.DateTested.ColumnHidden = False 
     Else 
      Forms!Search_form.DateTested.ColumnHidden = True 
     End If 

End Sub 

.Valueそうでないとき、それをチェックだTrueとFalseです。 Search_formをフォームの名前に置き換えます。