[amy]

Βρε παιδιά προσπάθησα να απλοποιήσω με την choose άλλον ένα κώδικα που είχα, αλλά δεν μου βγάζει σωστά αποτελέσματα (δηλαδή δεν βγάζει καθόλου αποτελέσματα) στις περιπτώσεις που έχω και isNull

Private Sub cmd31_Click()
    Dim stDocName As String, stLinkCriteria As String
    stDocName = "ERGASIES2"
    stLinkCriteria = _
            Choose(Nz(Me.group2, 1), _
            "[Rec]=" & "'" & Me![cboMY] & "'", _
            "[Rec]=" & "'" & Me![cboMY] & "'" & "And IsNull([Fin])", _
            "[Fin]=" & "'" & Me![cboMY] & "'", _
            "[Fin]=" & "'" & Me![cboMY] & "'" & "And isNull([Pic])", _
            "[Fin] Between #" & Me![Beginning Date] & "# And #" & Me![Ending Date] & "#" & "And isNull([Pic])", _
            "[Fin] Between #" & Me![Beginning Date] & "# And #" & Me![Ending Date] & "#")
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

(από πάντα δεν χώνευα τις αποστρόφους, τα εισαγωγικά και τα άλλα σημεία πήξης :-))