Como contar registros de un subformulario
Quería pedirles si me pueden ayudar con un procedimiento que no puedo hacer.
Tengo un formulario "Clientes" y un subformulario "DetalleFacturaVentas" los dos vinculados por el campo "Cliente" y en el pie del subformulario agregue un cuadro de Texto11 para contar los clientes que en algunos casos tienen dos facturas con el mismo nombre de clientes, en origen del control del cuadro de Texto puse =Contar([Cliente]) hasta ahí todo bien, el problema se presenta cuando esa cantidad la quiero pasar al formulario al agregar un cuadro de texto y en origen del control puse =[DetalleFacturaVentas],[Formulario]![Texto11] así al abrir el formulario Clientes me aparece de inmediato en modalidad para agregar nuevos clientes o poder consultar por cada uno de ellos, pero en el cuadro de texto me sale #Error, entonces antepuse Nz en los dos cuadros de texto y ya no sale #Error, pero me sale #! Tamaño¡, solo aparece cuando abro el formulario, ya que al buscar registros del primero al ultimo cuenta correctamente
El asunto es que cuando estas en un cliente que ya tiene sus respectivas facturas el contador te funciona bioen, pero cuando tratas de ingresar un nuevo cliente el no puede contar, porque dicho cliente si bien apenas se esta creando, el mismo carece de significado para =Contar([Cliente]) ...
Entonces te sugiero utilices un if en el evento (Current) "Al Activar el Registro" así:
Private Sub Form_Current()
If NewRecord = True Then
Me.Texto11 = 0
Else
Me.Texto11 = DCont("[Cliente]", "Tb_DetalleFacturaVentas", "[Cliente] =" & Forms!DetalleFacturaVentas!Cliente)
End If
End SubDe este Modo si estas creando un nuevo cliente y por ende no tiene facturas, el contador "texto11" marcara 0. de lo contrario "Else" ncontara todos los registros de "DetalleFacturaVentas" de ese ciente.
