| |
▼まくりや さん：
>クエリをそのままクリックするときちんとでるのに
>
>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
|
|
hatena
- 13/6/18(火) 16:00 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
