22-07-18, 22:58
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλησπέρα σε όλους
Για μεγαλύτερη ταχύτητα στην αρίθμηση μπορείς να δοκιμάσεις
αυτό: Κώδικας: Private Sub ΕΠΙΣΤΡΟΦΗ_Click()
Dim rs As DAO.Recordset, i As Long
Set rs = CurrentDb.OpenRecordset("Select * From [ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ]")
For i = Me.[ΑΠΟ Νο] To Me.[ΕΩΣ Νο]
rs.AddNew
rs![ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ] = i
rs.Update
Next
MsgBox "Η αρίθμηση ολοκληρώθηκε"
End Sub
|