(19/01/2014, 13:34)abahceci yazdı: Taruz hocam, emeğinize sağlık. Gerçekten çok güzel bir çalışma...
Bu arada bir sorum olacak: Tablodaki alan sayısı ne kadar ise listedeki alan o kadar az veya fazla olabiliyor (ters orantı şeklinde). Dolayısıyla alan sayısı fazla olduğunda bazı alanlar neredeyse hiç okunmuyor. Alanları genişletip daraltmak istersek nasıl bir yol izlememiz gerekir? Şimdiden çok teşekkür ederim...
Tabloları seçtiğiniz kutunun kod bölümüne listenin sütun genişliklerini belirleyebileceğiniz bir kod yazabilirsiniz..:
Liste.ColumnWidths = "2;3;2,5"
Elbette onlarca tablo ve sorgu barındıran bir veritabanında her alanın veri genişliğini öngörüp ayarlamak zor.. Sabit bir değer belirleyip sütun sayısına göre döngü ile bu değeri atamak en mantıklı yol gibi geldi bana.. Tablokutu adındaki açılan kutunun güncelleştirme sonrasında bulunan prosedürün altına ilave ederek test edebilirsiniz..:
Kod:
LSutGenislik = "2cm" 'ondalık değer için virgül kullanın.. 2,9cm gibi
For i = 0 To Liste.ColumnCount 'Sütun sayısı kadar döngü yapar..
aa = aa & "; " & LSutGenislik
Next
aa = Mid(aa, 2)
Liste.ColumnWidths = aa