Accessフォームの作成

質問

Accessで作成されているシステムの
ファイル取り込みフォームにある実行ボタンを押下すると、
下記のメッセージが表示されます。
「select case に対応する case がみつからない。」

どこかで指定しないといけないのでしょうか？

Private Sub Cmd実行_Click()
On Error GoTo Err
Dim StrSql As String
Dim IntNDCnt As Integer
Dim IntNTCnt As Integer

'確認メッセージの出力
If MsgBox("処理を開始します。よろしいですか？", vbInformation + vbYesNo, "データ取込処理") = vbNo Then
Exit Sub
End If

'対象データ別の処理実行
Select Case Me.Cmb対象.ListIndex
Case -1 'エラー
MsgBox "読込むデータを指定してください", vbCritical, "データ取込処理"
Exit Sub

Case 0 '全データ
If F_手数料明細読込() = False Then
Exit Sub
End If

If F_奨励金読込() = False Then
Exit Sub
End If

If F_減額読込() = False Then
Exit Sub
End If

If F_預り金読込() = False Then
Exit Sub
End If

Case 1 '手数料データ
If F_手数料明細読込() = False Then
Exit Sub
End If

Case 2 '奨励金データ
If F_奨励金読込() = False Then
Exit Sub
End If

Case 3 '減額データ
If F_減額読込() = False Then
Exit Sub

Case 4 '預り金データ
If F_預り金読込() = False Then
Exit Sub

End If
End Select

今は、Case 4が黄色に反転します。

回答No.1

zatton · ベストアンサー

こんにちは。

　Case 3 '減額データ
　If F_減額読込() = False Then
　Exit Sub

の後に
　End If
がありませんね。

お礼

有り難うございました。
解決できました。