[Tasos]

Αντώνη καλημέρα!

Το φαντάστηκα!

...Βλέποντας όμως τη βάση σου έχω την εντύπωση ότι κάτι άλλο χρειάζεσαι και όχι μια απλή αντιγραφή.

Κατ αρχήν, οι τιμές που θέλεις να σου εμφανίζονται δεν αποθηκεύονται πουθενά!
Αν θέλεις να αποθηκεύονται, δημιούργησε τα ανάλογα πεδία στον/στους πίνακες, και σύνδεσε τα με τα πεδία που ήδη έχεις στην/στις φόρμες σου.

Γιατί η προέλευση δεδομένων των φορμών σου είναι ερώτημα και όχι κατευθείαν ο πίνακας;
Γενικά πρώτα πρέπει να σχεδιάζεις τη δομή των πινάκων και μετά να ασχοληθείς με τις φόρμες.

Αφού κάνεις αυτά, φρόντισε να αλλάξεις το όνομα του πεδίου "Κείμενο11" στην κύρια φόρμα
(πάλι μου το ανέβασες αδιόρθωτο ) σε "sinolo" , σύνδεσε το με το αντίστοιχο πεδίο του πίνακα και στο AfterUpdate() του πεδίου "timh2",
πέρασε το παρακάτω:

Private Sub timh2_AfterUpdate()
    On Error GoTo Err_timh2_Click
    DoCmd.RunCommand acCmdSaveRecord
    Me.Parent.sinolo = DSum("[timh2]", "[Πινακας2]", "[a/a1]=" & Me![a/a1])
Exit_timh2_Click:
    Exit Sub
Err_timh2_Click:
    MsgBox Err.Description
    Resume Exit_timh2_Click
End Sub

Φιλικά/Τάσος