ACCESS VBA Parametersで or演算子を使用するには?
抽出クエリを作成して、抽出条件欄に"[WWW]"を設定してます。
このクエリを使用して下記のコードを実行した所、カレントレコード無しとの
メッセージがでました。レコードは確かにいます。(1)の記述が悪いのでしょうか?
Sub 処理()
Dim DB As Database
Dim 情報 As Recordset
Dim Qdf As QueryDef
'db
Set DB = CurrentDb
Set Qdf = DB.QueryDefs("情報")
Qdf.Parameters("WWW") = " 01" OR "02" → (1)
Set 情報 = Qdf.OpenRecordset()
情報.MoveFirst → デバックでとまるところ
Do Until 情報.EOF
MsgBox (情報!情報2)
情報.MoveNext
Loop
情報.Close
DB.Close
End Sub
ORをなくし"01"だけだとうまくいきます。
どうしても、このロジックを通したいのですが
教えてください。
ACCESS2000、XPPro を使用してます。
No.2ベストアンサー
- 回答日時:
たとえば、クエリのフィールドにパラメータを
複数設定するとして、[WWW]だけを設定すれば
クエリを開いたときにパラメータの入力は一回
しか表示されません。二回表示させようと思えば
[WWW] Or [XXX]とする必要があります。つまり
質問の要望ははやや「暖簾に腕押し」のような感じで、
上記のように、一つのフィールドの抽出条件に
[WWW] Or [XXX]
と設定し、コードで
Qdf.Parameters("[WWW]") = "01"
Qdf.Parameters("[XXX]") = "02"
とすれば、カレントレコードがない、という
エラーは出なくなると思いますが。
No.1
- 回答日時:
(1)の箇所(Qdf.Parameters("WWW") = " 01" OR "02")は、
日本語にすると、"01" と "02"でor処理(ビット演算)して、WWWのパラメータに代入となります。
ですので、WWWに入るのは、3 (2進数で 01 と 10 で or処理をすると 11 となる。10進数で言うと3)になります。
(1)を、下記のようにすれば、イイんではないでしょうか?
Qdf.Parameters("WWW") = "'01' Or '02'"
この回答への補足
早々に、ご回答ありがとうございます。
しかしながら結果は同じでした。
「カレントレコードがありません~」というメッセージが表示されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
access(アクセス):パラメーターの入力を複数にしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INT64対応のprintf系関数はあり...
-
2つ目のレコードの値を取得す...
-
accessでフィールド追加のあと...
-
Accessのフィールド名に半角括...
-
(ADO)フィールド名から取得し...
-
日付と文字列を条件としてDLook...
-
クリスタルレポートで文字列の...
-
AccessVBAで他テーブルのデータ...
-
DataTableに特定のフィールドが...
-
VB.NETのOleDbCommandにて文字...
-
クリスタルレポートの式フィー...
-
AccessVBAの処理の流れについて。
-
ACCESSのフィールドデータの照...
-
DataTableのselectメソッド
-
アクセスでADO 並べ替えが適用...
-
ADOでNullフィールドの抽出
-
Accessのフォームで必須入力など
-
Access クエリで変数を参照する...
-
ACCESSで日別集計をする場合
-
VBA 変数名に変数を使用したい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
2つ目のレコードの値を取得す...
-
Access 2010で実行時エラー3061
-
Accessのフィールド名に半角括...
-
accessでフィールド追加のあと...
-
INT64対応のprintf系関数はあり...
-
DataTableに特定のフィールドが...
-
AccessのDAOでフィールド名を配...
-
クリスタルレポートで文字列の...
-
アクセスでADO 並べ替えが適用...
-
テーブルのデータ型の変更がで...
-
日付と文字列を条件としてDLook...
-
Access クエリで変数を参照する...
-
ACCESSデータベースにV...
-
クリスタルレポート(8.5)の書式...
-
NULLを含む文字列の結合で...
-
2次元のdictionary
-
フィールド名をループの添え字...
-
Access Dcount関数で引数が指定...
-
ACCESSで視覚的タイムテーブル...
-
オートナンバー型を抽出条件に...
おすすめ情報