Anónimo
Enlazar formulario a informe
Hola, tengo un informe con un listado de pedidos organizados por cliente, necesito que al hacer clic en cualquiera de los pedidos que tengo en el informe me abra el formulario con el registro del pedido seleccionado
1 respuesta
Respuesta de Neckkito Nck
1
Te voy a poner un ejemplo de cómo puedes hacer eso.
Supongamos que en el informe tienes un campo [Id], de tipo numérico, que te identifica el número de pedido, y que en el formulario, que llamaré FPedidos, también contiene un campo con el mismo nombre y de las mismas características.
Lo que tienes que hacer es:
1.- Sitúas el informe en vista diseño.
2.- Seleccionas el campo [Id]. Sacas sus propiedades y te vas a la pestaña Eventos->Al hacer click. Verás que a su derecha hay un pequeño botón de puntos suspensivos. Si haces click sobre él se te abre una ventana. Ahí le dices que quieres generar código.
3.- Se te abrirá el editor de VB con dos líneas por defecto (Private Sub... y End Sub). Esas líneas no debes tocarlas. En medio de ellas escribes el siguiente código:
...
Private Sub ...
Dim vId As Long
vId = Me.Id.Value
DoCmd.OpenForm "FPedidos", , , "[Id]=" & vId
End Sub
...
Y eso es todo. Este código sólo te funcionará si [Id] es numérico. Evidentemente, tú debes cambiar los nombres del campo y del formulario por los que tú tengas en la BD.
Supongamos que en el informe tienes un campo [Id], de tipo numérico, que te identifica el número de pedido, y que en el formulario, que llamaré FPedidos, también contiene un campo con el mismo nombre y de las mismas características.
Lo que tienes que hacer es:
1.- Sitúas el informe en vista diseño.
2.- Seleccionas el campo [Id]. Sacas sus propiedades y te vas a la pestaña Eventos->Al hacer click. Verás que a su derecha hay un pequeño botón de puntos suspensivos. Si haces click sobre él se te abre una ventana. Ahí le dices que quieres generar código.
3.- Se te abrirá el editor de VB con dos líneas por defecto (Private Sub... y End Sub). Esas líneas no debes tocarlas. En medio de ellas escribes el siguiente código:
...
Private Sub ...
Dim vId As Long
vId = Me.Id.Value
DoCmd.OpenForm "FPedidos", , , "[Id]=" & vId
End Sub
...
Y eso es todo. Este código sólo te funcionará si [Id] es numérico. Evidentemente, tú debes cambiar los nombres del campo y del formulario por los que tú tengas en la BD.
Te ruego que, si lo consideras conveniente, cierres la pregunta.