Κριτήρια ερωτήματος .

[bill72]

Καλησπέρα σε όλους.
Θα ήθελα την βοήθεια σας σε ένα παλαιότερο ερώτημα που είχα κάνει λανθασμένα όμως ,προσπάθησα να ξανασχεδιάσω το ερώτημα χωρίς αποτέλεσμα,θα ήθελα με οποιοδήποτε τρόπο να μπορώ να αλλάζω τα κριτήρια του ερωτήματος από κάπου αλλού π.χ. από φόρμα η οπουδήποτε αλλού και με οποιοδήποτε τρόπο χωρίς να χρειάζεται να ανοίγω το ερώτημα σε προβολή σχεδίασης και να αλλάζω από εκεί τα κριτήρια,ευχαριστώ.
ΜΕΙΩΣΗ ΑΔΕΙΩΝ: IIf([άδειες]>=100;"10";IIf([άδειες]>=50;"8";IIf([άδειες]>=20;"6";IIf([άδειες]>=10;"3"))))

[kapetang]

Καλημέρα στην παρέα

Βασίλη, στην επισυναπτόμενη ΒΔ, ο Τάσος (Διαχειριστής) και εγώ, επιχειρήσαμε μια προσέγγιση του ζητούμενου.

Για τον υπολογισμό της μείωσης των αδειών εφαρμόζονται 3 τρόποι:

1. Το ερώτημα «qryForm1» παίρνει τα απαιτούμενα στοιχεία από τη φόρμα «Form1».
Συνεπώς για να λειτουργήσει, η φόρμα πρέπει να είναι ανοιχτή.

2. Το ερώτημα «qryContitions» παίρνει τα απαιτούμενα στοιχεία από τον πίνακα «Contitions».
Συνεπώς για να λειτουργήσει, δεν απαιτείται να είναι ανοιχτή κάποια φόρμα.

Στις παραπάνω περιπτώσεις, δεν επιτρέπονται null τιμές στα πεδία που συμμετέχουν στις συνθήκες.

Επίσης οι αριθμοί, που ορίζουν τα διαστήματα στα οποία κατατάσσονται οι άδειες, θα πρέπει να είναι διαφορετικοί και σε φθίνουσα σειρά.

3. Το ερώτημα «qryVBA» παίρνει τα απαιτούμενα στοιχεία από τη συνάρτηση «Reduce()», που φαίνεται παρακάτω:

Public Function Reduce(X As Variant) As Variant
    Dim i As Long, varCont As Variant
    Dim blnExit As Boolean, varMinus As Variant

    '==========================================
    'Οι αριθμοί στις συνθήκες είναι διαφορετικοί
    'καιταξινομημένοι κατά φθίνουσα σειρά
    varCont = Array(100, 50, 20, 10)
    'Οι αντίστοιχες τιμές μείωσης
    varMinus = Array(10, 8, 6, 3)
    '==========================================
    If Not IsNumeric(X) Then blnExit = True
    If UBound(varCont) <> UBound(varMinus) Then blnExit = True
    For i = 0 To UBound(varCont) - 1
        If varCont(i) <= varCont(i + 1) Then
            blnExit = True
            Exit For
        End If
    Next
    If Not blnExit Then
        For i = 0 To UBound(varCont)
            If X >= varCont(i) Then Exit For
        Next
        If i > UBound(varCont) Then
            Reduce = 0
        Else
            Reduce = varMinus(i)
        End If
    End If

End Function

Επειδή στη μέθοδο αυτή γίνεται καλύτερος χειρισμός των δεδομένων και επειδή εύκολα μπορεί να αφαιρεθούν ή να προστεθούν συνθήκες, θεωρείται καλύτερη.

Φιλικά/Γιώργος

[bill72]

Καλησπέρα και πάλι σε όλη την παρέα.
Φίλε Γιώργο και Τάσο σας ευχαριστώ πολύ για την γρήγορη απάντηση σας, δοκίμασα ήδη την τρίτη λύση που μου προτείνεται στην δικιά μου βάση και είναι απλά τέλεια, για μία ακόμη φορά η βοήθεια σας ήταν πολύτιμη.