AccessTr.neT

(31/10/2018, 21:20)DataBilgi yazdı: [ -> ]

(31/10/2018, 18:31)ozanakkaya yazdı: [ -> ]Formun sağ tarafında bululan 9 adet metin kutusunun "İm" özelliğine "gizlenecek" yaz. Shift veya Ctrl tuşuna basarak çoklu seçim yapabilirsin.




"cmdFilter" isimli butonunun tıklandığında olayındaki kodun en üstüne (Private Sub cmdFilter_Click() kodunun hemen altına)

Dim kutu As Control

 

For Each kutu In Me



    If kutu.Tag = "gizlenecek" Then

    

        kutu.Visible = False

    

    End If



Next

kodu ekle,

Command90 isimli butonun tıklandığında olayındaki kodun en üstüne de

Dim kutu As Control

 

For Each kutu In Me



    If kutu.Tag = "gizlenecek" Then

    

        kutu.Visible = True

    

    End If



Next

Kodu ekle. Sonraki sorularında, konu başlığındaki sorudan farklı sorunuz var ise yeni konu açınız.

Tesekkur ederim. Benim Acess 2016 Ingilizce ve Ozellik bolumunde im adi altinda bir ozellik yok. En son Tag yani akilli etiketler var fakat im yok malesef.  Kodu aşağıdaki şekilde Command90 ve Private Sub cmdFilter_Click() altına ekledim. Fakat İM özelliğini bulamadım. Yardımcı olursanız sevinirim.  Saygılarımla

For Each TextBox In Me

    If TextBox.Tag = "invisible" Then
    
       TextBox.Visible = False

(01/11/2018, 11:47)DataBilgi yazdı: [ -> ]

(31/10/2018, 21:20)DataBilgi yazdı: [ -> ]

(31/10/2018, 18:31)ozanakkaya yazdı: [ -> ]Formun sağ tarafında bululan 9 adet metin kutusunun "İm" özelliğine "gizlenecek" yaz. Shift veya Ctrl tuşuna basarak çoklu seçim yapabilirsin.




"cmdFilter" isimli butonunun tıklandığında olayındaki kodun en üstüne (Private Sub cmdFilter_Click() kodunun hemen altına)

Dim kutu As Control

 

For Each kutu In Me



    If kutu.Tag = "gizlenecek" Then

    

        kutu.Visible = False

    

    End If



Next

kodu ekle,

Command90 isimli butonun tıklandığında olayındaki kodun en üstüne de

Dim kutu As Control

 

For Each kutu In Me



    If kutu.Tag = "gizlenecek" Then

    

        kutu.Visible = True

    

    End If



Next

Kodu ekle. Sonraki sorularında, konu başlığındaki sorudan farklı sorunuz var ise yeni konu açınız.

Tesekkur ederim. Benim Acess 2016 Ingilizce ve Ozellik bolumunde im adi altinda bir ozellik yok. En son Tag yani akilli etiketler var fakat im yok malesef.  Kodu aşağıdaki şekilde Command90 ve Private Sub cmdFilter_Click() altına ekledim. Fakat İM özelliğini bulamadım. Yardımcı olursanız sevinirim.  Saygılarımla

For Each TextBox In Me

    If TextBox.Tag = "invisible" Then
    
       TextBox.Visible = False
End if

Next

(01/11/2018, 12:08)ozanakkaya yazdı: [ -> ]Tag özelliğine yazacaksınız.