|
>こんばんは。
>朝、出掛けにちらっと拝見しましたが、
>この投稿だと回答が付きにくいですよ!!
>
>>EDT_MENU.TANKA_1がチェックされていればDBに接続ずみなので
>>DBからデータを持ってきて
>>w_buhin とDBから持ってきた品番の値が一致すればワークシート内にbaikaをセットするようにしたのですがオブジェクトが必要ですとエラーがでます。RecordSetのやり方がいけなかったのでしょうか?
>このエラーを再現できる情報が少ないということです。
>
>それから、どの行でエラーが起こっているかもわかりません。
ごめんなさい、これは、記述されていましたね。失礼しました。
ということは、省略してあるけどRecordsetは取得されていると言う事ですか?
>>
>>If EDT_MENU.TANKA_1.Value = True Then
>> str_sql = "select hinban,baika,hinban_st,tourokuday from tankatable;" ' where tourokuday > add_months(trunc(sysdate),-24),hinban_st = '3' or '0' ;"
>'このSQLでとこでRecoredsetを取得しているのですか?
>
>> If w_buhin = RecordSet.hinban Then
>' ↑これ何ですか?
>> Worksheets(w_sheet).Cells(N2 + 5, 10) = RecordSet.baika
'そうすると、気になるのは ↑のw_sheetが何なのかですが・・
>> End If
>>End If
|
|