コンパイルエラー 変数が定義されていません
下記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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
ACCESSで、履歴事項を管理する...
-
1、Rstudioで回帰直線を求める...
-
エクセルVBAコードで教えて下さ...
-
1日に1人がこなせるプログラム...
-
VBAでファイルオープン後にコー...
-
ユーザーフォームで銀行に対応...
-
GrapeCityのSpreadについて
-
ExcelのVBAコードについて教え...
-
COBOLの文法
-
Exel VBA 別ブックから該当デ...
-
VBで書かれたコードの意味について
-
携帯からメールアドレスの取り...
-
エクセルで重複しない値を作成...
-
JavaScript|特定URLだった時、...
-
vba スライサー
-
C# コードビハインドについて
-
コンパイルエラー 変数が定義...
-
JIPS-Eコードのコード表について
-
JavaScriptの定数名が取り消し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報