Microsoft Access 掲示板

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

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

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
通報 ...