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/6107-sabbatokyraka.html)

exarhos 03-05-22 13:44

σαββατοκυρακα
 
καλησπέρα σε όλους
θα ήθελα και πάλι τη βοήθεια σας.
έχω μια φόρμα (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
Σας ευχαριστώ εκ των προτέρων

vraxnakisg 03-05-22 14:48

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

Δοκίμασε το παρακάτω αρκεί το 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

Ευχαριστώ.

exarhos 03-05-22 17:42

Σ ευχαριστω παρ πολύ φίλε μου
να είσαι καλα


Η ώρα είναι 14:46.

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


Search Engine Optimization by vBSEO 3.3.2