[kapetang]

Καλημέρα

Φίλε Νάσο, για τη βελτίωση της ταχύτητας, θα πρότεινα να δοκιμάσεις τον παρακάτω κώδικα:

Private Sub cmdAdd_Click()
    Dim rs As DAO.Recordset, j As Long
    Set rs = CurrentDb.OpenRecordset("Select * From Πίνακας2")
    For j = Me.stnum To Me.endnum
        rs.AddNew
        rs!telnum = j
        rs.Update
    Next
    MsgBox "Η προσθήκη ολοκληρώθηκε"
End Sub