Obligar la entrada en un subformulario vinculado

28/08/2012 - 11:05 por Toni | Informe spam

Buenos dias de nuevo,

Tengo un subformulario vinculado al formulario principal con una relación uno a varios, mi problema és el siguiente:

Al entrar un registro en el formulario 'padre', desearia que, antes de salir de este registro, la aplicación obligara a entrar uno o varios registros en el subformulario, de manera que no quedara ningun registro en el formulario principal sin registros relacionados en el subformulario.

Muchas gracias de antemano.
Toni

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 José Mª Fueyo

28/08/2012 - 11:25 | Informe spam

Hola
No nos comentas que versión de Access utilizas.
Podrías usar un DCount en el evento Unload del formulario padre, haciendo una búsqueda en la tabla del lado varios por el campo de relación.
Por ejemplo, en la base de Norhwind y en el formulario de Pedidos:

<pego>
Private Sub Form_Unload(Cancel As Integer)
Dim sCriterio As String, iCuenta As Integer
sCriterio = "[IdPedido]=" & Me.IdPedido.Value
iCuenta = DCount("IdPedido", "[Detalles de pedidos]", sCriterio)
If iCuenta < 2 Then
MsgBox "Solo hay una linea"
Cancel = True
End If
End Sub
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]

Responder a este mensaje

#2 Toni

29/08/2012 - 09:07 | Informe spam

Me fue de gran ayuda, gracias!

On Tuesday, August 28, 2012 11:25:19 AM UTC+2, José Mª Fueyo wrote:

Hola

No nos comentas que versión de Access utilizas.

Podrías usar un DCount en el evento Unload del formulario padre, haciendo una búsqueda en la tabla del lado varios por el campo de relación.

Por ejemplo, en la base de Norhwind y en el formulario de Pedidos:

<pego>

Private Sub Form_Unload(Cancel As Integer)

Dim sCriterio As String, iCuenta As Integer

sCriterio = "[IdPedido]=" & Me.IdPedido.Value

iCuenta = DCount("IdPedido", "[Detalles de pedidos]", sCriterio)

If iCuenta < 2 Then

MsgBox "Solo hay una linea"

Cancel = True

End If

End Sub

</pego>

Salu2

José Mª Fueyo

[MS MVP Access]

Responder a este mensaje

#3 José Mª Fueyo

29/08/2012 - 10:38 | Informe spam

:-)

Salu2
José Mª Fueyo
[MS MVP Access]

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida