ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
QNo.3810478 Accessフォームの作成
質問者：n_c63amg 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が黄色に反転します。
困り度：
  • すぐに回答を！
質問投稿日時：
08/02/26 06:19
この質問に対する回答は締め切られました。

回答良回答20pt
ANo.1 こんにちは。

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

の後に
　End If
がありませんね。
回答者：zatton
種類：回答
どんな人：専門家
自信：自信あり
回答日時：
08/02/26 06:24
この回答へのお礼有り難うございました。
解決できました。
 
スポンサーサイト（詳細）
このページのトップへ