Ablaufdatum im Access Formular

Moderator: ModerationP

Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 06:26

Hallo
ich habe ein Problem, ich habe in meinem Access Formular ein Prüfdatum. Die nächste Prüfung wäre in 5 Jahren, ich hätte gerne das es mir 3 Monate vorher über eine MsgBox die Meldung bringt "Es sind noch 3 Monate zur Prüfung"
Ich hoffe Ihre könnt mir Helfen.
Ich danke euch im Voraus.

Mfg.
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Doming » 31. Aug 2021, 08:15

Hallo Tom,
willst Du jedes Mal, wenn Du das Formular öffnest, die Msgbox wegklicken? 3 Monate lang? Und wenn es dann nur noch zwei Monate sind wird ein anderer Text angezeigt?
Wie wäre es, wenn Du eine Textbox in das Formular einfügst, die immer die Restzeit zur Prüfung anzeigt (VBA: Prüfdatum-Date) und sie dann mit der bedingten Formatierung einfärbst (noch 3 Monate: gelb, kleiner 2 Monate: rot) oder so?

Wenn Du natürlich auf die Msgbox bestehst, kannst Du dementsprechend natürlich die Textformel variieren:
Code: Alles auswählen
If [Prüfdatum]-Date < 90 then Msgbox "Es sind noch " & [Prüfdatum]-Date & " Tage bis zum Prüftermin"

Gruß
Doming
Zuletzt geändert von Doming am 31. Aug 2021, 11:16, insgesamt 1-mal geändert.
Benutzeravatar
Doming
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 202
Registriert: 01. Jul 2014, 05:19

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 08:24

Hi Doming,
erstmal vielen Dank für die Antwort nein ich möchte nich jedesmal die MsgBox wegklicken sollte eigentlich nur einmal auf gehen mit dem Text "Es sind noch 3 Monate zur Prüfung".
Das mit der Textbox und der bedingten Formatierung hört sich gut an, nur weiß ich nicht wie das mit der bedingten Formatierung geht. Könntest du mir ein Beispiel zeigen! das wäre echt super.
Vielen Dank schon mal.

Gruß
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Gast49 » 31. Aug 2021, 09:49

sollte eigentlich nur einmal auf gehen mit dem Text "Es sind noch 3 Monate zur Prüfung"

Wenn Du an diesem einen Tag nicht den Rechner einschaltest, siehst Du diese Meldung nie.
Gast49
 

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 09:56

Ah ok und was schlägst du vor!
Danke
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Gast49 » 31. Aug 2021, 10:16

Folge dem Vorschlag von Doming.
Gast49
 

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 10:20

OK Danke leider weis ich nicht wie das mit der bedingten Formatierung geht.
Wäre schön wenn mir jemand ein Beispiel zeigen könnte.

Gruß
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Doming » 31. Aug 2021, 11:31

Moin,
was ist denn die Datenquelle Deines Formulars, wird dort bereits das Prüfdatum angezeigt? Dann könnte man eine ungebundene Textbox nehmen und die Berechnung dann in Form_Current einbauen.
Oder hast Du als Quelle eine Abfrage, dann kannst Du dort ein neues Feld generieren (Prüfdatum-Date) und dieses als Herkunftsfeld für die Textbox nehmen, dann funktioniert das auch in Endlosformularen.
Die bedingte Formatierung kennst Du ja schon aus Excel, so funktioniert das auch bei den Textboxen. Als Bedingung dann z.B. "Feldwert<90"

Wie weit bist Du denn mit deinen Versuchen, damit man darauf aufbauen kann?

Gruß
Doming
Benutzeravatar
Doming
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 202
Registriert: 01. Jul 2014, 05:19

Re: Ablaufdatum im Access Formular

Beitragvon KlausMz » 31. Aug 2021, 11:42

Hallo,
Du musst erst mal das neue Warndatum definieren.
Das Prüfdatum ist ja das erfolgte Datum, nicht das in der Zukunft.
Du musst erst mal zum Prüfdatum 5 Jahre addieren und dann 3 Monate abziehen, das gibt dann das Warndatum.
Das macht man am besten in einer Abfrage mit der DatAdd Funktion:
Code: Alles auswählen
Warndatum: DatAdd("m";-3;DatAdd("jjjj";5;[Prüfdatum]))

In der bedingten Formatierung musst Du dann dieses Warndatum mit dem aktuellen Datum vergleichen. Z.B. so:
Code: Alles auswählen
Feldwert Ist | Kleiner als | Datum()

Hintergrundfarbe auf Rot einstellen.
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Benutzeravatar
KlausMz
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 40301
Registriert: 06. Okt 2003, 15:09
Wohnort: Irgendwo in der Pfalz

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 11:45

Hallo Doming
sorry habe mich etwas falsch ausgedrückt, ich habe ein Access Formular in dem eine Textfeld mit der Bezeichnung "Prüfdatum" steht.
Das mit der bedingten Formatierung hört sich gut an. Leider weis ich nicht wie das geht. Wäre schön wenn du mir ein Beispiel geben könntest.

Gruß
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 12:05

Hallo Klaus,
sorry habe eben gesehen das du geantwortet hast vielen Dank.
Klaus ist es auch möglich das für jeden Datensatz in meinem Formular eine MsgBox mir mitteilt das das Prüfdatum in 3 Monaten fällig ist.
Das wäre echt super.
Vielen Dank im Voraus.

Gruß
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon Doming » 31. Aug 2021, 12:08

Hallo Tom,
ein bisschen Probieren solltest Du schon, oder Tipps wie hier viewtopic.php?f=166&t=809555&p=3236226#p3236251 versuchen zu übernehmen.
Wie oben erwähnt, kannst Du eine ungebundene Textbox nehmen und im laufenden VBA berechnen.

Du bist neu in der Formularprogrammierung?
Gruß
Doming (Mittagspause vorbei)
Benutzeravatar
Doming
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 202
Registriert: 01. Jul 2014, 05:19

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 12:21

Hallo vielen Dank an alle hat super geklappt mit der bedingten Formatierung.
Wenn ihr es auch mit einer msgBox hinbekommt wie beschrieben das wäre echt super.
Bin stolz auf euch.
Gruß
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Re: Ablaufdatum im Access Formular

Beitragvon KlausMz » 31. Aug 2021, 14:14

Hallo,
was genau soll denn drin stehen, in der MsgBox ?
3 Monate stimmt ja nicht immer, wenn der Datensatz 4 Wochen vorher angezeigt wird, ist es ja nur noch 1 Monat.

Außerdem würde ich mir das noch mal überlegen. Die MsgBox kann ziemlich nerven, die muss ja jedes mal bestätigt (OK) werden.
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Benutzeravatar
KlausMz
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 40301
Registriert: 06. Okt 2003, 15:09
Wohnort: Irgendwo in der Pfalz

Re: Ablaufdatum im Access Formular

Beitragvon Tom54 » 31. Aug 2021, 14:29

Hi Klaus ja da hast du recht das wird nervig. Ich bekomme bei der bedingten Formatierung nur zwei farben hin zb. rot bei 3 Monaten, grün bei 6 Monaten wie gekomme ich die dritte Farbe rot hin wenn es abgelaufen ist.
Habe es versucht bekomme es nicht hin sorry.
Dank
Tom
Tom54
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26
Registriert: 12. Jul 2019, 04:13

Nächste

Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Bitsqueezer und 7 Gäste