[amy]

Αρχική Δημοσίευση από Tasos

Καλησπέρα σε όλους!

Φίλοι μου η χρήση της Choose αποτελεί μια γρήγορη λύση που
μπορεί να χρησιμοποιηθεί είτε στη VBA είτε σε ερώτημα είτε σε υπολογισμένο πεδίο.
Έτσι με τη χρήση της συνάρτησης αυτής, μπορούμε να απλοποιήσουμε τον κώδικα
μας έτσι:

Private Sub cmd19_Click()
    Dim stDocName As String, stLinkCriteria As String
    stDocName = "ERGASIES1"
    stLinkCriteria = _
            Choose(Nz(Me.group1, 1), _
            vbNullString, _
            "IsNull([DateFinished])", _
            "Not IsNull([DateFinished])", _
            "Not IsNull([DateFinished]) And isNull([DatePickedUp])", _
            "[DateFinished] Between #" & Me![Beginning Date] & "# And #" & Me![Ending Date] & "#")
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Φιλικά

Τάσος

Δουλεύει τέλεια!!!
Όχι βέβαια πως αμφέβαλλα, αλλά την έλαβα ως μια αφορμή για να κοιτάξω την choose μπας και καταλάβω πως γίνεται η απλοποίηση
Επίσης ευχαριστώ Τάσο...