Bir öneri,

Komut229'un tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Komut229_Click()



    If Me.Komut229.Caption = "2.Yarıyıla geç" Then

        Me.egitim2sinav1.Visible = True

        Me.egitim2sinav2.Visible = True

        Me.egitim2sinav3.Visible = True

        Me.egitim2sinav4.Visible = True

        Me.Komut229.Caption = "2.Yarıyılı Kapat"

    Else

        Me.egitim2sinav1.Visible = False

        Me.egitim2sinav2.Visible = False

        Me.egitim2sinav3.Visible = False

        Me.egitim2sinav4.Visible = False

        Me.Komut229.Caption = "2.Yarıyıla geç"

    End If



End Sub

Formun geçerli olduğunda olayına yazdığın koda aşağıdaki kodları ekle

    If Me.egitim2sinav1.Visible = True Then

        Me.Komut229.Caption = "2.Yarıyılı Kapat"

    Else

        Me.Komut229.Caption = "2.Yarıyıla geç"

    End If

düzenlenmiş hali ektedir.