Microsoft Access 掲示板

タブコントロールの表示、非表示について / 4

7 コメント
views
4 フォロー
4

了解しました。
まず、

フォーム名「選択」
 テキストボックス名「普軽txt」

上記のテキストボックスを右クリックして「コントロールの種類の変更」で「コンボボックス」を選択します。これでコンボボックスに変更できます。
このコンボックスのプロパティを下記のように設定してください。

名前  cmb普軽
値集合ソース 普通車;軽自動車
値集合タイプ 値リスト
入力チェック はい
リストの編集の許可 いいえ

コマンドボタンの「クリック時」の[イベントプロシージャ]を下記のように記述します。
コマンドボタンの名前は cmd車庫証明Open

Private Sub cmd車庫証明Open_Click()
    If Nz(Me.cmb普軽) = "" Then
        MsgBox "「普通車」または「軽自動車」を選択してください。"
        Exit Sub
    End If
    
    DoCmd.OpenForm "F車庫証明"
    
    With Forms!F車庫証明
        Select Case Me.cmb普軽.Vlue
        Case "普通車"
            .普通車.Visible = True
            .軽自動車.Visible = False
        Case "軽自動車"
            .普通車.Visible = False
            .軽自動車.Visible = True
        End Select
    End With
End Sub
通報 ...