+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Üzeri Arama Textboxları (/konu-form-uzeri-arama-textboxlari.html)
Cvp: Form Üzeri Arama Textboxları - acar6783 - 06/02/2019
Kod:
For Each tb In Me.Controls
If tb.ControlType = 109 And left(tb.Name, 1) = "t" Then
Genislik = Genislik & ";" & tb.Width / 1449 & Chr$(34)
End If
Next tb
Genislik = Mid(Genislik, 2)
Me.OgrList.ColumnWidths = 0 & ";" & GenislikKod:
Kodlarda değişiklik yapmaya karar verdim. Burada 1449 rakamını kendim uydurdum. Neredeyse ölçüler birebir tutuyor.
Fakat ne kadar başarılı olu bilmiyorum.
Listboxların genişliklerini üstte bulunan textboxlara uyarlamaya çalışıyorumCvp: Form Üzeri Arama Textboxları - acar6783 - 07/02/2019
Güncel dosyam ektedir.
Burada ek bir sorun ise ekrana sığdırmak için kullandığım kodlardan mı kaynaklı bilmiyorum fakat alt bölümde kaydırma çubuğu oluşuyor
Cvp: Form Üzeri Arama Textboxları - ozanakkaya - 09/02/2019
Merhaba, form boyutlandırırken denetimlerin genişlikleri hesaplanıyor. Bu yüzden denetim genişlikleri forma sığmadığı için kaydırma çubuğu görünüyor.
Konu başlığındaki sorunuz çözüldü ise konunuzu taşıyalım.