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
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...