[nasos23]

Καλησπέρα Αντώνη.
Αν κατάλαβα καλά μπορείς να δοκιμάσεις
τα παρακάτω:

Private Sub Form_Current()
 Dim x As String
   x = Year(Now())
    If IsNull(Me!etos) Or Me!etos = x Then
     Me!etos.Enabled = True
     Else
   Me!etos.Enabled = False
  End If
End Sub

Private Sub etos_BeforeUpdate(Cancel As Integer)
  Dim x As String
   x = Year(Now())
   If Me.etos <> x Then
   MsgBox "Δεν επιτρέπεται εγγραφή διαφορετική του παρόντος έτους!", vbInformation, "Προσοχή"
   Me.Undo
       Cancel = True
    End If
End Sub

Υ.Γ. Ανέβασε ένα δείγμα της βάσης αν θέλεις.