OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Access VBAで行ラベルが定義されていないというエラーが出ます

  • すぐに回答を!
  • 質問No.245706
  • 閲覧数12742
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 80% (34/42)

VBA初心者です。
下記のソースで行ラベルを定義しているつもりなのですが、
なぜか行ラベルが定義されていませんというコンパイルエラーがでます。
よろしくお願いします。

Private Sub cmd_Click()
On Error GoTo Err_cmd_Click <---ここ

Dim inp As String
Dim cnt As Integer

inp = Forms![フォーム1]![日付] 'フォームの非連結テキストボックスと連動

For cnt = 1 To 31

'インポート・フルパス名作成
If (cnt) < 9 Then
strImportFileNameM = "M:\PdxLog\KabeKaKinA" & inp & "0" & cnt + 1 & ".csv"
DoCmd.TransferText acImportDelim, , "KabeDownLoad", strImportFileNameM, False
Else
strImportFileNameM = "M:\PdxLog\KabeKaKinA" & inp & cnt + 1 & ".csv"
DoCmd.TransferText acImportDelim, , "KabeDownLoad", strImportFileNameM, False
End If

Next cnt

'正常終了
Exit_cmd_Click:
End Sub

'エラー処理
Err_cmd_Click:
Beep
Select Case Err.Number
Case Else
MsgBox Err.Number & ":" & Err.Description
End Select
Resume Next
End Sub
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 63% (325/508)

Exit_cmd_Click: の次の行 の End Sub でプロシージャが終了してしまい、エラー処理が cmd_Click Subプロシージャの外に出てしまっているためです。

'正常終了
Exit_cmd_Click:
End Sub ⇒ Exit Sub のようにしてみてください。
お礼コメント
t_n_t

お礼率 80% (34/42)

さっそく試したところ解決しました。
回答ありがとうございました。
投稿日時 - 2002-04-02 16:40:21
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ