MsgBox

Maria del Carmen:
Esta es la rutina que tengo en los reportes para avisar que no hay datos:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_NoData
MsgBox "Este reporte se cierra por no haber registros " _
& vbCrLf & gstrReportTitle & vbCrLf & " que imprimir por el
momento", _
vbInformation, "Titulo del mensaje"
Cancel = True
Exit_NoData:
Exit Sub
Err_NoData:
MsgBox Err.Description
Resume Exit_NoData
End Sub

en el evento NoData y funciona sin problemas...

Victor Delgadillo [MVP Access]
Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.

_
"mdc" wrote in message
news:

Buenos días,

Me gustaría saber como evitar este mensaje "La AcciónOpen Report se
canceló", después de haber puesto en un informe, à la propiedad "al no

haber

datos", un MsgBox "Ningun Dato"
Cancel = True

Este informe, lo tengo en un menu general.

Gracias de antemano. Soy bastante nueva en Access

Maria del Carmen

Lo puedes solucionar,mediante el control de flujo de errores
correspondiente.(En el formulario)
No hace mucho respondí a un apregunta semejante. En el evento Click del
botón que llama al Informe, recoge el numero de error correspodiente y
saltale.
El Cancel=True lo controla el Informe y responde bien, mientras que el
mensaje que recibes es del propio formulario
Debería quedarte algo parecido a esto
Private Sub Comando3_Click()
On Error GoTo Err_Comando3_Click

Dim stDocName As String

stDocName = "MiReporte"
DoCmd.OpenReport stDocName, acPreview

Exit_Comando3_Click:
Exit Sub

Err_Comando3_Click:
If Err.Number <> 2501 Then
MsgBox Err.Description
Resume Exit_Comando3_Click
End If

End Sub.



Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.
"mdc" escribió en el mensaje
news:

Buenos días,

Me gustaría saber como evitar este mensaje "La AcciónOpen Report se
canceló", después de haber puesto en un informe, à la propiedad "al no

haber

datos", un MsgBox "Ningun Dato"
Cancel = True

Este informe, lo tengo en un menu general.

Gracias de antemano. Soy bastante nueva en Access

Maria del Carmen