Bei Systemdatum MesageBox

[J.D]

Sorry, hatte gestern abend noch Nachtschicht!

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
     Me![Form1].Requery
     Me![Form2].Requery
     Else
     Me.Undo  'rückgängig
     Cancel = True  'Ereignisse verhindern
     End If
End If
End Sub

Grüsse J.D

@ebs17 dazu müsste ich abfragen erstellen und alle Formulare und Berichte ändern...
Weiteres würde ich dann bei der abfrage wiederum scheitern

[MzKlMu]

Hallo,
der gezeigte Code ist so nicht richtig. Du wertest ja den Rückgabewert der MsgBox gar nicht aus. So wie das jetzt ist, wird der Else Zweig nie ausgeführt, egal was Du klickst.
Das sollte so aussehen:

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DMax("Datum", "Produktionsdaten") < Me![Datum] Then
     If MsgBox(Format(Date, "DD.MM.YYYY") & " Soll das Datum geändert werden", vbYesNoCancel + vbQuestion) = vbYes Then
        Me![Form1].Requery
        Me![Form2].Requery
     Else
        Me.Undo  'rückgängig
        Cancel = True  'Ereignisse verhindern
     End If
End If
End Sub
Außerdem erschließt sich mir der Sinn immer noch nicht. Die Uhrzeit spielt doch bei Deiner Verion keine Rolle, das heißt, die die MsgBox kommt immer, auch mittags um 12:00 wenn sich die Frage nach dem Datum gar nicht stellt. Ist das beabsichtigt ?
Was beinhalten denn das Feld Me.Datum ?

Würde es nicht Sinn machen, das Datum einfach zwischen 00:00 Uhr und <06:00 einen Tag zurückzusetzen, ggf. mit Rückfrage ?

[J.D]

Danke Klaus, es funktioniert jetzt aber nun geht das Speichern und so weiter nicht mehr wenn ich nein klicke

Code [Auswählen] Erweitern

Private Sub Speichern_Click()

' Diese beiden befehle gegen dann nicht mehr ;(
[s]DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec[/s]

' Aktuallisiere Datenblätter
' Me.Requery
'
Me![Form1].Requery
Me![Form2].Requery
End Sub

Wenn ich auf ja klicke funktioniert es alles wie gehabt, nur bei nein gibt es dann mächtig probleme und Access bemängelt jede menge schlechten code 
[edit]

Code [Auswählen] Erweitern

Cancel = True  'Ereignisse verhindern
entfernt, jetzt geht es...
[/edit]

Sicherlich ist es möglich über das Feld Me![Datum] es einen Tag zurück zu setzen...
Das feld Me![Datum] enthält das Datum tt.mm.jjjj format.

Leider bin ich nicht so Fit... daher werde ich wohl versuchen es auszubauen, weil nun muss im
DMax ein zweiter Parameter rein... bei Ja soll das Datum geändert werden und bei Nein soll das neue Datum übernommen werden...

Ich werde damit sicherlich noch etwas spass haben 

Grüsse J.D

[J.D]

So weit so gut, jedoch möchte ich jetzt noch einen Zweiten Parameter anhängen!
Dieses habe ich wie folgt gelösst, aber scheint nicht zu funktionieren... sprich es kommt immer die Box.
Der Wert Me!MaschinenId.Column(0) ist ja ein Dropdown die SQL ist

Code [Auswählen] Erweitern

SELECT Maschine.ID, Maschine.Maschinen_Name
FROM Maschine
ORDER BY Maschine.[Maschinen_Name];

Daher gehe ich davon aus das (0) die Maschine.ID ist...

Code [Auswählen] Erweitern

  If DMax("Datum", "Produktionsdaten") < Me![Datum] & " AND Maschine =" & Me!MaschinenId.Column(0) Then

Grüsse J.D

[ebs17]

Ich wollte auch nur anmerken, dass man vor Code-Aktionismus und -Wirrungen vorher evtl. erst einmal über Abläufe nachdenkt und diese fixiert. Nach einer Datensatzspeicherung sollen vmtl. diese Daten auch ausgewertet und verarbeitet werden, womöglich auch tages-, monatsübergreifend, und vmtl. auch fachlich richtig. Das sollte man dann auch beherrschen.

Aber Du hast ja zu tun. Viel Erfolg weiterhin.

[J.D]

So, ich lasse die Maschinen_ID mit in MsgBox anzeigen zur Kontrolle und sie wird mir richtig dargestellt, nur warum wird es im DMax nicht berücksichtigt!?

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
' If DMax("Datum", "Produktionsdaten") < Me![Datum] Then
  If DMax("Datum", "Produktionsdaten") < Me![Datum] & " AND [Maschinen_ID] =" & Me!Maschinen_ID.Column(0) Then
 
     If MsgBox(Format(Date, "DD.MM.YYYY") & " Soll das Datum geändert werden Maschine: " & Me!Maschinen_ID.Column(0), vbYesNoCancel + vbQuestion) = vbYes Then

Me![Form1].Requery
Me![Form2].Requery

     Else
        Me.Undo  'rückgängig
       ' Cancel = True  'Ereignisse verhindern
     End If
End If
End Sub

Grüsse J.D

[MzKlMu]

Hallo,
welcher Datentyp ist die Maschinen_ID ?

[J.D]

Hallo,
welcher Datentyp ist die Maschinen_ID ?

Zahl...

Grüsse J.D

[Beaker s.a.]

Falsche Syntax

Code [Auswählen] Erweitern

If DMax("Datum", "Produktionsdaten") < Me![Datum] AND [Maschinen_ID] = Me!Maschinen_ID.Column(0) Then

[J.D]

Falsche Syntax

Code [Auswählen] Erweitern

If DMax("Datum", "Produktionsdaten") < Me![Datum] AND [Maschinen_ID] = Me!Maschinen_ID.Column(0) Then

Danke, aber jetzt kommt keine Abfrage mehr wenn das Datum abweicht...  ;(

Grüsse J.D

[DF6GL]

Hallo,

das ist alles verkorkst...-

weil nun muss im
DMax ein zweiter Parameter rein...

Wo ist da ein erster Parameter?

Wenn das Max-Datum zu einer bestimmten MaschinenID ermittelt werden soll, dann etwa so:

Code [Auswählen] Erweitern

If DMax("[Datum]", "Produktionsdaten","[Maschinen_ID] =" &  Me!Maschinen_ID.Column(0)) < Me![Datum]  Then

sofern [Maschinen_ID] den Datentyp Zahl, Long aufweist und im Kombi "Me!Maschinen_ID"  in der ersten Spalte der Wert für die Maschinen-ID zu finden ist.

[J.D]

Danke Franz,

so geht es... war in der annahme das Datum auch ein Parameter ist...
Jetzt geht es an das kleingemachte...

Grüsse J.D

[J.D]

So, danke liebe Helfer und Kopfzerbrecher... 
Ja ich bin Beratungsresistent 

Denoch habe ich es geschaft an mein Ziel zu kommen...
Anbei für alle

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If DMax("[Datum]", "Produktionsdaten", "[Maschinen_ID] =" & Me!Maschinen_ID.Column(0)) < Me![Datum] Then
    If MsgBox("Soll das Datum auf " & Me![Datum] & " für die Maschine: [" & Me!Maschinen_ID.Column(0) & "] geändert werden? Bei Nachtschicht bitte Nein", vbYesNo + vbQuestion) = vbYes Then
    Me![Form1].Requery
    Me![Form2].Requery
    Else
     
    Dim DatumNeu As Date
    DatumNeu = Me![Datum] - 1
   
    On Error Resume Next
    CurrentDb.Execute ("Insert into Produktionsdaten (Maschinen_ID, Mitarbeiter_ID, Material_ID, Anzahl, Datum, von, bis) values ('" & Me!Maschinen_ID.Column(0) & "', '" & Me!Mitarbeiter_ID.Column(0) & "', '" & Me!Material_ID.Column(0) & "','" & Me.Anzahl & "', '" & DatumNeu & "', '" & Me.von & "', '" & Me.bis & "')")
    Me.Undo
    MsgBox "Datum wurde auf " & DatumNeu & " geändert!"
    End If
End If
End Sub

Grüsse J.D