Excel VBA質問箱 IV

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

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


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

25598 / 76735

←次へ　｜　前へ→


	【56475】複数パラメタを指定する選択クエリで「引数が・・・」のエラー

パンチパーマSE - 08/6/18(水) 17:32 -


	引用なし

	パスワード

VBA初心者です。
Excel2007でVBAを使用して、Access2007をデータベースとして
使用しています。
Access上に作った、複数パラメタを指定する選択クエリを
以下のコードで実行すると、
「引数が間違った型、許容範囲外、または競合しています」
というエラーが出てしまいます。
このクエリは、テーブルの「月度」というテキスト型の列に対して
「between [開始月度] and [終了月度]」という
条件を指定して、この期間の明細を選択表示するものです。

********　コード　********
　　Dim myConnect As ADODB.Connection
　　Dim myRSet As ADODB.Recordset
　　Dim myCommand As ADODB.Command

　　Set myConnect = New ADODB.Connection

　　myConnect.Open "File Name=c:\DataLink.udl"
　　
　　Set myRSet = New ADODB.Recordset
　　Set myCommand = New ADODB.Command

　　With myCommand
　　　　.ActiveConnection = myConnect
　　　　.CommandText = "Q_複数パラメタの選択クエリ"
　　End With

　　'暫定対応
　　myArray = Array(
　　　　　　　　　 Format(Worksheets("Sheet1").Range("A1").Value, "yyyymm"),
　　　　　　　　　 Format(Worksheets("Sheet1").Range("B1").Value, "yyyymm"))

　　Set myRSet = myCommand.Execute(Parameters:=myArray)
*************************

Sheet1の「A1」「B1」には、「2008/06/01」「2008/07/01」の値が
入っており、セルの書式設定にて「yyyy年mm月」の設定を
行っております。

イミディエイトウィンドウで
Format(Worksheets("Sheet1").Range("A1").Value, "yyyymm")
を調べたところ、「200806」という値が帰ってきました。

ちなみに、Access上でこのクエリを実行すると、
「200806」「200807」を指定して、正常に動作します。

どなたかお助けください。

0 hits

▼

【56475】複数パラメタを指定する選択クエリで「引数が・・・」のエラー パンチパーマSE 08/6/18(水) 17:32

≪