ΕΜΦΑΝΙΣΗ ΕΝΔΙΑΜΕΣΩΝ ΗΜΕΡΩΜΗΝΙΩΝ
 

Καλησπέρα σας!
Πως μπορώ να εμφανίσω τις ημερομηνίες μεταξύ δύο ημερομηνιών;
πχ. έχω μία άδεια που ξεκινάει 1/1/23 και τελειώνει στις 10/1/23
πως θα εμφανιστούν οι 2,3,4,5,6,7,8,9; και να δημιουργείται ένα ερωτημα με γραμμές το ονομα του δκαιουχου και στήλη τις ημερομηνίες και τιμή κελίου το είδος αδείας!
Σας ευχαριστώ!

συνεχεια
 

στον πινακα1 εχεις τα δεδομενα
στον πινακα3 το αποτελεσμα

παιξε τα πεδια οπως θες

εγω αυτον τον τροπο θα εκανα εαν υπαρχει κατι καλυτερο δεκτο

Σε ευχαριστώ !!! για την βοήθεια!

συνεχεια
 

σε περιπτωση που θελεις να καταχωρουνται στον κυριο σου πινακα
προσθεσε ενα πεδιο ημνια

και σε διαδικασια συμβαντος
τον παρακατω κωδικα

Private Sub εκτελεση2_Click()

Dim rs As DAO.Recordset, i As Long
Set rs = CurrentDb.OpenRecordset("Select * From [Πίνακας1]")
For i = Me.ημνιαΑρχηΑδεια To Me.ημνιαΤελοςΑδεια
rs.AddNew
rs![ημνια] = CDbl(i)
rs![ονομα] = Me.ονομα
rs![ειδοςΑδειας] = Me.ειδοςΑδειας
rs.Update
Next

End Sub


καλη συνεχεια