örneğinize göre sn Danke'nin verdiği kod kullanılabilir. Ben Danke'nin belirttiği if olayını içeren farklı bir yöntem önereyim.

Gizlenmesini istediğin metin kutularının "Özellik Sayfası"nı aç ve "İm" alanına 1 yaz.

formun vb sayfasına aşağıdaki kodu ekle

Sub Gizle()

If Me.Araç_Satıldı.Value = "-1" Then

    For Each kutu In Me

        With kutu

            If .Tag = 1 Then

            .Visible = True

            End If

        End With

    Next

End If

If Me.Araç_Satıldı.Value = "0" Then

    For Each kutu In Me

        With kutu

            If .Tag = 1 Then

            .Visible = False

            End If

        End With

    Next

End If

End Sub

formun geçerli olduğunda olayına ve Onay Kutusunun tıklandığında olayına aşağıdaki kodu yaz.

call gizle

Ekteki "5 b DMM İhale Sonucu" formunu incele...