Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 03-05-22, 14:44
Όνομα: ΕΞΑΡΧΟΣ
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-02-2020
Μηνύματα: 103
Προεπιλογή σαββατοκυρακα

καλησπέρα σε όλους
θα ήθελα και πάλι τη βοήθεια σας.
έχω μια φόρμα (vardies)
ενα πλαισιο ελεγχου "sk"
και ενα συνθετο πλαισιο "id_vardias[/U]"

οταν η ημερομινια[U] "imerom"[/U] ειναι ΠΑΡΑΣΚΕΥΗ και το σύνθετο πλαίσιο "id_vardias" εχει τιμη = # 6# να τσεκαρεται ενα πλαίσιο ελέγχου "sk"
οπωσ επίσης όταν [B]"imerom"[/B] = ΣΑΒΒΑΤΟ και ΚΥΡΙΑΚΗ, οποιαδήποτε τιμη κ αν εχει το σύνθετο πλαίσιο "id_vardias"
να τσεκάρεται (true) ενα πλαίσιο ελεγχου "sk"
εχω δοκιμασει τον παρακατω κωδικα αλλα δεν δουλευει.

If Me.imerom.Value = vbFriday And Me.id_vardias.Value = 6 Then
Me.sk.Value = True
ElseIf Me.imerom.Value = vbSaturday Or Me.imerom.Value = vbSunday Then
Me.sk.Value = True
Else: Me.sk.Value = False
End If
Σας ευχαριστώ εκ των προτέρων
Απάντηση με παράθεση
  #2  
Παλιά 03-05-22, 15:48
Super Moderator
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-01-2014
Μηνύματα: 234
Προεπιλογή

Καλησπέρα σας,

Δοκίμασε το παρακάτω αρκεί το Me.imerom.Value να είναι ημερομηνία.


if Weekday(Me.imerom.Value) = vbFriday And Me.id_vardias.Value = 6 Then
Me.sk.Value = True
ElseIf Weekday(Me.imerom.Value) = vbSaturday Or Weekday(Me.imerom.Value)= vbSunday Then
Me.sk.Value = True
Else: Me.sk.Value = False
End If

Ευχαριστώ.
__________________
Βραχνάκης Γιώργος
vrahnakisg@gmail.com
Απάντηση με παράθεση
  #3  
Παλιά 03-05-22, 18:42
Όνομα: ΕΞΑΡΧΟΣ
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-02-2020
Μηνύματα: 103
Προεπιλογή

Σ ευχαριστω παρ πολύ φίλε μου
να είσαι καλα
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας



Η ώρα είναι 08:04.