1
Access Wenn Datum kleiner Feld oder Formular ausblenden
Guten Abend zusammen.
Mache gerade eine Datenbank.
Habe in einem Formular ein Unterformular in welchem der Ablauf der Probezeit berechnet wird.
Nun möchte ich das wenn das aktuelle Datum größer als das berechnete "ENDE_PROBEZEIT" - Datum ist das, dann das Feld, oder am besten das Formular ausgeblendet wird.
Hier mal paar Daten:
Formularname: Vertrags_berechnung1
Das Feld "ProbezeitEnde" kommt aus der Abfrage "Vertrags_Berechnung"
Kann mir jemand hier mal ein Beispiel machen für den Code?
Vielen Dank
lg chris
Mache gerade eine Datenbank.
Habe in einem Formular ein Unterformular in welchem der Ablauf der Probezeit berechnet wird.
Nun möchte ich das wenn das aktuelle Datum größer als das berechnete "ENDE_PROBEZEIT" - Datum ist das, dann das Feld, oder am besten das Formular ausgeblendet wird.
Hier mal paar Daten:
Formularname: Vertrags_berechnung1
Das Feld "ProbezeitEnde" kommt aus der Abfrage "Vertrags_Berechnung"
Kann mir jemand hier mal ein Beispiel machen für den Code?
Vielen Dank
lg chris
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 86144
Url: https://administrator.de/contentid/86144
Ausgedruckt am: 22.11.2024 um 05:11 Uhr
1 Kommentar
Hi Chris,
Du solltest folgenden Code beim Öffnen/Anzeigen des Hauptformulars einbauen:
If date() > me.ProbezeitEnde then' genaue Bezeichnung mußt Du noch eintragen, siehe unten
Forms![Hauptformularname]![Unterfomrularname].Visible = False
else
Forms![Hauptformularname]![Unterfomrularname].Visible = True
end if
Wenn das Feld "ProbezeitEnde" im Unterformular steht muß es in etwa so aussehen:
Forms![Hauptformularname]![Unterfomrularname].ProbezeitEnde
Gruß
Ralf
Du solltest folgenden Code beim Öffnen/Anzeigen des Hauptformulars einbauen:
If date() > me.ProbezeitEnde then' genaue Bezeichnung mußt Du noch eintragen, siehe unten
Forms![Hauptformularname]![Unterfomrularname].Visible = False
else
Forms![Hauptformularname]![Unterfomrularname].Visible = True
end if
Wenn das Feld "ProbezeitEnde" im Unterformular steht muß es in etwa so aussehen:
Forms![Hauptformularname]![Unterfomrularname].ProbezeitEnde
Gruß
Ralf
