[解決済み] VBAのコードに「Label Not define」がありますが、これは何ですか?
2022-02-19 18:48:54
質問
MS AccessにVBAのコードを持っています。
Private Sub ToolingNoID_AfterUpdate()
On Error GoTo ToolingNoID_AfterUpdate_Err
Dim ToolingNoID As String
ToolingNoID = InputBox("Please enter Tooling No", "Enter Tooling No")
If (IsNull(ToolingNoID)) Then
Exit Sub
Beep
MsgBox "Please enter the tooling number.", vbOKOnly, ""
DoCmd.CancelEvent
End If
End Sub
オフェンスラインは
Private Sub ToolingNoID_AfterUpdate()
上記の条件を満たすために、私のコードのどの部分を変更すべきなのか、本当に見当がつかないのです。どなたか教えてください。
どのように解決するのですか?
問題のある行は
Sub
という宣言がありますが、これはこの行です。
On Error GoTo ToolingNoID_AfterUpdate_Err
はありません。
ToolingNoID_AfterUpdate_Err
というラベルをプロシージャに追加してください。を削除してください。
On Error
ステートメントを使用するか、プロシージャの最後にエラー処理のサブルーチンを追加してください。
Exit Sub
ToolingNoID_AfterUpdate_Err:
MsgBox Err.Description, "Unexpected Error", vbExclamation
End Sub
VBAでは、行ラベルは識別子とコロンで定義され、コードの行頭に置かれます(理想的には1つの行に置かれる)。
LineLabel:
ラベルが定義されていません"は、ある命令がそのスコープに存在しないラベルを参照しているときに発生するコンパイル・エラーです。
関連
-
[解決済み] Excel VBA "レンジクラスのオートフィルメソッドに失敗しました"
-
[解決済み] エクセルVBAです。エラー1004 WorkSheetFunction 'Unable to get Vlookup property'
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] VBA チャートのタイトルを追加する
-
[解決済み] Access VBAで "Duplicate declaration in current scope "というエラーが発生する。
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] FormulaR1C1 の機能は何ですか?
-
[解決済み] Accessからレポートを自動でメール送信
-
[解決済み] VBAでエラー時のGOTOステートメント
-
[解決済み】Visual Basic 6.0とVBAの違いについて
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】VBA。ランタイム1004を取得する。オブジェクト'_Worksheet'のメソッド'Range'は、セルを使用するときに失敗しました。
-
[解決済み] コンパイルエラーです。End If without block If
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] VBAのコードに「Label Not define」がありますが、これは何ですか?
-
[解決済み] VBA チャートのタイトルを追加する
-
[解決済み] Access VBAで "Duplicate declaration in current scope "というエラーが発生する。
-
[解決済み] コンパイルエラーです。Forがない場合は次へ|VBA
-
[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために
-
[解決済み] Accessからレポートを自動でメール送信
-
[解決済み】VBAは辞書構造を持っていますか?