
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
Access パラメータクエリをcsvでエクスポートしたい
Access(アクセス)
-
-
4
Access パラメータークエリ VBAの書き方について よろしくお願いします。 ①クエリでデータを
Access(アクセス)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
9
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
10
ACCESS VBA クエリを開く
その他(データベース)
-
11
SQL文が実行できません
Microsoft ASP
-
12
新規レコード行を非表示にしたい
Access(アクセス)
-
13
Access サブフォームでの選択行の取得
その他(データベース)
-
14
Access VBA SQL文で教えてください
PowerPoint(パワーポイント)
-
15
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
16
Access2010 「演算子がありません」エラー
その他(データベース)
-
17
どこにもフォーカスを当てたくない
Access(アクセス)
-
18
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
19
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
20
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
未審査請求包袋抽出表作成とは...
-
エクセルで、抽出したデータだ...
-
awkでスラッシュがある動的変数...
-
X-Ripperというフリーウェアに...
-
【Access】条件未入力時、全件...
-
エクセルで色の付いたセルを抽...
-
COUNTIFのやり方を教えてくださ...
-
PDFファイルから特定の文字を検...
-
Access2003 式ビルダでのLike...
-
ACCESSのクエリー抽出条件にIIF...
-
単純無作為抽出法の問題がわか...
-
Accessで○ヶ月前以前を抽出する...
-
AccessのWHERE句において、変数...
-
【AccessVBA】レコードセットOp...
-
PDFファイル/抽出許可され...
-
Excel 文字列から6桁の数値の抽出
-
Access サブフォームでの選択行...
-
access ダブリ登録を防止したい
-
前のレコードの値を自動で入れたい
-
(ACCESS)条件に応じて、テキ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
未審査請求包袋抽出表作成とは...
-
Excel 文字列から6桁の数値の抽出
-
X-Ripperというフリーウェアに...
-
エクセル関数で住所から丁目番...
-
「パラメータが少なすぎます。3...
-
ACCESSのクエリー抽出条件にIIF...
-
PDFファイル/抽出許可され...
-
AccessのWHERE句において、変数...
-
エクセルで色の付いたセルを抽...
-
PDFファイルから特定の文字を検...
-
Accessの選択クエリの抽出条件...
-
ACCESS クエリ 条件以外のレ...
-
【AccessVBA】レコードセットOp...
-
Access チェックボックスを利用...
-
アクセス 同じフィールド(テキ...
-
Access の SQL で、Aがなかっ...
-
Accessで○ヶ月前以前を抽出する...
-
【Access】条件未入力時、全件...
-
コンボボックス全ての値を取得...
おすすめ情報