hatena
hatena
2024/04/25 (木) 13:51:33
了解しました。
まず、
フォーム名「選択」
テキストボックス名「普軽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
通報 ...