Skip to main content

AccessTr.neT


her satır ayrı ayrı renkte olsun..listbox yada list view de

her satır ayrı ayrı renkte olsun..listbox yada list view de

Çözüldü #55
ayhan bey ne oldu cevap gelmedi
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #56
Onca yazışmadan sonra konu burada kalmış.

Son durum nedir, konu çözüldü mü? Taşıyalım mı?
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #57
sayın seruz çözüldü ben cevabımı aldım katkısı olan herkese çok teşekkür ederim.
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
Çözüldü #58
(05/08/2009, 15:51)esrefigit yazdı: 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

bende indirdiğim örnekte hata veriyor yardım edebilirmisiniz
@benbendedeilem
Son Düzenleme: 16/11/2009, 16:17, Düzenleyen: accessman.
Cevapla
Çözüldü #59
sayın accessman büyük ihtimalle siz ocx i tanıtmamışsınız yada siz taşıma yoluyla formu taşıdınız veya ado referansı ekli değil bir çok sebebi olabilir örneği ekleyin bakalım
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task