複数回答ルックアップ フィールド コンボ コントロールで選択された値に基づいて最大 17 の他のフォームを開く「メイン情報」フォームでクリック イベントをプログラムしたいと考えています (数値 ID フィールド/テキスト文字列カテゴリに対応し、その「主な情報」フォームに格納されている、独立した別の表)。
私はこれが一般的なコードであることを学びました:
Private Sub DiagCat_AfterUpdate()
Select Case DiagCat
Case "Cancer [140-208]"
DoCmd.OpenForm (Cancer_Form)
Case "Heart Disease [393-398, 402, 410-429]"
DoCmd.OpenForm (Heart_Disease_Form)
Case "Stroke [430-438]"
DoCmd.OpenForm (Stroke_Form)
Case "Diabetes [250]"
DoCmd.OpenForm (Diabetes_Form)
Case "Hypertension [401]"
DoCmd.OpenForm (Hypertension_Form)
Case "Liver Disease [070, 571-573]"
DoCmd.OpenForm (Elevated_Cholesterol_Form)
End Select
End Sub
VBA は「型の不一致」エラー 13 を発行します。エラーは「Case "Cancer [140-208]"」行で実行されます。
ありがとうございました。どんな援助も大歓迎です。