Dim Kontrol As Control
For Each Kontrol In Me
Select Case Kontrol.ControlType 'Tüm kontrolleri gözden geçirelim..
Case acTextBox, acComboBox, acCheckBox, acOptionGroup
if(instr(Kontrol.tag,"personel") then arrayPersonel.add Kontrol
if(instr(Kontrol.tag,"haftasonu") then arrayHaftasonu.add Kontrol
if(instr(Kontrol.tag,"calisan") then arrayCalisan.add Kontrol
End Select
Next Kontrol
Metin Kutusu Birleştirmek Ve Text Özelliği
Konuyu Okuyanlar: 1 Ziyaretçi