Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/02/2019 22:13
Konu Sahibi
acar6783
Yorumlar
6
Okunma
309
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
acar6783

acar6783

Üye
45324
mu.... ac....
 36
 5
 27
 23/01/2012
0
 Ankara
 muhasebe
 Ofis 2007
 09/03/2019,22:27
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Form_Load()

Dim rs As DAO.Recordset
Dim intLoop As Integer
Dim strSQL As String
Dim Genislik

Me.Visible = True
DoCmd.Maximize
strSQL = "SELECT MAX(LEN(Field1)) as Len1, MAX(LEN(Field2)) as Len2, " _
              & "MAX(LEN([Field3])) as Len3, MAX(LEN([Field4])) as Len4, " _
             & "MAX(LEN([Field5])) as Len5, MAX(LEN([Field6])) as Len6, " _
              & "MAX(LEN([Field7])) as Len7, MAX(LEN([Field8])) as Len8, " _
              & "MAX(LEN([Field9])) as Len9 , MAX(LEN([Field10])) as Len10, " _
              & "MAX(LEN([Field11])) as Len11, MAX(LEN([Field12])) as Len12 FROM [OgrenciListesi]"
Set rs = CurrentDb.OpenRecordset(strSQL, , dbFailOnError)

For intLoop = 0 To rs.Fields.Count - 1
    '.05 value assumes 10 characters per inch for your font/fontsize
    Genislik = Genislik & ";" & rs(intLoop) * 0.1 & Chr$(34)
Next
Genislik = Mid(Genislik, 2)

Me.OgrList.ColumnWidths = Genislik

End Sub
 

Yukarıdaki kodlarla listbox sütun genişliğini otomatik yapmak istiyorum fakat

[Resim: do.php?img=8813]



ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.131
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 14/06/2019,00:57
örnek eklermisiniz


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

...........
acar6783

acar6783

Üye
45324
mu.... ac....
 36
 5
 27
 23/01/2012
0
 Ankara
 muhasebe
 Ofis 2007
 09/03/2019,22:27
(05/02/2019 22:45)ozguryasin Adlı Kullanıcıdan Alıntı: örnek eklermisiniz



acar6783

acar6783

Üye
45324
mu.... ac....
 36
 5
 27
 23/01/2012
0
 Ankara
 muhasebe
 Ofis 2007
 09/03/2019,22:27
Ek olarak resimde bulunan Sol taraftaki ok işaretli yerin sebebi ne olabilir?


Ekran Görüntüleri
   

...........
ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.131
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 14/06/2019,00:57
özellikler bölümünden 
kayıt seçicileri  
hayır 
yapın düzelir. ok işareti kaybolur.


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.099
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,02:59
Merhaba, kodda sorgu oluşturucuda Filed1, Field2 şeklinde alan tanımlaması yapılmış, ancak tablonuzda bu alanlar yok. Kodun aşağıdaki gibi değiştirilmesi gerekli.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
  DoCmd.Maximize
' ReSizeForm Me

Dim rs As DAO.Recordset
Dim intLoop As Integer
Dim strSQL As String
Dim Genislik

Me.Visible = True
DoCmd.Maximize
strSQL = "SELECT MAX(LEN(SıraNo)) as Len0, MAX(LEN(Tc)) as Len1, MAX(LEN([Adı- Soyadı])) as Len2, " _
              & "MAX(LEN([Cep Telefonu])) as Len3, MAX(LEN([Servis Hattı])) as Len4, " _
             & "MAX(LEN([Anne Adı-Soyadı])) as Len5, MAX(LEN([Anne Cep Telefonu])) as Len6, " _
              & "MAX(LEN([Baba Adı Soyadı])) as Len7, MAX(LEN([Baba CepTelefon])) as Len8, " _
              & "MAX(LEN([CariKodu])) as Len9 , MAX(LEN([Borç])) as Len10, " _
              & "MAX(LEN([Alacak])) as Len11, MAX(LEN([Bakiye])) as Len12 FROM [OgrenciListesi]"
Set rs = CurrentDb.OpenRecordset(strSQL, , dbFailOnError)



For intLoop = 0 To rs.Fields.Count - 1

    '.05 value assumes 10 characters per inch for your font/fontsize
    Genislik = Genislik & ";" & rs(intLoop) * 0.1 & Chr$(34)
Next
Genislik = Mid(Genislik, 2)

Me.OgrList.ColumnWidths = Genislik


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Listbox Seçilen Değerin Görünmemesi yahzee_61 5 162 24/01/2019, 15:11
Son Yorum: ozanakkaya
Çözüldü Nesne Penceresinin Genişliği Değişmiyor herdogan22 1 162 10/12/2018, 10:45
Son Yorum: ozanakkaya
Çözüldü Sütun Altında Toplam Aldırmak... A_day 6 291 18/11/2018, 11:29
Son Yorum: A_day
Çözüldü Yıla Göre Aylık Toplu Ve Yıla Göre Aylık Listbox Filtreli Rapor shephard 6 500 19/09/2018, 20:13
Son Yorum: shephard
Çözüldü Açılan Kutuda Çoklu Sütun Arama Kodu ielmacilar 2 316 24/07/2018, 17:39
Son Yorum: ielmacilar

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.