Hola
Tendrás que usar el evento "al hacer click" del cuadro combinado para ejecutar el código.
En lugar de tener funciones en los cuadros de texto, simplemente actualiza el valor de los mismos en el evento.
Un ejemplo con Access 2003 (no tengo aquí 2010, pero es aplicable). Base de datos de Northwind. Creo una consulta para calcular el total por pedido y cliente y la guardo con el nombre
"_ResumenPedidos".
Creo un formulario con un cuadro combinado y dos etiquetas con un espacio en blanco. El cuadro combinado me devuelve el ID de cliente y el cliente. Oculto el ID de cliente.
En el evento click del combo, pongo éste código:
Private Sub cbxClientes_Click()
Dim dSuma As Double, lCuenta As Long
dSuma = DSum("Importe", "_ResumenPedidos", "IdCliente='" & Me.cbxClientes.Column(0) & "'")
lCuenta = DCount("IdPedido", "_ResumenPedidos", "IdCliente='" & Me.cbxClientes.Column(0) & "'")
Me.lblCuenta.Caption = "Total de pedidos: " & lCuenta
Me.lblImporte.Caption = "Suma de pedidos: " & Format(dSuma, "#,##0.00")
End Sub
Así, cada vez que haga click y seleccione un cliente, recuperaré el número total de pedidos que tiene, y el importe total de los mismos.
Espero te sirva.
Salu2,
José Mª Fueyo [MS MVP Access]
