※ ChatGPTを利用し、要約された質問です（原文：コンパイルエラー 変数が定義されていません）
コンパイルエラー 変数が定義されていません
このQ&Aのポイント
VBAのコンパイルエラーで変数が定義されていない問題について質問しています。
参考URLからの情報に基づき、既存のAccessデータベースに新しいコマンドボタンを作成し、実行した際に変数が定義されていないというエラーが発生しています。
宣言された変数の値が正しく設定されていない可能性があり、正しい宣言と初期化方法を教えて欲しいとのことです。
コンパイルエラー 変数が定義されていません
下記URLの質問を参考にＶＢＡに挑戦しています
http://questionbox.jp.msn.com/qa5863136.html
下記コードを既存のＡＣＣＥＳＳの中に新規作成したコマンドボタンに
組み込んで実行したところ
下記変数にコンパイルエラー 変数が定義されていませんと出てきます、
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
お礼
ご意見ありがとうございます、 今までは、既存のフォームにコマンドボタンを追加作成したのですが、 新しくフォームをひとつ作りコマンドボタンをひとつだけ作って同じコードを記述した結果 最初のエラー表示は無くなりました。 因果関係分かりませんが、とりあえず新しいフォームにで運用するつもりです。 （少し急いでこなさなければならない事情がありまして） ただ新たな問題が待ち受けていました、 新しく質問をしたいと思いますので、よろしければご意見をお待ちしています。