kleiner als jetzt vba

[Enclave]

Hallo zusammen,
ich tu mich entwas schwer in der fomulierung


ich möchte wenn ein Mitarbeiter seinen Dienstbeginn bsp um 07:00 uhr hat.

Das er sich erst ab 06:30 eintragen kann.

Der Mitarbeiter trägt zum Dienstbeginn seine Schichtbeginn und Schichtende ein.

Stehe aber total auf dem Schlauch.

Code:

If DLookup("SNummer", "Schichten", "[SNummer] = '" & GetUser() & "'" & _
     "AND [Schichtbeginn] < '" & Now - 30 & "' ") = GetUser() Then
MsgBox "test"
GoTo fin
Else
End If

[schauan]

Hallöchen,

wenn ich mich 30 Minuten vor Schichtbeginn eintragen kann würde ich Schichtbeginn < Now + 30 nehmen

[Enclave]

ich hab das jetzt so versucht:

Code:

   If DLookup("[Schichtbeginn]", "Schichten", "[SNummer] = '" & GetUser() & "'") < Now + 30 Then


                       
  GoTo fin
  Else
  MsgBox "Trage dich bitte max. 30min vor Dienstbeginn ein!"

  'CurrentDb.Execute "UPDATE Schichten " & _
                         "SET [SNummer] = '' " & _
                         ", [Schichtbeginn] = '' " & _
                         ", [Schichtende] = '' " & _
                         ", [Schichtdatum] = '' " & _
                         "WHERE [SNummer] = '" & GetUser() & "'"

  GoTo fin
  End If

aber funktionieren tut es leider nicht wirklich

[schauan]

Hallöchen,

also, das mit dem + ist erst mal wegen dem Prinzip. Der eigentliche Starttermin liegt ja nach dem Jetzt, also wäre für die Logik + korrekt.
Du musst natürlich auch schauen ob der Rest stimmt, z.B..

- Was ergibt Now() + 30?
- Was ist das Ergebnis von Getuser()?

[Enclave]

Code:

If DateDiff("n", Schichtbeginn, Time) > 30 Then



MsgBox "melde dich später an"
GoTo fin
Else
MsgBox "erlaubt   "
GoTo fin

End If

ich komme nicht weiter egal wie ich es versuche schaff ich es nicht mit 30minuten.
in meinem kopf macht die formel oben sinn aber funktionieren tut sie nicht.

[schauan]

Hallöchen,

hast Du Dir denn mal die einzelnen Teile genauer angeschaut, z.B.

Sub Test1
MsgBox Now() + 30
End Sub

oder

Sub Test1
MsgBox GetUser()
End Sub

oder ...?

[Enclave]

ja das habe ich mir angeschaut.

bei now + 30
bekomm ich 19.06.2021 um 17:19
(also aktuelle +30 tage)

Get user sagt er mir den benutzer namen (wichtig für die db)

---

Code:

Dim minusfuenf As Date
minusfuenf = DateAdd("n", 30, Time)


If Schichtbeginn > minusfuenf Then



MsgBox "Trage dich bitte erst 30min vor Dienstbeginn ein! "



GoTo fin
Else

hab eine lösung die zu funktionieren scheint