Hallo!
Wer kann mir helfen?
Ich fülle ein ListView-Control mit Daten aus einer Tabelle.
Anschließend werden die Daten im Control berechnet und in einer neuen Zeile ausgegeben.
Jetzt möchte ich aber z.B. negative Zahlen einer Zeile/Spalte in einer anderen Farbe ausgeben.
Wie mache ich das?
Bzw. wie komme ich per Code an den ForeColor-Befehl ran?
Schon jetzt einmal Danke!
Andy
hmm ich habe für diesen fll icht das listview vo access, sodern ein activex genomme, bei dem mann man die vordergrundfarbe auch Spaltenweise setzen…
ist aber ein klein weig aufwendiger und du brauchst das etsprechende ocx file
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Holger.
Erst einmal schönen Dank. Ich habe das ActiveX-Control auch gleich ausprobiert. Aber wie spreche ich jetzt die Spalten/Zeilen an?
Andy
Hier mal ein Beispielcode
denk dran, das bei den Eistellungen auf Datailannsicht eigestellt werde muss
dim db as dao.database
Dim lvitem As Object
Dim rot
rot=255
with Me.meineliste.Columnheaders
.Clear
.Add , , „Name“,1000,lvwcolumleft
.Add , , „Vorname“, 1000, lvwColumnLeft
.Add , , „Geburtsdatum“,1000,lvwcolumnleft
'die 1000 ist die spaltenbreite
End With
'datenquelle
sql=„select id,name,vorname,geburtsdatum from personen“
set db=dbengine(0)(0)
with db.openquerydef("")
.sql=sql
.returnsrecords=true
.connect=datenbankquelle '(hier, von wo man die daten holt)
with .openrecordset (db_open_snapshot)
do until .eof=true
Set lvitem = Me.meineliste.ListItems.Add(Text:=!name)
lvitem.key=„K“ & cstr(!id) ''nonumeric Werte!
lvitem.subitems(1)=!Vorname
lvitems.listsubitems(1).forecolor=rot
lvitems.subitems(2)=!geburtsdatum
lvitems.litsubitems(2).tooltiptext=„Hier kann für jede Spalte pro Zeile ein Hilfstext eingegeben werden“
''falls du das object mit einer imagebox verknüpft hast, kannst du hier die icon_id für die Zeile eingeben
lvitem.smallicon=1
.movenext
loop
end with
end with
set db=nothing
ansonsten bei Fragen einfach Fragen
Hallo Holger.
Erst einmal schönen Dank. Ich habe das ActiveX-Control auch
gleich ausprobiert. Aber wie spreche ich jetzt die
Spalten/Zeilen an?
Andy
ansonsten bei Fragen einfach Fragen
Hallo Holger.
O.K. viel weiter bin ich immer noch nicht gekommen!
Kann ich Dir mal eine Beispiel-mdb zukommen lassen?