Excel VBA質問箱 IV

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

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


25595 / 76732 ←次へ | 前へ→

【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 質問
【56476】Re:複数パラメタを指定する選択クエリで「... パンチパーマSE 08/6/18(水) 17:36 発言
【56482】Re:複数パラメタを指定する選択クエリで「... neptune 08/6/18(水) 22:33 発言
【56487】Re:複数パラメタを指定する選択クエリで「... パンチパーマSE 08/6/19(木) 10:09 発言
【56492】Re:複数パラメタを指定する選択クエリで「... neptune 08/6/19(木) 13:11 発言
【56539】Re:複数パラメタを指定する選択クエリで「... パンチパーマSE 08/6/20(金) 10:08 お礼
【56547】Re:複数パラメタを指定する選択クエリで「... neptune 08/6/20(金) 11:58 発言

25595 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free