[ Φόρμες ] ΑΝΕΝΕΡΓΟ ΠΛΗΚΤΡΟ ΜΕ ΒΑΣΗ ΤΗΝ ΗΜΕΡΟΜΗΝΙΑ

[artchrist73]

Τουλάχιστον σε γραπτά ?

[nasos23]

Καλημέρα Αντώνη.
Δες τη σε μορφή 2003

[artchrist73]

Νασο σε ευχαριστώ πολύ που ασχολήθηκες μαζί μου,πιθανόν εγώ δεν στο εξήγησα σωστά τι ήθελα να κάνω!!

έχω ένα πεδίο που καταχωρώ το έτος με όνομα "etos"

Απλά ήθελα να συμπεριφέρεται ανοίγοντας μια φόρμα αυτό το πεδίο ως εξής:

Αν υποθέσουμε ότι σήμερα έχουμε 26/04/2018

1) όταν το πεδίο έχει καταχωρηθεί το έτος 2017 και πίσω να κλειδώνει η να απενεργοποιείται

2) όταν το πεδίο έχει καταχωρημένο το παρόν έτος 2018 να λειτουργεί κανονικά χωρίς καμιά ενέργεια
----------------------------------------------------------------------------------------------------------------------------


Κάνοντας νέα καταχώρηση στο πεδίο τώρα:

1) αν πάω να καταχωρήσω έτος υπάρχον, τότε κανονική ενέργεια καταχώρησης!

2) αν πάω να καταχωρήσω περσινό η μελλοντικό έτος τότε να αρνείται να καταχωρεί,ίσως να το κανει με κάποιο μήνυμα.


Όλα τα παραπάνω μπορώ να τα εφαρμόσω αλλά μέχρι στιγμής παίζοντας με σύντομη ημερομηνία στο πεδίο και όχι με ένα ξέρω τετραψήφιο έτος καταχώρησης σε ένα πεδίο!!


Ζητώ συγγνώμη για την απαίσια ορθογραφία και σύνταξη προτάσεων που αυτό με οδηγεί σε λάθος ερμηνεύσει σε αυτό που ζητάω!

[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

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

[artchrist73]

Ευχαριστώ πολύ ακριβώς αυτό ήθελα !!!!!