
Access2000で検索フォームを作っています。
フォームには、「下限」、「上限」と名前をつけたテキストボックスを2つ配置、
どちらも書式は数値型にしています。
このテキストボックスに入力した数字の範囲のレコードを抽出し、
結果を別のフォーム(「結果」)に出したいと考えてます。
そのため、以下のようなコードを書きました。
Private Sub 抽出_click()
On Error GoTo err_抽出_click
Set db = CurrentDb
Set rs = db.OpenRecordset("対象年齢", dbOpenDynaset)
rs.Filter = "対象年齢ID Between Me!下限 And Me!上限"
Set rs = rs.OpenRecordset
DoCmd.OpenForm "結果", , , , acFormReadOnly
rs.Close
exit_抽出_click:
Exit Sub
err_抽出_click:
MsgBox Err.Description
Resume exit_抽出_click
End Sub
「結果」フォームは対象年齢テーブルを基にしています。
これを実行すると、「パラメータが少なすぎます。3を指定してください。」という
メッセージが出てしまうのですが、
Private Sub 抽出_click()
On Error GoTo err_抽出_click
DoCmd.OpenForm "結果", , , "[対象年齢ID] Between [Forms]![検索]![下限] And [Forms]![検索]![上限]", acFormReadOnly
exit_抽出_click:
Exit Sub
err_抽出_click:
MsgBox Err.Description
Resume exit_抽出_click
End Sub
だと実行できます。
条件がこれ1つならば、下を使うのですが、
実際には、データ型の異なる複数の条件のAND検索を行うため、
上のようなものにしたいと考えています。
一体どうすれば、動くようになるのでしょうか?
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
Filterの値が"対象年齢ID Between Me!下限 And Me!上限" だと
対象年齢ID が'Me!下限'と'Me!上限'という文字列の間となってしまいます。
Filterの値を"対象年齢ID Between " & Me!下限 & " And " & Me!上限
としたらどうでしょうか?
ありがとうございます!
無事に動きました。
VBAの基本的なことも分からず、プログラムを組むことになってしまい、
右往左往しているところです。
また、なにかありましたら、よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- C言語・C++・C# C言語初心者 構造体 課題について 1 2023/03/10 19:30
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
【お題】・忍者がやってるYouTubeが炎上してしまった理由
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
Access Error3061 パラメータが少なすぎます。4を指定してください。
Access(アクセス)
-
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
-
4
Access パラメータークエリ VBAの書き方について よろしくお願いします。 ①クエリでデータを
Access(アクセス)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
【Access2003】クエリで動作するSQLがVBAで動作せず困っています。
その他(Microsoft Office)
-
7
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
8
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
9
どこにもフォーカスを当てたくない
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
12
Access2010 「演算子がありません」エラー
その他(データベース)
-
13
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
14
新規レコード行を非表示にしたい
Access(アクセス)
-
15
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
16
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
17
Accessを使って日付を比較したい
その他(Microsoft Office)
-
18
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
19
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
-
20
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
X-Ripperというフリーウェアに...
-
【AccessVBA】レコードセットOp...
-
未審査請求包袋抽出表作成とは...
-
Excel 文字列から6桁の数値の抽出
-
PDFファイル/抽出許可され...
-
アクセスのテキストボックスでO...
-
「パラメータが少なすぎます。3...
-
AccessのWHERE句において、変数...
-
access クエリ yes/no型のクエ...
-
Access チェックボックスを利用...
-
PDFファイルから特定の文字を検...
-
PCゲーム 音声 画像 抽出方法
-
Photoshop CS2で抽出の際輪郭が...
-
EXCEL関数 MAX関数と複合的に...
-
ACCESSのフォームからレポート...
-
Access の SQL で、Aがなかっ...
-
Access2016でのfilter後に並べ...
-
エクセル VBA メール本文に指定...
-
エクセルで近似値を特定の行か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
Excel 文字列から6桁の数値の抽出
-
X-Ripperというフリーウェアに...
-
PDFファイル/抽出許可され...
-
ACCESSのクエリー抽出条件にIIF...
-
「パラメータが少なすぎます。3...
-
access クエリ yes/no型のクエ...
-
AccessのWHERE句において、変数...
-
【AccessVBA】レコードセットOp...
-
未審査請求包袋抽出表作成とは...
-
PDFファイルから特定の文字を検...
-
コンボボックス全ての値を取得...
-
Access チェックボックスを利用...
-
エクセル VBA メール本文に指定...
-
Accessの選択クエリの抽出条件...
-
アクセス 同じフィールド(テキ...
-
【エクセルVBA】 A1セルを参照...
-
ACCESSのフォームからレポート...
-
ACCESS クエリ 条件以外のレ...
-
アクセスのテキストボックスでO...
おすすめ情報