hatena
hatena
2024/04/26 (金) 15:42:40
selecl case me.cmb普軽.vlue
すみません。タイプミスです。下記に修正してください。
Selecl Case Me.Cmb普軽.Value
軽自動車を開くときはコントロールがフォーカスを取得しているときはコントロール
を非表示にすることはできませんと出ます。
メッセージ通り、開いた直後は普通車ページにフォーカスがあるのが原因ですので、軽自動車ページにフォーカス移動させればいいでしょう。
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普軽.Value
Case "普通車"
.普通車.Visible = True
.普通車.SetFocus
.軽自動車.Visible = False
Case "軽自動車"
.軽自動車.Visible = True
.軽自動車.SetFocus
.普通車.Visible = False
End Select
End With
End Sub
通報 ...