[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


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