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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] VBA ΚΩΔΙΚΑΣ ΣΕ ΠΕΔΙΑ ΗΜΕΡΟΜΗΝΙΩΝ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6186-visual-basic-applications-kodikas-se-pedia-hmeromhnion.html)

VBA ΚΩΔΙΚΑΣ ΣΕ ΠΕΔΙΑ ΗΜΕΡΟΜΗΝΙΩΝ

Καλησπέρα!

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

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

If HMEROMINIA > ETOS Then

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

Else

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

End If

:wall::wall::wall::wall::wall::036::036::036::036:

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

συνεχεια

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

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