| |
▼masami さん：
こんばんは。
朝、出掛けにちらっと拝見しましたが、
この投稿だと回答が付きにくいですよ！！
>EDT_MENU.TANKA_1がチェックされていればDBに接続ずみなので
>DBからデータを持ってきて
>w_buhin とDBから持ってきた品番の値が一致すればワークシート内にbaikaをセットするようにしたのですがオブジェクトが必要ですとエラーがでます。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
> End If
>End If
|
|
ichinose
- 04/9/3(金) 19:46 -
