Feld rot markieren

21/11/2008 - 19:18 von Peter Piry | Report spam
Hallo,

ich hoffe, hier weiss jemand von Euch Rat, ich habe eine interessante Aufgabenstellung.

Ich habe ein Formular mit einer tabellarischen Auflistung. Auf dem Formular befinden sich die folgenden Felder (Auszug):

- ID
- Projektname
- Projektkunde
- TODO

Die Spalte TODO enthàlt eine MitarbeiterID, der den Fall bearbeiten soll.

Das erwàhnte Formular ist das Startformular eines Mitarbeiters. Wenn jetzt seine ID (seine ID hole ich mir aus dem Hauptformular) in
dieser TODO-Spalte steht, dann würde ich gerne den Projektnamen in roter Schrift darstellen, ansonst Standard-schwarze Schrift. Wie
funktioniert das?

Ich habe mal folgenden Ansatz, aber das funktioniert nicht so ganz:

Private Sub Form_Current()
If txtToDoFor = [HAUPTFORMULAR].txtID Then
txtProjekt.ForeColor = vbRed
Else
txtProjekt.ForeColor = vbBlack
End If
End Sub

Das Problem an dieser Lösung: Wenn ich jetzt in einen betreffenden Datensatz klicke, dessen Projektname rot markiert gehört, dann
werden die Projektnamen ALLER Datensàtze rot markiert, detto bei schwarzer Schrift.

Kennt wer zu solchem Problem eine Lösung?

mfg
Peter Piry
 

Lesen sie die antworten

#1 Gunter Avenius
21/11/2008 - 19:25 | Warnen spam
Hallo Peter,

Peter Piry schrieb folgendes:
ich hoffe, hier weiss jemand von Euch Rat, ich habe eine interessante Aufgabenstellung.

Ich habe ein Formular mit einer tabellarischen Auflistung. Auf dem Formular befinden sich die folgenden Felder (Auszug):

- ID
- Projektname
- Projektkunde
- TODO

Die Spalte TODO enthàlt eine MitarbeiterID, der den Fall bearbeiten soll.

Das erwàhnte Formular ist das Startformular eines Mitarbeiters. Wenn jetzt seine ID (seine ID hole ich mir aus dem Hauptformular) in
dieser TODO-Spalte steht, dann würde ich gerne den Projektnamen in roter Schrift darstellen, ansonst Standard-schwarze Schrift. Wie
funktioniert das?

Ich habe mal folgenden Ansatz, aber das funktioniert nicht so ganz:

Private Sub Form_Current()
If txtToDoFor = [HAUPTFORMULAR].txtID Then
txtProjekt.ForeColor = vbRed
Else
txtProjekt.ForeColor = vbBlack
End If
End Sub

Das Problem an dieser Lösung: Wenn ich jetzt in einen betreffenden Datensatz klicke, dessen Projektname rot markiert gehört, dann
werden die Projektnamen ALLER Datensàtze rot markiert, detto bei schwarzer Schrift.

Kennt wer zu solchem Problem eine Lösung?



Die bedingte Formatierung könnte Dir dabei helfen.
Einige Beispiele findest Du unter:
http://www.lebans.com/conditionalformatting.htm

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen