Code:
Private Sub Form_Timer()
If (Me.kalender <> Date) Then
Me.kalender.Locked = False
Me.kalender = Date
Me.kalender.Locked = True
MsgBox "Datum gereset"
End If
' do backup
Kill "Tikking.txt"
DoCmd.TransferText acExportDelim, , "Tikking", "Tikking.txt"
End Sub
Apparently however the date on the ActiveX-calender doesn't change after midnight on the different machines where the form is open... Is there something I should keep in mind when implementing this?