0

複数回答ルックアップ フィールド コンボ コントロールで選択された値に基づいて最大 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]"」行で実行されます。

ありがとうございました。どんな援助も大歓迎です。

4

1 に答える 1