Report - Textformatierung beim Erzeugen des Berichts

31/03/2010 - 19:53 von Gerd Haseloff | Report spam
Hallo,


ich verwende Windows 2000, Access 2000 und möchte folgendes
realisieren.

In einem Belegungsplan für eine Ausbildungsstàtte mit Unterkünften
möchte ich die Zugehörigkeit der
Lehrgangsteilnehmer zu dem entsprechendem Lehrgang farblich
hinterlegen.
Die Zugehörigkeit zu dem entsprechendem Lehrgang ist über das Feld
LG.LGID festgelegt.

Die Anzeige, ein welchem Raum der Lehrgangsteilnehmer untergebracht
ist, sieht folgendermassen aus.


Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim sql1 As String
Dim a As Integer

sql1 = "SELECT BELEGUNG.BID, LG.LGBEZ, LG.LGVON, LG.LGBIS, LGTN.DGRD,
LGTN.NNAME, LGTN.VNAME, RAUM.GEB, RAUM.RNR, RAUM.BNR,LGTN.LGID FROM LG
INNER JOIN (RAUM INNER JOIN (LGTN INNER JOIN BELEGUNG ON LGTN.TNID BELEGUNG.TNID) ON RAUM.RID = BELEGUNG.RID) ON LG.LGID = LGTN.LGID
WHERE RAUM.RNR = '205' "
Set db = CurrentDb
Set rs1 = db.OpenRecordset(sql1)

If rs1.BOF Or rs1.EOF Then
Me.txt2051 = "Frei"
Else
Me.txt2051 = rs1!Nachname
End If

Es soll also letzendlich die Farbe vom Feld txt2051 z.B. auf blau
eingestellt werden, wenn die LG.LGID = 1 ist.


Sicherlich nicht so schwer, aber ich habe bisher nichts gefunden.


Gruss Gerd
 

Lesen sie die antworten

#1 Gunter Avenius
31/03/2010 - 19:59 | Warnen spam
Hallo Gerd,

Gerd Haseloff schrieb folgendes:
...
Es soll also letzendlich die Farbe vom Feld txt2051 z.B. auf blau
eingestellt werden, wenn die LG.LGID = 1 ist.



[Ereignisprozedur] "Beim Formatieren" des Bereiches in dem das Feld
"txt2051" liegt:

if me!LGID = 1 then
me!txt2051.Backcolor=vbblue
else
me!txt2051.Backcolor=vbwhite
end if

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

Ähnliche fragen