AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Form Üzeri Arama Textboxları

1 2 3
06/02/2019, 22:33

acar6783

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 & ";" & Genislik
Kod:
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ışıyorum
07/02/2019, 07:32

acar6783

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
09/02/2019, 14:56

ozanakkaya

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.
1 2 3