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で質問しましょう!
似たような質問が見つかりました
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
- gooメール クーポンコードは存在しません 1 2022/06/09 10:54
- Yahoo!メール Yahoo!メールについて教えてください。 メールについて詳しくないので、このような質問することご容 2 2023/03/24 12:24
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
FindFirst を複数条件で検索
Visual Basic(VBA)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
6
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
7
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
8
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
9
ADOでアクセスのレコードに複数のフィルタをかけるには?
Access(アクセス)
-
10
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
11
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
12
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
13
Access サブフォームのレコードソースを変更するには
Access(アクセス)
-
14
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
15
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
18
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
19
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
20
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
通帳口座番号 メールで送っても...
-
Winmail.dat ファイルが開けない
-
windowsメールとOutlookメール...
-
一度聞いたかも知れないのをっ...
-
一つのメールアドレスで色んな...
-
送信しても『Mail System Error...
-
"***@***.ocn.ne.jp"の"@***"は...
-
風俗嬢からの突然メール返事が...
-
既婚者の異性とメールするのは...
-
訳せる方お願いします!!
-
内容の書かれていない迷惑メー...
-
2ちゃんで「sageろ」と言われ...
-
株式会社NSCと言う所から、現金...
-
メールの一斉送信で非対象者に...
-
Gmailをネットショッピングなど...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
windowsメールとOutlookメール...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
Winmail.dat ファイルが開けない
-
"***@***.ocn.ne.jp"の"@***"は...
-
メール送信すると以下のような...
-
株式会社NSCと言う所から、現金...
-
一度聞いたかも知れないのをっ...
-
通帳口座番号 メールで送っても...
-
iphoneからメールで写真を送付...
-
訳せる方お願いします!!
-
送信しても『Mail System Error...
-
メールの書き方 保護者から先生へ
-
OUTLOOK2016(「メッセージが変...
-
相手にメールを送信したら、 Ea...
-
既婚者の異性とメールするのは...
-
詐欺メールでしょうか?
おすすめ情報