Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8024 / 9994

←次へ　｜　前へ→


	【5151】Re:フィルタープロパティーでの抽出（複数...

小僧 - 05/5/30(月) 9:38 -


	引用なし

	パスワード

▼しんさん：
おはようございます。

>2.VBAを使う上での基本的な、""等のルール

VBAで変数に
文字列を代入する時は「"」で（「"」の中だった場合は「'」で）
数字を代入する時はそのまま
日付を代入する時は「#」で
くくります。

>>(例)
>>Dim MOJI1 As String
>>Dim MOJI2 As String
>>Dim SUJI As Long
>>Dim HIDUKE As Date
>>
>>MOJI1 = "あいうえお"
>>MOJI2 = "あい = 'うえお'"
>>SUJI = 123
>>HIDUKE = #5/30/2005#

今回の例では「Me!サブフォーム1.Form.Filter」の右辺に文字列として

Key = 1 AND タイトル Like "*あ*"

の様な式を作成したいですよね。

文字列なので全体を「"」で括ります。内側の「"」は「'」になります
>　"Key = 1 AND タイトル Like '*あ*'"

解りやすくするために、フィールド名を「[]」で括ります。
>　"[Key] = 1 AND [タイトル] Like '*あ*'"

Key の値を変数 ss に置き換える為に「"」の外に出します。
文字列の連結は「&」にて行います。
>　"[Key] = " & ss & " AND [タイトル] Like '*あ*'"

タイトルの値もフォームの値にするために「"」の外に出します。
>　"[Key] = " & ss & " AND [タイトル] Like '*" & Me!txt検索 & "*'"

このような感じでフィルタ条件の式ができます。
１つ１つ考えていくとさほど難しくないと思われますがいかがでしょうか？

565 hits

▼

【5146】フィルタープロパティーでの抽出（複数条件） しん 05/5/29(日) 10:58