Hallo zusammen,
ich stehe vor einem Problem und zwar möchte ich per vba zwei Uhrzeiten addieren, was aber leider nicht gelingen will.
Ich habe folgenden Code:
Private Sub btnAnstempeln_Click()
Dim rs As DAO.Recordset
Me.Dirty = False
Set rs = Me!frm_Arbeitszeiten.Form.RecordsetClone
If Not (rs.BOF And rs.EOF) Then rs.MoveLast
If IsNull(rs!AZ_Ende) Then
MsgBox "Anstempeln nicht möglich. Bitte manuell nachtragen lassen."
Else
rs.AddNew
rs!AZ_APID = Me!APID
rs!AZ_Beginn = Format(Now(), "dd.mm.yyyy hh:nn")
rs!AZ_Ende = DatAdd("hh", 10, [AZ_Beginn])
End If
Me!frm_Arbeitszeiten.Form.Requery
Application.DoCmd.Minimize
DoCmd.OpenForm "Start Zeiterfassung_Halle1"
Set rs = Nothing
End Sub
Und zwar geht es darum die Uhrzeit(Zeitstempel) aus dem Feld AZ_Beginn + 10std zu addieren und in dem Feld AZ_Ende darzustellen.
Ich habe zu Testzwecken einfach mal bei AZ_Beginn und bei AZ_Ende einen Zeitstempel gesetzt . Dies funktioniert auch wunderbar. Nun würde ich halt wie schon geschieben den Zeitstempel nehmen und 10 std dazu zählen und in AZ_Ende anzeigen .
Hat jemand eine Idee dazu ?
Viele Grüße
Patrick
Siehe das ANDERE FORUM, Patrick_8211.