[dimitrisp]

Καλησπέρα

Γιώργο, είσαι καταπληκτικός!!!

Έκανα κι εγώ διάφορες δοκιμές και διαπίστωσα ότι ο κώδικας λειτουργεί τέλεια.

Αν έχεις την καλωσύνη, όποτε μπορέσεις, μια μικρή βοήθεια ακόμη:

Πως θα τροποποιήσουμε το μέρος του κώδικα,

strSQL = "SELECT tblA.* FROM tblA " & _
"WHERE [ISXIS]=True AND Year([LIXI])=Year(DateAdd(""m"",1,Date()))" & _
" And Month([LIXI])=Month(DateAdd(""m"",1,Date()))"

έτσι ώστε να μας προσαρτά, τις εγγραφές του τρέχοντα μήνα;