Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
263 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12337】パラメータが少なすぎます。１を指定して下さい。 まくりや 13/6/18(火) 15:47 質問[未読]
【12338】Re:パラメータが少なすぎます。１を指定し... hatena 13/6/18(火) 16:00 回答[未読]
【12339】Re:パラメータが少なすぎます。１を指定し... まくりや 13/6/19(水) 10:28 お礼[未読]
【12337】パラメータが少なすぎます。１を指定して...
質問  まくりや  - 13/6/18(火) 15:47 -
引用なし
パスワード
   前回と同じような質問ですがよろしくお願いします。

クエリをそのままクリックするときちんとでるのに

Dim db As DAO.Database
Dim rsa As DAO.Recordset
Set db = CurrentDb()
Set rsa = db.OpenRecordset("クエリ名")
MsgBox (rsa!項目)
rsa.Close: Set rsa = Nothing
db.Close: Set db = Nothing

VBAで書くと、上記題名がでます。
パラメータをフォームからとってくるクエリです。

何か、クエリの書き方に工夫がいるのでしょうか。
何か、設定がいるのでしょうか。
【12338】Re:パラメータが少なすぎます。１を指定...
回答  hatena  - 13/6/18(火) 16:00 -
引用なし
パスワード
   ▼まくりや さん：
>クエリをそのままクリックするときちんとでるのに
>
>Dim db As DAO.Database
>Dim rsa As DAO.Recordset
>Set db = CurrentDb()
>Set rsa = db.OpenRecordset("クエリ名")
>MsgBox (rsa!項目)
>rsa.Close: Set rsa = Nothing
>db.Close: Set db = Nothing
>
>VBAで書くと、上記題名がでます。
>パラメータをフォームからとってくるクエリです。

パラメータクエリをDAOで実行するには、Parameters の設定が必要です。

クエリのパラメータが「Forms!フォーム1!テキスト1」として、下記のようにしてください。

Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rsa As DAO.Recordset
Set db = CurrentDb()
Set qd = db.QueryDefs("クエリ名")
qd.Parameters("Forms!フォーム1!テキスト1") = Forms!フォーム1!テキスト1
Set rsa = qd.OpenRecordset
MsgBox (rsa!項目)
rsa.Close: Set rsa = Nothing
db.Close: Set db = Nothing
【12339】Re:パラメータが少なすぎます。１を指定...
お礼  まくりや  - 13/6/19(水) 10:28 -
引用なし
パスワード
   回答いただいた方、ありがとうございました。
できました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
263 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081089
(SS)C-BOARD v3.8 is Free