ampel-funktion

michael jakob

unread,

Jun 25, 2001, 3:51:38 AM6/25/01

to

hallo,

hat jemand schon einmal eine ampelfunktion in einen bericht oder ein
formular eingebaut?
Beispiel: ich habe eine terminierte aufgabe mit einem status
wenn die aufgabe 3 tage überfällig ist und/oder der status geringer als 90%
ist, soll die ampel (was auch immer das sein kann, z.b ein auswahlfeld) auf
gelb gehen bzw. 6tage überfällig und oder <80% auf rot.
verglichen mit dem systemdatum.

kann hier jemand weiterhelfen?

gruß, mike

Henry Habermacher [MVP Access]

unread,

Jun 25, 2001, 4:16:23 AM6/25/01

to

Hallo Michael

"michael jakob" <michae...@pecaso.com> wrote:
>hat jemand schon einmal eine ampelfunktion in einen bericht oder ein
>formular eingebaut?
>Beispiel: ich habe eine terminierte aufgabe mit einem status
>wenn die aufgabe 3 tage überfällig ist und/oder der status geringer als 90%
>ist, soll die ampel (was auch immer das sein kann, z.b ein auswahlfeld) auf
>gelb gehen bzw. 6tage überfällig und oder <80% auf rot.
>verglichen mit dem systemdatum.

Am einfachsten geht das im Format Ereignis des Detailbereiches des Reborts durch
VBA Code:

Hier ein Beispiel:

Private Sub Detail_Format(Cancel As Integer, _
FormatCount As Integer)
If Me!status < 0.9 _
AND (Date() - Me.faellig) > 6 then
Me!Ampel.BackColor = vbRead
Else
Me!Ampel.BackColor = vbGreen
End Sub

Dieses geht davon aus, dass es ein Steuerelement (zB. ein Label) hast, das Ampel
heisst.
Zudem müssen die beiden Felder faellig und status im Detailbereich drauf sein
(können auch unsichtbar sein)

Gruss
Henry
--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de

Michael Beitz

unread,

Jun 25, 2001, 6:52:33 AM6/25/01

to

Hallo Mike,

zum 1000.Mal hier die Bitte, wenigstens die verwendete Access-Version
anzugeben. In Access 2000 ist es nämlich sehr einfach: siehe Stichwort
"bedingte Formatierung".

Gruß,
Michael

"michael jakob" <michae...@pecaso.com> schrieb im Newsbeitrag
news:9h6qd4$adn$07$1...@news.t-online.com...

michael jakob

unread,

Jun 25, 2001, 12:51:29 PM6/25/01

to

sorry, access2000

"Michael Beitz" <mbe...@t-online.de> schrieb im Newsbeitrag
news:9h75d7$38a$05$2...@news.t-online.com...

Claus Scherschel

unread,

Jun 27, 2001, 5:22:30 AM6/27/01

to

> sorry, access2000
>
> "Michael Beitz" <mbe...@t-online.de> schrieb im Newsbeitrag
> news:9h75d7$38a$05$2...@news.t-online.com...
> > Hallo Mike,

Und das mit dem Quoten üben wir auch noch:

http://got.to/quote

Heute mal spießig,
Claus.

Thomas Kunth

unread,

Jun 27, 2001, 5:31:55 AM6/27/01

to

Hallo Michael und Henry!

>-----Originalnachricht-----
>Hallo Michael

>>hat jemand schon einmal eine ampelfunktion in einen
bericht oder ein
>>formular eingebaut?
>

>Am einfachsten geht das im Format Ereignis des
Detailbereiches des Reborts durch
>VBA Code:

>Private Sub Detail_Format(Cancel As Integer, _
> FormatCount As Integer)

>Gruss
>Henry

In Formularen ist es das Ereignis BeimAnzeigen
(Form_Current). Bei Endlosformularen s. FAQ.

Thomas

msnews.microsoft.com

unread,

Jul 10, 2001, 1:59:18 AM7/10/01

to

Genau...

"michael jakob" <michae...@pecaso.com> schrieb im Newsbeitrag

news:9i96de$97d$07$1...@news.t-online.com...
> joau, sonst noch was produktives zum thema?
> heute mal genervt, geht doch aus der historie hervor, cheres, mike
>
> "Claus Scherschel" <scher...@kkv-bonn.de> schrieb im Newsbeitrag
> news:3B39A5D6...@kkv-bonn.de...

Test

unread,

Jul 10, 2001, 2:07:11 AM7/10/01

to

Test

"msnews.microsoft.com" <urs.sch...@bsd-be.ch> schrieb im Newsbeitrag
news:OuodE0QCBHA.1284@tkmsftngp05...