[ Φόρμες ] VBA ΚΩΔΙΚΑΣ ΣΕ ΠΕΔΙΑ ΗΜΕΡΟΜΗΝΙΩΝ

[artchrist73]

Καλησπέρα!

Στην φόρμα της βάσης δεδομένων προσπαθώ αλλάζοντας την ημερομηνία π.χ. στις 04/10/2023 να αλλάζει και το πεδίο έτος αυτόματα δίνοντας το έτος 2023

προσπαθώ με τον εξής κώδικα:

If HMEROMINIA > ETOS Then

MsgBox " Η ΗΜΕΡΟΜΗΝΙΑ ΔΕΝ ΣΥΜΒΑΔΙΖΕΙ ΜΕ ΤΟ ΕΤΟΣ"

Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Εντολή8.Enabled = True

End If




θα μπορούσατε να με βοηθήσετε;

[pakos]

Private Sub HMEROMINIA_AfterUpdate()
Me.ETOS = Null
Me.ETOS = Format(Me.HMEROMINIA, "yyyy")
End Sub

[artchrist73]

Ευχαριστώ πολύ!!!!