formdaki objeleri tamımlama
#1
selam
formda değişik isimlerde
Butonlar,Metin Kutuları vs var bunların isimlerini değiştirmeden nasıl tanımlayıp kontrol altına alabilirim

şöyleki
Sıralı Bir Metin Kutuları var Metin Kutusu 1,Metin Kutusu vs
for döngüsü ile Kilitleyip açmak istiyorum fakat meti kutularının adları değişik olduğundan ya hepsini değiştirmem gerekli yada tanımlama yapılabilirmi
daha önceden böyle bir şeyle karşılaşmıştım tabii aradan zaman geçti



  Alıntı
Bu mesajı beğenenler:
#2
Selam.

Dün o konuya rastlamıştım. Site süper bu arada. Hazırlayanların eline sağlık Smile

http://www.access-sql.com/Konu-Formda-Al...me-ve-acma



  Alıntı
Bu mesajı beğenenler:
#3
sayın apaçi teşekkürler

Butonlar ada çözüm bulmam gerekli



  Alıntı
Bu mesajı beğenenler:
#4
For-Each Komutu ile Yapılabilir.



  Alıntı
Bu mesajı beğenenler:
#5
Merhaba..

Tüm kontorlllere işlem uygulamak içim bu yapı yeterlidir..:

Visual Basic
  1. On Error Resume Next
  2. Dim ctl As Control
  3. For Each ctl In Me.Form.Controls
  4. ctl.Visible = False 'gizleme komutu için
  5. Next



Kontrol türü seçerek işlem yapmak içinse bu türde bir yapı olabilir..:

Visual Basic
  1. On Error Resume Next
  2. Dim ctl As Control
  3. For Each ctl In Me.Form.Controls
  4. Select Case ctl.ControlType
  5. Case acTextBox 'Metin kutusu
  6. ctl.Visible = False
  7. Case acCommandButton 'Komut düğmesi
  8. ctl.Enabled = False
  9. Case acLabel 'Etiket
  10. ctl.Caption = "Trz"
  11. Case acOptionGroup 'Seçenek grubu
  12. ctl.Value = 1
  13. Case acListBox 'Liste kutusu
  14. ctl.Locked = True
  15. End Select
  16. Next



İlave olarak; örneğin tüm metin kutularına değil de bazıları üzerinde işlem yapmak isterseniz im(tag) özelliğinden fazdalanabilirsiniz..:

Visual Basic
  1. Dim ctl As Control
  2. 'sadece im özelliği "trz" olan açılan kutuları gizler..
  3. For Each ctl In Me.Form.Controls
  4. If ctl.ControlType = acComboBox And _
  5. ctl.Tag = "trz" Then
  6. ctl.Visible = False
  7. End If
  8. Next





  Alıntı
Bu mesajı beğenenler:
#6
selam
iki örnekte mükemmel alttaki kodu diğer elemanlara nasıl çoğaltabilirim
Dim ctl As Control
'sadece im özelliği "trz" olan açılan kutuları gizler..
For Each ctl In Me.Form.Controls
If ctl.ControlType = acComboBox And _
ctl.Tag = "trz" Then
ctl.Visible = False
End If
Next



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 411 11-09-2024, 13:09
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 495 09-09-2024, 17:14
Son Mesaj: ozan028
  Formdaki Veriyi Rapora Aktaramadım ankaram 2 394 18-02-2023, 21:51
Son Mesaj: ankaram
  Aktif Formdaki Raporu Yazdırma ankaram 3 442 27-01-2023, 00:46
Son Mesaj: BeyTor
  Alt Formdaki Alanların kursun 3 345 10-01-2023, 20:28
Son Mesaj: BeyTor
  Alt Formdaki Alanların Yazı Boyutunu Küçültme Nasıl Yapabiliriz? kursun 2 451 09-01-2023, 20:46
Son Mesaj: kursun
  Formdaki Toplam Raporda Görünmüyor. ankaram 7 747 01-11-2022, 10:21
Son Mesaj: ankaram
  Bir Formdaki Verileri Başka Bir Forma Aktarma Lidervet 4 688 20-10-2022, 11:04
Son Mesaj: Lidervet

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi