+- 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ığı: her satır ayrı ayrı renkte olsun..listbox yada list view de (/konu-her-satir-ayri-ayri-renkte-olsun-listbox-yada-list-view-de.html)
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - karaayhan - 05/08/2009
ben hala açamıyorum neden
ilgili ocx dosyasını system32 içine yükledim ama nafile
bu denetimde nesne yok diyor başka birşey demiyor..
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - Bilgisayarcı - 05/08/2009
Sayın Karaayhan Access içinde Activex seçeneklerine gelip kayıt et der misiniz?
Sonra da ekle activex denetimlerinden flexgridi seçip ekleyin forma tekrar açın
Sayın remi orada istediğiniz yerden çağırabileceğiniz bir sub var. Formun load olayına yazmak o kadar zor olmaz diye tahmin ediyorum?
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - karaayhan - 05/08/2009
denedim yaptım defalarca 2007 bile denedim ama nafile ocx 'i gösterdim kayıt ettim üzerine çift tıkladım bilmem neyle birlikte açtım form açılışında
bu denetimde nesne yok diyor hala........
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - Bilgisayarcı - 05/08/2009
Üzerine çift tıklamak? Open with yapmak? Neden ki?
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - esrefigit - 05/08/2009
sayın karayhan flexgrid i neden çalıştıramadın bilmiyorum ancak şimdi vereceğim microsoftun flexgridin bazı eksikliklerini gördüğü için değişikliğie uğrattı hiyararşik flexgrid ocx idir ekte hem ocx hemde örnek birlikte verilmiştir büyük ihtimalle çalışacaktır
hem bunda gride verileri almak gayet basittir
Dim rsEE As New ADODB.Recordset
rsEE.Open "GLTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rsEE
hepsi bu kadar
ancak renklendirme dediğin zaman olay değişiyor öncelikle bütün kayıtları dolanman lazımki bu rs.eof ile yapıyoruz ki her satırıda renklendirme yapalım
While Not rsEE.EOF
i = i + 1
şimdi satırları dolanmak yetmiyor ayrıca stunlarıda dolanmak lazım
bunun içinde stun sayısını bilmek gerekiyor
For stunsay = 0 To rsEE.Fields.Count
işte urdaki felds.count bize stunsaysını veriyor ve her satırda bütün stunlar olmak üzere renklendir diyoruz
burda kaçıncı satırı renklendireceğiz onu söylüyoruz i ye göre
.Row = i
burda da kaçıncı stunu
.Col = stunsay
işte burda renklendirme başlıyor 2 lik moda göre yani bir atla renklendri
If (i Mod 2) = 0 Then .CellBackColor = 16777215 Else .CellBackColor = 255
sonraki stun
Next stunsay
sonraki satır veya kayıt
rsEE.MoveNext
Wend
End With
buda tıklamada o hücredeki veriyi al göster
Private Sub MSHFlexGrid1_Click()
MsgBox MSHFlexGrid1.Text
End Sub
Cvp: her satır ayrı ayrı renkte olsun..listbox yada list view de - karaayhan - 05/08/2009
teşekkürler sayın esrefigit,
birde sitede şöyle bişi olmuş şu an 12 sayfa var görünüyor ama tıklayınca gitmiyor sayfaya boş diyor e boş sa niye sayfa açmış oluyor onu anlamadım..( bu bahsettiğim forum şu an yazı yazdığım ekranla alakalı
