[ασχετος]

Την καλημέρα μου στο forum.

Σταύρο,
κοίτα μήπως σε διευκολύνει
αυτή η Βάση.
στην φόρμα 'apousiesF2' , στα πεδία των ημερομηνιών
και στα συμβάντα τους 'After Update', έχω τροποποιήσει
τον κώδικα, μάλλον κάνει αυτό που ζητάς.

Στον κώδικα της φόρμας 'apousiesF2', στο πεδίο
'apo_apousies_p' και στο συμβάν 'After Update',
στην γραμμή του κώδικα που υπάρχει αυτό
dtbefore = Me.eos_apousies_p
αντικατέστησε το με αυτό

If IsNull(Me.eos_apousies_p) Or Me.eos_apousies_p = "" Then
Exit Sub
Else
dtbefore = Me.eos_apousies_p
End If