[Tasos]

Δημήτρη,

έστω ότι:

το πεδίο(7) του Word πρέπει να έχει την ίδια τιμή με το πεδίο(1)
και το πεδίο(8) του Word πρέπει να έχει την ίδια τιμή με το πεδίο(2)

Βρες το κομμάτι του κώδικα:

    
For Each Ctl In Me.Section(0).Controls
        If TypeOf Ctl Is Access.TextBox Then
            If IsNumeric(Ctl.Tag) Then
                wdDoc.FormFields(CInt(Ctl.Tag)).result = Nz(Ctl, vbNullString)
            End If
        End If
 Next

και αντικατέστησε το με αυτό:

    For Each Ctl In Me.Section(0).Controls
        If TypeOf Ctl Is Access.TextBox Then
            If IsNumeric(Ctl.Tag) Then
                wdDoc.FormFields(CInt(Ctl.Tag)).result = Nz(Ctl, vbNullString)
            End If
        End If
    Next
   wdDoc.FormFields(7).result = wdDoc.FormFields(1).result 
   wdDoc.FormFields(8).result = wdDoc.FormFields(2).result  

Τάσος