Feld nach Datenänderung im Datensatz ändern per VBA, wie?

[Andreas Irmer]

So, auch ohne Hilfe habe ich jetzt die Lösung gefunden.

Code [Auswählen] Erweitern

   
Dim Sekunden As Long
Dim Termin As Date
          If rst!Termin >= Now() Then
            Set objAppointmentItem = objMAPI.GetItemFromID(rst!OL_TerminID)
            Termin = rst!GeaendertAm
            Sekunden = DateDiff("S", Termin, objAppointmentItem.LastModificationTime)
            If Abs(Sekunden) > 300 Then 'größer als 5 Minuten


[MzKlMu]

Hallo,
nimm doch gleich Minuten (n), statt Sekunden

Code [Auswählen] Erweitern

Dim Minuten As Integer
          If rst!Termin >= Now() Then
            Set objAppointmentItem = objMAPI.GetItemFromID(rst!OL_TerminID)
            Minuten = DateDiff("n", rst!GeaendertAm, objAppointmentItem.LastModificationTime)
            If Abs(Minuten) > 5 Then 'größer als 5 Minuten