Desde formulario imprimir registro actual en un informe

[gorgorita]

Tengo una BD con un formulario donde introduzco los registros. A este
formulario le he colocado un botón para abrir un informe.
Lo que quiero hacer, desde el botón se abra el informe con el registro en el
que estoy posicionada en el formulario. El problema es que abre el informe
por el primer registro.
En el botón tengo el siguiente procedimiento:

Private Sub Informe_Registre_Click()
On Error GoTo Err_Informe_Registre_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Registre Cases C"
stLinkCriteria = "[ID_CASES]=" & Me![ID_CASES]
DoCmd.OpenReport stDocName, acPreview, StLinCriteria

Exit_Informe_Registre_Click:
Exit Sub

Err_Informe_Registre_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Registre_Click

End Sub

[Ju@nk]

Te falta una coma, tienes mal pasado el parametro del criterio.

Private Sub Informe_Registre_Click()
On Error GoTo Err_Informe_Registre_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Registre Cases C"
stLinkCriteria = "[ID_CASES]=" & Me![ID_CASES]

DoCmd.OpenReport stDocName, acPreview,, StLinCriteria

Exit_Informe_Registre_Click:
Exit Sub

Err_Informe_Registre_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Registre_Click

End Sub

--
--
**
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.

Salu2
Ju@nK [MVP Access]
http://juank.mvps.org
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank
http://juankc.spaces.live.com/
http://juank.mvps.org/
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com

Nota: El contenido de este mensaje, así como el código
fuente que pueda ir incluido en el mismo, se proporciona
«COMO ESTÁ», sin garantías de ninguna clase, y no otorga
derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar la sugerencia del presente mensaje.
**
"gorgorita" <gorg...@discussions.microsoft.com> escribió en el mensaje
news:3519E963-34A1-491F...@microsoft.com...