Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] ΑΝΕΝΕΡΓΟ ΠΛΗΚΤΡΟ ΜΕ ΒΑΣΗ ΤΗΝ ΗΜΕΡΟΜΗΝΙΑ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4315-anenergo-plhktro-me-bash-thn-hmeromhnia.html)

artchrist73 20-04-18 23:35

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

nasos23 21-04-18 13:00

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

artchrist73 26-04-18 19:53

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

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

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

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

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

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


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

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

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


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


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

nasos23 26-04-18 22:18

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

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 29-04-18 20:13

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

:drinking:


Η ώρα είναι 01:29.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2