Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35610 / 76732

←次へ　｜　前へ→


	【46318】Re:アクセスのクエリを実行したい

Kein - 07/1/30(火) 14:39 -


	引用なし

	パスワード

私はDAOしか使わないので、DAOのコード例を提示します。
ユーザーフォームに配置したボタンを押して、Sheet1 に指定の日付期間の
データを引っ張るコードです。
(参照設定で Microsoft DAO 3.6 Object Library にチェック)

Private Sub CommandButton1_Click()
　 Dim MyDB As DAO.Database, MyRS As DAO.Recordset
　 Dim StDy As String, EDy As String, MySQL As String

　 If Not IsDate(TextBox1.Value) Or _
　　Not IsDate(TextBox2.Value) Then
　　　MsgBox "テキストボックスの値は日付として認識できません", 48
　　　Exit Sub
　 End If　　　　
　 StDy = Format(CDate(TextBox1.Value), "yyyy/mm/dd")
　 EDy = Format(CDate(TextBox2.Value), "yyyy/mm/dd")
　 MySQL = "SELECT 店舗, 数量 FROM 販売数 WHERE 販売日 >= #" & _
　 StDy & "# AND 販売日 <= #" & EDy & "#;"
　 Set MyDB = DBEngine.Workspaces(0) _
　 .OpenDatabase(ThisWorkbook.Path & "\在庫管理.mdb")
　 Set MyRS = MyDB.OpenRecordset(MySQL)
　 Sheets("Sheet1").Range("A2").CopyFromRecordset MyRS
　 Close MyRS: Close MyDB
　 Set MyRS = Nothing: Set MyDB = Nothing
End Sub

0 hits

▼

【46311】アクセスのクエリを実行したい phoo 07/1/30(火) 13:00