30/01/2010, 16:19
Hayri16
Sayın Yöneticiler;
Sorgu veya tablodan alınan verileri liste kutularına aktardığımızda bazen sıra numarası verme ihtiyacımız doğar. Bunun için forumda bir çok çözüm var. Bir çözüm de ben ekleyeyim dedim. (Gerçi kayıtlar çoğalınca nasıl etki eder bilemiyorum)
Çözüm Mantığı:
Sorgumuzu veya tablomuzu aktaracağımız bir liste kutusu oluşturuyoruz. Buna "gercekliste" adını veriyoruz.
Sonra bir liste daha oluşturuyoruz. Buna da "gorliste" adını veriyoruz. gorliste'nin Satır Kaynak Türü'nü Değer Listesi olarak belirliyoruz. Kaç sütun istiyorsak ona göre sayısını ve genişliklerini ayarlıyoruz.
Sonra aşağıdaki kodu form_load veya sizin kullanacağınız bir yordama ekliyoruz.En sonunda gercekliste yi görünmez yapıyoruz. Formu çalıştırdığımızda gorliste adlı listemizde sıra numaralı verilerimiz geliyor. Aşağıda küçük bir örneği (hem 2007 hem 2003) ekliyorum.
NOT: Sayın yöneticiler konuyu burada açtım. Eğer forum kurallarına aykırı bir durum söz konusu ise özür diliyorum.
Sorgu veya tablodan alınan verileri liste kutularına aktardığımızda bazen sıra numarası verme ihtiyacımız doğar. Bunun için forumda bir çok çözüm var. Bir çözüm de ben ekleyeyim dedim. (Gerçi kayıtlar çoğalınca nasıl etki eder bilemiyorum)
Çözüm Mantığı:
Sorgumuzu veya tablomuzu aktaracağımız bir liste kutusu oluşturuyoruz. Buna "gercekliste" adını veriyoruz.
Sonra bir liste daha oluşturuyoruz. Buna da "gorliste" adını veriyoruz. gorliste'nin Satır Kaynak Türü'nü Değer Listesi olarak belirliyoruz. Kaç sütun istiyorsak ona göre sayısını ve genişliklerini ayarlıyoruz.
Sonra aşağıdaki kodu form_load veya sizin kullanacağınız bir yordama ekliyoruz.
Kod:
Private Sub Form_Load()
Dim sno As Integer
gorliste.RowSource = ""
For sno = 0 To gercekliste.ListCount - 1
gorliste.AddItem sno + 1 & ";" & gercekliste.Column(1, sno)
Next
End SubNOT: Sayın yöneticiler konuyu burada açtım. Eğer forum kurallarına aykırı bir durum söz konusu ise özür diliyorum.