Q_CCというクエリーのフィールドにIDがあります。
あるフォームのボタンのイベントプロシージャに
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_CC", dbOpenDynaset)
rs.Filter = "ID = 'Me.メールID'"
としましたけど、フィルターが働いてくれません。
" と ' の使い方がまずいと思います。
私のフォームに「メールID」というものが関連づけられていて、
このメールIDという値はMe.メールIDで求められますが、
このメールIDと同じ値のQ_CCのIDで、Q_CCにフィルタかけたい
のです。
rs.Filter = "ID =" + Me.メールID
としたらエラーです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
多分、
ID=" & Nz(Me.ID, 0)
としていないことが原因です。
が、素直に、Where節を書いても事足りるのでは・・・。
Private Sub コマンド0_Click()
Dim dbsCurrent As dao.Database
Dim rstTest As dao.Recordset
Dim strQuerySQL As String
strQuerySQL = "SELECT * FROM A_Query WHERE ID=" & Nz(Me.ID, 0)
Set dbsCurrent = CurrentDb
Set rstTest = dbsCurrent.OpenRecordset(strQuerySQL)
With rstTest
Do Until .EOF
Debug.Print .Fields(0)
.MoveNext
Loop
End With
rstTest.Close
dbsCurrent.Close
End Sub
この回答への補足
遅くなりました。検証してみました。
本当に、わざわざフィルターしなくてもWhere節にしたらいいという意味がよく分かりました。それと、Nz関数で解決出来ました。ありがとうございます。
助かりました。
s_huskyさん
早速の回答ありがとうございます。
Nzでしたか。気づきませんでした。ありがとう。
また、この例文もありがとうございます。
使ってみます。
本日は、この結果を報告できませんが、明日に報告させて頂きます。よろしくお願いします。
No.2
- 回答日時:
IDフィールドがテキスト型なら
rs.Filter = "ID = '" & Me.メールID & "'"
数値型なら
rs.Filter = "ID =" & Me.メールID
この場合は、Me.メールID のNULL チェックが必要です。
ただし、自分が作る場合は
No1さんの方法にします。
Filter にカーソルをあて、F1キーを押して
ヘルプを表示すると、その理由が書かれています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
FindFirst を複数条件で検索
Visual Basic(VBA)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
ADOでアクセスのレコードに複数のフィルタをかけるには?
Access(アクセス)
-
6
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
7
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
8
「RunSQL」と「Execute」の違い
Access(アクセス)
-
9
YES/NO型の値
Excel(エクセル)
-
10
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
11
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
14
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
15
ado フィルタで 含まない とするには?
Excel(エクセル)
-
16
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
17
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
20
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
メールの“不達通知” 英語が読め...
-
詐欺メールでしょうか?
-
お祝い金を徴収するメールの書き方
-
株式会社NSCと言う所から、現金...
-
送信エラーの際、CCには届い...
-
今日朝に、誰かと間違ってメー...
-
一度聞いたかも知れないのをっ...
-
送信しても『Mail System Error...
-
通帳口座番号 メールで送っても...
-
iphoneからメールで写真を送付...
-
Winmail.dat ファイルが開けない
-
ソースネクストという会社の広...
-
一つのメールアドレスで色んな...
-
失礼な文とは分からず、先生に...
-
メール送信すると以下のような...
-
"***@***.ocn.ne.jp"の"@***"は...
-
メールの最後に「それでは失礼...
-
メールの書き方 保護者から先生へ
-
人違いのEメールが来たら、間...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
一度聞いたかも知れないのをっ...
-
送信エラーの際、CCには届い...
-
"***@***.ocn.ne.jp"の"@***"は...
-
失礼な文とは分からず、先生に...
-
株式会社NSCと言う所から、現金...
-
送信しても『Mail System Error...
-
iphoneからメールで写真を送付...
-
ソースネクストという会社の広...
-
Winmail.dat ファイルが開けない
-
メールの一斉送信で非対象者に...
-
今日朝に、誰かと間違ってメー...
-
通帳口座番号 メールで送っても...
-
URLをコピーしてメールにリ...
-
詐欺メールでしょうか?
-
既婚者の異性とメールするのは...
-
メール送信すると以下のような...
-
相手にメールを送信したら、 Ea...
-
内容の書かれていない迷惑メー...
おすすめ情報