| |
VBA初心者です。
今、販売数や在庫数を管理するToolを作っています。
データはアクセスに蓄積し、エクセルで必要な期間のデータを抽出したいと思っています。
こちらの過去ログを参考にさせていただいて下記のようなコードを作成しました。
UserForm2のTextBox1に開始日、TextBox2に終了日を入力しそれをクエリのパラメーターへ渡しデータを抽出しようとしていますが、TextBox1とTextBox2にどのような日付を入れてもテーブルにあるすべてのデータが抽出されてしまいます。
初心者のためコードも見よう見真似です。
どなたかご教授いただけませんでしょうか？よろしくお願いします。
＜クエリ＞
販売日 日付/時刻型 Between [Date1] and [Date2]
店舗 テキスト型
数量 データ型
Private Sub 販売数抽出()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cmd As ADODB.Command
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\在庫管理.mdb"
Set Rs = New ADODB.Recordset
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Cn
Cmd.CommandText = "販売数"
Set Rs = Cmd.Execute(Parameters:=Array(UserForm2.TextBox1.Text, UserForm2.TextBox2.Text)
ActiveSheet.Range("a2").CopyFromRecordset Rs
Set wcmd = Nothing
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
|
|
phoo
- 07/1/30(火) 13:00 -
