[nasos23]

Αντώνη καλημέρα.
Στα ερωτήματά σου
Επιλέγοντας στη βάση και στο μενού εργαλεία-->Σχέσεις, θα δείς
τις σχέσεις των πινάκων σου. Εικόνα1.
Στη φόρμα σου εισήγαγα δύο βοηθητικά αδέσμευτα πεδία "Κείμενο11" & "Κείμενο13"
όπου εκεί εμφανίζονται οι τιμές των στηλών της επιλογής του σύνθετου πεδίου "id" (επιλογή τιμοκαταλόγου) το οποίο πεδίο αντλεί δεδομένα (βάσει σχέσης) από τον πίνακα "τιμοκατάλογοι".
Συνεπώς μετά την ενημέρωση ενεργοποιείται ο κώδικας VBA και κάνει ενημέρωση του πεδίου
"τιμοκαταλογος%" στον πίνακα pol_2.

"UPDATE pol_2 SET pol_2.[τιμοκαταλογος%] =[Φόρμες]![pol_1 Ερώτημα]![Κείμενο13]" & _
          " WHERE (([pol_1]![idpol]=[pol_2]![idpol]));"

1.ενημερώνει το πεδίο "τιμοκαταλογος%" του πίνακα pol_2 βάσει επιλογής [Κείμενο13]
2.Φιλτράρει της εγγραφές ενημέρωσης, οι τιμές του πεδίου idpol των δύο πινάκων να είναι ίδιες

ή εναλλακτικά (πιο σωστός κώδικας) χωρίς τα βοηθητικά πεδία της φόρμας

Private Sub id_AfterUpdate()
Dim strSQL As String
 
DoCmd.SetWarnings False
strSQL = "UPDATE pol_2 SET pol_2.[τιμοκαταλογος%] ='" & Me!id.Column(2) & "' " & _
" WHERE ([idpol]=" & Me!idpol & ")"
 DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
   Me.Refresh
End Sub

1.ενημερώνει το πεδίο "τιμοκαταλογος%" του πίνακα pol_2 βάσει επιλογής της δεύτερης στήλης του πεδίου id
2.Φιλτράρει της εγγραφές ενημέρωσης, βάσει του πεδίου idpol της φόρμας.
Ελπίζω να βοήθησα.