Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2016)
データシートにフィルターを付ける方法について
投稿日時: 20/02/25 16:11:59
投稿者: takatada72

お世話になります。
 
 
フォームのデータシートに対して番号をWクリックするとWクリックした番号
にフィルターがかかるようにしたいのです。
 
例:
  品名    番号 カテゴリ 日付
しししししし D101020 絵葉書1 2020/02/10
とととととと D101021 絵葉書2 2020/02/18
ちちちちちち D101024 絵葉書3 2020/02/12
しししししし D101020 絵葉書1 2020/02/11
 
                  ↓
D101020をWクリックすると、下記のようにしたいのです。
  品名    番号 カテゴリ 日付
しししししし D101020 絵葉書1 2020/02/10
しししししし D101020 絵葉書1 2020/02/11
 
 
下記のようなコードをネットで見つけて書いたのですが、次のようなエラー
が出て困っております。解決方法を教えて頂けないでしょうか
※:コマンドまたはアクション'フィルターの実行'は無効です。
 
bangou = Me![番号]
DoCmd.ApplyFilter , "[番号]=""" & bangou
Me.FilterOn = True

回答
投稿日時: 20/02/25 16:26:51
投稿者: sk

引用:
フォームのデータシートに対して番号をWクリックすると
Wクリックした番号にフィルターがかかるようにしたい

引用:
bangou = Me![番号]
DoCmd.ApplyFilter , "[番号]=""" & bangou
Me.FilterOn = True

bangou = Me![番号]
Me.Filter = "[番号]=""" & bangou & """"
Me.FilterOn = True
 
引用:
※:コマンドまたはアクション'フィルターの実行'は無効です。

フィルター条件式において、文字列リテラルが正しくダブルクォーテーションで
囲まれていないため。

投稿日時: 20/02/25 16:57:13
投稿者: takatada72

 skさん
 
早速ありがとうございました。
""の数に左右されていたとはしりませんでした。
 
 
無事、解決しました。