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)

ΑΝΕΝΕΡΓΟ ΠΛΗΚΤΡΟ ΜΕ ΒΑΣΗ ΤΗΝ ΗΜΕΡΟΜΗΝΙΑ

Φίλες και φίλοι γεια σας!
Θα ήθελα στη φόρμα που έχω ανεβάσει το πλήκτρο με ονομασία πλήκτρο 1 να γίνετε ανενεργό όταν έχει περάσει η σημερινή ημερομηνία αλλα και να αποθηκεύεται η επιλογή αυτή σε κάθε καταχώριση.
Ενώ όταν έχω σημερινή ημερομηνία να είναι ενεργό.

Λογικά πριν μου δώσετε τη λύση πρέπει να γράψω την εντολή if και μάλλον στην φόρμα στο συμβάν να γραφτεί με το τρέχον,σωστά?
Το παράδειγμα θα το προτιμούσα σε ανεβασμένη φόρμα.

Καλημέρα

Αντώνη δες το συνημμένο.

Όταν η ημερομηνία στην τρέχουσα εγγραφή της φόρμας είναι ίση ή μεγαλύτερη από την τρέχουσα ημερομηνία (ΗΜΕΡΟΜΗΝΙΑ >= Date()), το κουμπί είναι ενεργό.

Διαφορετικά (ΗΜΕΡΟΜΗΝΙΑ < Date())) είναι μη ενεργό.

ευχαριστω !!!!!!!!!!!!!!!!!!!

:oeo:

Την καλησπέρα μου σε όλους σας!!

Στο ίδιο παράδειγμα θα μπορούσε να ανταποκριθεί το πλήκτρο μονο στην αλλαγή έτους,με τι διαφορά να βρίσκει το έτος από το σύστημα τον windows;

Δηλαδή σήμερα έχουμε 16/03/2018
το πλήκτρο είναι ενεργό.

αν γυρίσω το ρολογάκι τον windows 16/03/2016
θα είναι ανανεργο.

παρακαλώ βοηθήστε !!

ευχαριστώ.
:036:

Την καλησπέρα μου σε όλους!
Γνωρίζει κανεις να μου πει?

:knuddel:

Καλησπέρα σε όλους και καλό μήνα

Παράθεση:

Δηλαδή σήμερα έχουμε 16/03/2018
το πλήκτρο είναι ενεργό.

αν γυρίσω το ρολογάκι τον windows 16/03/2016
θα είναι ανανεργο.

Αντώνη
Θα είναι ενεργό

χαχαχαα το θέμα είναι πως να είναι ανενεργό όταν είναι σε παλαιό έτος;:icon_hihi:

:036::036::036::036: ??

Καλησπέρα, Χριστός Ανέστη...
Δοκίμασε το περιεχόμενο της ανάρτησης μιας και έχεις ευχέρεια στο να αλλάζεις την ώρα στο PC.
Το προϊόν της συνάρτησης είναι αλφαριθμητικό και όχι date. Φρόντισε να υπάρχει σύνδεση Internet.
... η συνέχεια σε σένα!

Με εκτίμηση Νίκος

Oπ!

ειναι σε access 2007 ?

εχω 2003 :pchit::pchit::pchit::pchit:
:shock2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Κώδικας:

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

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

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

:drinking: