[alex]

Σάκη καλησπέρα
Δεν σε προλαβα αλλά με την μέθοδο Εdit θα μπορούσες και προγραμματιστικά το ένα μέρος να κάνεις.Αφού πρώτα θα άλλαζες την ονομασία της KΩΔΙΚΟΣ να είναι η ίδια και στους δύο πίνακες κατόπιν σε μία φόρμα σε κουμπί εντολής τον παρακάτω κώδικα

Private Sub Εντολή1_Click()
Dim strDocName As String
   
Dim db As Database, tbl1 As DAO.Recordset, tbl2 As DAO.Recordset
    Set db = CurrentDb()
  'ΕΝΗΜΕΡΩΣΗ ΑΡΧΕΙΟΥ Εξαρτήματα με τον ΚΩΔΙΚΟ
 Set tbl1 = db.OpenRecordset("Εξαρτήματα")
    Set tbl2 = db.OpenRecordset("ΤΙΜΟΚΑΤΑΛΟΓΟΣ1")
    Do Until tbl1.EOF
        tbl2.MoveFirst
            Do Until tbl2.EOF
            If tbl1![ΚΩΔΙΚΟΣ] = tbl2![ΚΩΔΙΚΟΣ] Then
               tbl2.Edit
               tbl2![ΤΙΜΗ_ΤΙΜΟΚΑΤΑΛΟΓΟΥ] = tbl1![ΤΙΜΗ_ΤΙΜΟΚΑΤΑΛΟΓΟΥ]
               tbl2.UPDATE
               tbl1.Edit
               
               tbl1.UPDATE
            End If
            tbl2.MoveNext
     Loop
        tbl1.MoveNext
       Loop
    tbl1.Close
    tbl2.Close
        
End Sub

Θέλει και ένα Reference Microsoft DAO 3,6 Object Library

Δεν το είδα το δικό σου τώρα θα το δω

Φιλικά/Αλέξανδρος