Para esto lo mejor es usar un formulario que tenga como Origen del Registro la Primera Tabla y un Cuadro de Texto con Origen del Control el Campo de esta Primera Tabla que debe recibir la suma, usando por ejemplo el Evento "Al recibir el Enfoque" y la Función DSum:
Sin condición recibirá la Suma de todos los campos de la Segunda Tabla:
Private Sub CampoPrimeraTabla_GotFocus()
Me.CampoPrimeraTabla = DSum("[CampoOtraTabla]","[NombreOtraTabla]")
End If
Con condición si ambas Tablas tienen un Campo común que sirva para relacionarlas, como por ejemplo un CodCli, CodProd, etc. que contengan el mismo valor:
Private Sub CampoPrimeraTabla_GotFocus()
Me.CampoPrimeraTabla = DSum ("[CampoOtraTabla]","[NombreOtraTabla]","[CodCli2]='" & [CodCli1] & "'")
End If
CodCli2 = Campo común de la Segunda Tabla (campo de texto)
CodCli1 = Campo común de la Primera Tabla (campo de texto)
En este segundo caso obtendrás la suma del Campo de la otra Tabla, pero sólo de los Clientes cuyo Código coincida con el Código que tengas cargado en el Formulario en el Campo CodCli1.
No es complicado ¿ verdad ?
Un saludo
Enrique