| |
こんにちは。初心者です。
過去ログを見たのですが、同じような質問が見当たりませんでしたので、質問します。
１．受注テーブルがあります。
受注日時、品番、数量、顧客名、
受注日時は、日付日時型です。
２．受注テーブルのデータの一部を、受注日時でひとつ又は複数選択し、SQLクエリを作成したいです。(最終的にはSQLクエリを元に印刷したいです)
３．受注日選択フォームにリストボックスを作り、受注テーブルのデータを並べ、ひとつ又は複数選択し、フォーム上のボタンを押して、SQLクエリを作成したいです。
リストボックスのコントロール名は"日時"です。
４．ボタンのイベントプロシージャの内容は下記です。
Dim db As Database
Dim QQQ As QueryDef
Set db = CurrentDb
Dim ctl As Control
Dim AAA As String
Dim sql As String
Set ctl = Me!日時
For Each varItm In ctl.ItemsSelected
AAA = AAA & "," & ctl.ItemData(varItm) & ""
Next varItm
AAA = Mid(AAA, 2)
sql = "SELECT 受注日時, 品番, 数量, 顧客名 FROM 受注テーブルHAVING (((受注日時) In (" & AAA & ")));"
Set QQQ = db.CreateQueryDef("選択リスト", sql)
５．結果は、クエリが作成出来ません。
日付の両側に#を付けたいのですが、書き方がわかりません。
教えていただけると嬉しいです。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
