![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
コンパイルエラー 変数が定義されていません
下記URLの質問を参考にVBAに挑戦しています
http://questionbox.jp.msn.com/qa5863136.html
下記コードを既存のACCESSの中に新規作成したコマンドボタンに
組み込んで実行したところ
下記変数にコンパイルエラー 変数が定義されていませんと出てきます、
objConnection
objRecordSet
strkanri
arrkanri
自分なりに
Dim ~としたのですがうまくいきません
どのように変数を宣言してよいかお教え願います。
記述コード
Private Sub コマンド0_Click()
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForReading = 1
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:\test\商品管理.mdb"
objRecordSet.Open "SELECT * FROM 商品TBL", _
objConnection, adOpenStatic, adLockOptimistic
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\test\管理.csv")
Do Until objFile.AtEndOfStream
strkanri = objFile.ReadLine
MsgBox strkanri
arrkanri = Split(strkanri, ",")
objRecordSet.Filter = "納入日=" & arrkanri(0) _
& " AND 仕入NO ='" & arrkanri(1) & "'"
Do While (Not objRecordSet.EOF)
objRecordSet("管理コード") = arrkanri(2)
objRecordSet.Update
objRecordSet.MoveNext
Wend
Loop
objRecordSet.Close
objConnection.Close
End Sub
No.1ベストアンサー
- 回答日時:
> 自分なりに
> Dim ~としたのですがうまくいきません
提示されているコードの中には見当たりませんが・・・
ご意見ありがとうございます、
今までは、既存のフォームにコマンドボタンを追加作成したのですが、
新しくフォームをひとつ作りコマンドボタンをひとつだけ作って同じコードを記述した結果
最初のエラー表示は無くなりました。
因果関係分かりませんが、とりあえず新しいフォームにで運用するつもりです。
(少し急いでこなさなければならない事情がありまして)
ただ新たな問題が待ち受けていました、
新しく質問をしたいと思いますので、よろしければご意見をお待ちしています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
JANコードとPOSコードは同じ?
-
オートフィルタで抽出結果に 罫...
-
1日に1人がこなせるプログラム...
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
access2003 クエリSQL文に...
-
COBOLの文法
-
ペンダントライトのコードの色...
-
コンボボックスの複数列表示に...
-
VBAのフィルター操作
-
コンボボックス3つを連動させたい
-
特定行の背景色を変えたいのですが
-
ACCESSで、履歴事項を管理する...
-
VBScriptで、Date.parseを使いたい
-
【VB6】実行ファイルとした後、...
-
JIPS-Eコードのコード表について
-
Excel VBA 空白をセルを探して...
-
Nullの使い方が不正です。
-
DocumentCompleteイベントプロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1、Rstudioで回帰直線を求める...
-
フィルターかけた後、重複を除...
-
IF文、条件分岐の整理方法
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
変数名「cur」について
-
COBOLの文法
-
エクセルに見えない文字(JISX0...
-
PreviewKeyDownイベントが2回...
-
sinカーブの表示のさせ方
-
ACCESSユニオンクエリでORDER B...
-
オートフィルタで抽出結果に 罫...
-
Nullの使い方が不正です。
-
【VB6】実行ファイルとした後、...
-
SQL
-
特定行の背景色を変えたいのですが
-
VBAでファイルオープン後にコー...
おすすめ情報