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

[Puma80!]

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

[pakos]

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

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

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

[Puma80!]

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

[pakos]

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

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

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


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