Bei Systemdatum MesageBox

[J.D]

Hi forum,

Ich habe in einem Feld als Standard wert Datum(),
also ist auch klar das wenn sich das System Datum ändert sich das Datum ändert...
Ist es möglich einen Hinweis anzuzeigen wenn sich das Datum geändert hat?
Die MessageBox sollte ja kein Problem sein aber wie kann ich das Datum im Feld gegen das System Datum prüfen?
Bei ja soll das Datum ändern, bei nein nicht...
Bin bestimmt einfach nur zublöde,oder zumüde!?

Grüsse J.D

[DF6GL]

Hallo,


?? ??

Du merkst doch auch ohne Access, dass sich ein Datum ändert.. ??

Der Standard-Wert ist doch nur ein Vorgabewert zur komfortablen Eingabe bei einem neuen Datensatz.  Der Standard-Wert ist immer auf dem aktuellen Stand und wird nirgends als solcher gespeichert.  Demzufolge ist er nicht auf Änderung prüfbar.

[J.D]

Ja, oder ist möglich vor dem Speichern das Datum des letzten eintrages zu prüfen?

Grüsse J.D

[DF6GL]

Hallo,

ja, klar ist es möglich, das zuletzt eingegebene Datum mit dem aktuellen Datum zu vergleichen.

Aber mir erschließt sich immer noch nicht, was das für einen Zweck haben soll..
Vielleicht willst Du an einem Tag nur einen DS eingeben wollen ??

If DMax("Datumsfeld", "tblTabellemitDatum") = Date() Then
Msgbox "Es gibt schon einen Datensatz mit dem heutigen Datum"
End if

[MzKlMu]

Hallo,
das Datum des letzten Eintrags ist das höchste Datum und kann mit Max() bestimmt werden.

Wer ändert denn bei Dir das Systemdatum ?

[ebs17]

ist möglich vor dem Speichern das Datum des letzten eintrages zu prüfen?

Klar, wenn man etwas in den Händen hält, kann man vergleichen.
Wenn Du Befürchtungen hast, dass jemand das Systemdatum vor und zurück stellt, kannst Du auch dieses in eine Extra-Logtabelle speichern in Verbindung mit typischen Aktionen.

[J.D]

Ich erkläre das mal so,

Das Formular hat das Datum()
Nun ist es so das die Schicht  von 22:00 bis 06:00 also passiert folglich das ein neuer Eintrag um 01:00 Uhr nachts bereits als nächsten Tag gewertet wird, dieses gehört jedoch zum Vortag...

Daher sollte der letzte eintrag gegen geprüft werden, da ist mir das Systemdatum eingefallen.
Eine andere Lösung dazu wüsste ich jetzt nicht :?

Grüsse J.D

[MzKlMu]

Hallo,
dazu brauchst du kein Systemdatum.
Zeiten zwischen 00:00 Uhr und <06:00 gehören immer zum Vortag.

[J.D]

Hallo,
dazu brauchst du kein Systemdatum.
Zeiten zwischen 00:00 Uhr und <06:00 gehören immer zum Vortag.

hört sich einfach an, ist es aber nicht

Ich habe es jetzt halbwegs, aber leider wird trotzdem eingetragen egal on Ja Nein oder Abbrechen

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DMax("Datum", "Produktionsdaten") < Me![Datum] Then
        MsgBox Format(Date, "DD.MM.YYYY") & " Soll das Datum geändert werden", vbYesNoCancel + vbQuestion
        If vbYes Then
' Speicher die eingaben
' DoCmd.RunCommand acCmdSaveRecord
'Gehe zum neunen Datensatz
' DoCmd.GoToRecord , , acNewRec
' Form Aktionen
Me![Form1].Requery
Me![Form2].Requery
        Else
            Exit Sub
        End If
End If
End Sub

und Me.Undo scheint keine auswirkung zu haben...

Grüsse J.D

[MzKlMu]

Hallo,
ich würde am Datum in der Tabelle gar nix ändern. Das bleibt wie es ist.
In einer Abfrage ermittelts Du ob die Zeit zwischen 00:00 Uhr und <06:00 Uhr liegt, wenn ja, ziehst vom Datum einen Tag ab. Für Auswertungen verwendest Du die Abfrage.

Als Kurzfassung:

Code [Auswählen] Erweitern

SELECT Datum, Uhrzeit, [Datum]+([Uhrzeit]>=0 And [Uhrzeit]<0.25) AS GehörtZumDatum
FROM Zeiten

Die Uhrzeit ist im Hintergrund als Dezimalzahl zwischen 0 und <1 gespeichert.
0 entspricht 00:00 Uhr und 0,25 = 1/4 = 06:00, daher kann einfach mit der Dezimalzahl verglichen werden.

Der oben gezeigte Code wird so nicht richtig funktionieren.
Soll das Datum immer zurückgesetzt werden, oder willst Du tatsächlich per MsgBox erst fragen ?
Wenn ja, warum ? Macht die Farge Sinn ?

PS:
Wenn Du im Code die Leerzeilen weg lässt, wird das deutlich übersichtlicher dargestellt.
Habe es oben mal gemacht.

[J.D]

Danke Klaus,

hab gerade einen Gehirnstau...
Muss erst mal gucken wie ich das verabeiten kann

Grüsse J.D

[MzKlMu]

Hallo,
ich habe meinen Beitrag in #9 noch ergänzt.
Kannst Du das mal noch beantworten.

[J.D]

Danke Klaus!

Also nochmal,

ich möchte Prüfen ob das Datum grösser ist als das in der Datenbank, das funktioniert und die Daten werden alle eingetragen... suppie währe noch das er bei Nein das Datum einen Tag zurück setzt (LuxusVers)...
es würde aber auch reichen das er zum Form zurück geht und ich das Datum ändern kann...
Laut DonKarl mit

Code [Auswählen] Erweitern

  ... Else
  Me.Undo  'rückgängig
  Cancel = True  'Ereignisse verhindern
  End If
Denoch wird bei der Auswahl Nein alles eingetragen

Grüsse J.D

[MzKlMu]

Hallo,
bitte zeige alle Prozeduren immer vollständig sonst kann man das mit dem Cancel nicht prüfen.

[ebs17]

Vielleicht wäre es auch hilfreich, den Begriff Schichtdatum einzuführen und diesen vom normalen Datum abzugrenzen.
Die Nachtschicht beginnt am alten Tag und wird diesem in der Betrachtung zugerechnet. Das kann man aber durchaus auch erst bei Auswertungen berücksichtigen, nicht zwingend schon beim Tabelleneintrag.
In der normalen Zeitrechnung gehört aber eine Zeit wie 1 Uhr zum neuen Tag und wäre auch in Verbindung mit diesem auszuzeichnen.
Wenn wegen Frosteinbruch die Wasserleitung platzt und die Produktion zum Stehen kommt, kann man nicht einfach dieses Ereignis einen Tag zurück legen.