[kapetang]

Καλησπέρα στην παρέα

Κώστα, άλλαξε τον κώδικά σου με τον ακόλουθο.

Private Sub Command0_Click()
    Dim i As Long
    Dim rs As Recordset
    
    Set rs = CurrentDb.OpenRecordset("ΑΠΟΘΗΚΗ")
    For i = RECID1 To RECID2
        rs.AddNew
        rs!DATEIN = RECDATE
        rs!ΚΩΔ_ΠΕΛ = PELID
        rs!DPAR = DELTIOID
        rs!CODE1 = i
        On Error Resume Next
        rs.Update
        On Error GoTo 0
    Next i
    rs.Close
    Set rs = Nothing
End Sub]

Με τον κώδικα αυτό δε θα προκαλείται λάθος:

1) Όταν υπάρχουν Null τιμές, όπου η συνάρτηση Val δίνει λάθος.

2) Όταν επιχειρείται καταχώρηση εγγραφής που θα δημιουργούσε διπλότυπες τιμές στα πεδία CODE1 και REC_ID, τα οποία ως πρωτεύοντα κλειδιά έχουν μοναδικές τιμές.

Δηλαδή, αν στο διάστημα [Από] [Έως] υπάρχουν αριθμοί που ήδη έχουν καταχωρηθεί στον πίνακα [ΑΠΟΘΗΚΗ] (ή ΠΑΡΑΛΑΒΕΣ) οι εγγραφές τους θα παραλειφθούν.

Ο κώδικας, κατάλληλα προσαρμοσμένος, θα πρέπει να αντιγραφεί και στη δεύτερη φόρμα.

Φιλικά/Γιώργος