Access2000: Bedingte Formatierung aufbohren.

[lambda]

Hallo Zusammen!

Folgende Access2000-Schwierigkeit...

Per Report/Bericht lasse ich mir meine DB ausgeben.
Um jetzt den Report besser zu gestalten, würde ich gerne irgendwie auf die Daten reagieren.
Ganz rudimänter lässt sich das ja mit der "Bedingten Formatierung" lösen, aber würde ich zum Beispiel gerne auch Änderungen der Datensätze selber vornehmen, also muss das Makro ran.

Per "Format-Event" des "Detail-Bereich" ordne ich ein Makro zu.
Hier fehlt mir aber jetzt jeglicher Ansatz, wie ich z.B. auf die Daten zugreife oder geschweige denn die Ausgabe ändern kann.

Ist mein Ansatz überhaupt sinnvoll?

Vielen Dank an Euch vorab!

 

[Thomas Darimont]

Servus!

Könntest du dein Problem vieleicht noch etwas konkreter, am besten mit Beispiel darstellen ?

Gruss Tom

 

[lambda]

Hi Tom!

Code gibt's nicht viel:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Me![text_feld].FontSize = 10
End Sub


Mein Problem ist nämlich, wie ich die Daten aus meiner DB jetzt an dieser Stelle auswerten kann.
Ich stelle mir sowas hier vor:

If DB_WERT = 1 then
Me![text_feld].FontSize = 100
end if

z.B... .
Danke schonmal!

 

[Thomas Darimont]

Servus!

Hier mein (leider etwas langsamer Vorschlag)

Leg beim Öffnen deines Berichts ein Recordset auf die Tabelle an, die du haben willst ...

Dim rs as new AdoDb.Recordset

with rs
  .activeConnection = currentproject.connection
  .locktype = adLockOptimistic
  .cursortype = adOpenDynamic
  .cursorLocation = adUseClient
  .open "select * from tabelle1 where ...."
end with

jetzt kannst du mit 

if rs!spaltenname = "blablabla" then 
Formatiere schwarz
else 
Formatiere rot
end if

im Formatereignis überprüfen, ob in der DB ein bestimmter Wert an einer bestimmten Stelle steht ...

Gruss Tom

 

[lambda]

Hi Tom,
sorry für meine späte Antwort.

Danke für den guten Tip, aber was meinste mit "langsam", wie macht man's denn besser?

Und noch ne Frage, wie kann denn das Record-Set konkret mit meiner Bericht-Abfrage verknüpfen oder reicht es hier bei

.open "select * from tabelle1 where ...."

meine Abfrage als Sql-Statment zu schreiben?

 

[Thomas Darimont]

Servus!

..open "select * from tabelle1 where ...."

meine Abfrage als Sql-Statment zu schreiben?

...jo!

aber was meinste mit "langsam", wie

... versuchs einfach mal ... wenn's in einigermaßen erträglicher Geschwindigkeit läuft wird's schon passen ... ;-)

Gruss Tom

 

[lambda]

jo... funzzt.

Gibt's eigentlich noch ein eleganteres Event wie das Format-Event. Hier geht er doch bei jeder Formatierung eines Steuerelements rein,
ich müsste doch eigentlich nur bei/nach der Erstellung des Detailbereichs für einen Datensatz ran.