Contar registros de Formulario antes de abrirlo.
Publicado por tpfjavi (34 intervenciones) el 11/09/2007 08:31:22
Estoy estableciendo una condición para en función del número de registros que tiene una consulta abrir un formulario u otro ( un formulario único o un formulario continuo). Todo funciono pero luego puse -en principio de forma temporal- los msgbox para guiarme, y me he dado cuenta que cuando el número de registros es de 2 a 5 , el msgbox contesta bien, pero cuando los registros son superiores a 5, la respuesta siempre es 5.
La misma línea de código (Form.Recordset.RecordCount o Form.RecordsetClone.RecordCount ) puesto en un boton de comando dentro del formulario contínuo contesta de forma correcta.
¿Estoy planteando mal el código? (tener en cuenta que estoy empezando , seguro que existe una foma mejor de pedir lo que quiero), o la expresión no es capaz de contestar de forma correcta antes de tener abierto el Form.
lf Form.RecordsetClone.RecordCount = 0 Then
MsgBox "no hay registros voy a cerrar el formulario"
DoCmd.Close
ElseIf Form.Recordset.RecordCount = 1 Then
MsgBox "hay un registro voy a abrir un formulario justificado y cerrar el de relacion"
DoCmd.OpenForm "FRMNOTAS", , , "[CLIENTE]=" & "'" & Me![CLIENTE] & "'"
DoCmd.Close acForm, "znotasrelacion"
Else
MsgBox "HAY UN TOTAL DE : " & Me.Recordset.RecordCount & " te muestro el formulario relacion"
End If
Gracias y perdón por la parrafada
La misma línea de código (Form.Recordset.RecordCount o Form.RecordsetClone.RecordCount ) puesto en un boton de comando dentro del formulario contínuo contesta de forma correcta.
¿Estoy planteando mal el código? (tener en cuenta que estoy empezando , seguro que existe una foma mejor de pedir lo que quiero), o la expresión no es capaz de contestar de forma correcta antes de tener abierto el Form.
lf Form.RecordsetClone.RecordCount = 0 Then
MsgBox "no hay registros voy a cerrar el formulario"
DoCmd.Close
ElseIf Form.Recordset.RecordCount = 1 Then
MsgBox "hay un registro voy a abrir un formulario justificado y cerrar el de relacion"
DoCmd.OpenForm "FRMNOTAS", , , "[CLIENTE]=" & "'" & Me![CLIENTE] & "'"
DoCmd.Close acForm, "znotasrelacion"
Else
MsgBox "HAY UN TOTAL DE : " & Me.Recordset.RecordCount & " te muestro el formulario relacion"
End If
Gracias y perdón por la parrafada
Valora esta pregunta
0