AccessTr.neT

Tam Versiyon: Formumdaki Arama Sonuçlarının Rapor Olarak Gösterilebilmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6
(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.

[Resim: do.php?imgf=154099970079311.png]


"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.

[Resim: do.php?imgf=154099970079311.png]


"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
Tag özelliğine yazacaksınız.
(01/11/2018, 12:08)ozanakkaya yazdı: [ -> ]Tag özelliğine yazacaksınız.

Tag özelliğine 'invisible' yazdım ama işe yaramadı
sayın databilgi 
sağ taraftaki görünmesini istemediğiniz kısımları toplu olarak seçip tag kısmına "gizlenecek" -yada artık siz ne isterseniz onu yazacaksınız-
sonrada sayın ozan Akkaya'nın söylediği kodları ekleyeceksiniz.
eğer tag açıklamasına "gizlenecek" dışında bir şey yazdıysanız kodu yazarken de 
kutu.Tag = "gizlenecek" yerine 
kutu.Tag = "ne yazdıysanız" onu yazacaksınz
dosya aşağıdadır.
Sayın DataBilgi, tavsiyem
https://accesstr.net/konu-1-access-in-te...acmak.html bağlantısından başlayıp tüm videoları izleyin.
Sayfalar: 1 2 3 4 5 6