[alex]

Καλημέρα στη κοινότητα!!

Στο παρακάτω κώδικα με κόκκινο συμπληρωμένο μας ελέγχει ότι για κάθε δηλωθέν στοιχείο που επιλέγουμε να κάνει έλεγχο εάν υπάρχει το ίδιο.
Αλλά Συνεχίζει το πρόβλημα με τις διπλοεγγραφές. Έχω αφαιρέσει από την λίστα το customer_id διότι μου έκανε debug.
1.Τι κώδικα πρέπει να συμπληρώσω εάν χρειάζεται ;
2. Ή στους πίνακες μήπως θέλει κάποιο ευρετήριο να αλλάξω ή πρωτεύον κλειδί ;
Κάτι δεν κάνω σωστά.
Γνωρίζει κάποιο μέλος για βοήθεια;

Private Sub Εντολή16_Click()

    Dim db As Database
    Dim rs As Recordset
    Dim ctl As Control
    Dim varItem As Variant

    Set db = CurrentDb
    Set rs = db.OpenRecordset("client")
    Set ctl = Me.Lista0

    For Each varItem In ctl.ItemsSelected
    
    rs.AddNew
    'rs!customer_id = Me.Lista0.Column(1, varItem)
    rs!Etos_asfalisis = Me.Lista0.Column(1, varItem)
    rs!Categories = Me.Lista0.Column(2, varItem)
    rs!code = Me.Lista0.Column(3, varItem)
    rs!arsimb = Me.Lista0.Column(4, varItem)
    rs!arth = Me.Lista0.Column(5, varItem)
    rs!date = Me.Lista0.Column(6, varItem)
    rs!name = Me.Lista0.Column(7, varItem)
    rs!lastname = Me.Lista0.Column(8, varItem)
    rs!epagelma = Me.Lista0.Column(9, varItem)
    rs!afm = Me.Lista0.Column(10, varItem)
    rs!doy = Me.Lista0.Column(11, varItem)
    rs!odos1 = Me.Lista0.Column(12, varItem)
    rs!arithmos1 = Me.Lista0.Column(13, varItem)
    rs!orofos1 = Me.Lista0.Column(14, varItem)
    rs!poli1 = Me.Lista0.Column(15, varItem)
    rs!tk1 = Me.Lista0.Column(16, varItem)
    rs!til1 = Me.Lista0.Column(17, varItem)
    rs!odos2 = Me.Lista0.Column(18, varItem)
    rs!arithmos2 = Me.Lista0.Column(19, varItem)
    rs!orofos2 = Me.Lista0.Column(20, varItem)
    rs!poli2 = Me.Lista0.Column(21, varItem)
    rs!tk2 = Me.Lista0.Column(22, varItem)
    rs!til2 = Me.Lista0.Column(23, varItem)
    rs!coment = Me.Lista0.Column(24, varItem)
    rs!HmerGenesis = Me.Lista0.Column(25, varItem)
    rs!email = Me.Lista0.Column(26, varItem)
    rs!Hm_ekdosis_Diplomatos = Me.Lista0.Column(27, varItem)
    rs!Sinidioktitis = Me.Lista0.Column(28, varItem)
    Me.Form.Requery
    
    rs.Update
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Next varItem

        For Each varItem In ctl.ItemsSelected
        ctl.Selected(varItem) = False

 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Next varItem
    
    MsgBox "ΟΚ... Τα επιλεγμένα δεδομένα καταχωρήθηκαν", vbInformation

    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Sub

Φιλικά

Αλέξανδρος