Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
form, relleno unos campos fecha y tras pulsar un boton me abre un informe
basado en esas fechas. Lo que intento es que si el informe esta vacio
entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
datos" del report pongo:

msgbox "No hay datos"
cancel = true

En el boton que abre el informe pongo: Docmd.Openreport "Informe",
acViewPreview

El caso es que funciona perfectamente, pero despues de mostrar el mensaje me
muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo si
abro el report desde una macro no muestra error. No hay ninguna manera para
que no muestre error al cancelar una funcion a traves de codigo??

gracias
salu2

kone

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>

hola kone prueba lo que te digo, es lo que hago yo en mis bases de datos
access cuando tengo tu problema, en el informe pon esto:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Err_Report_NoData

MsgBox "No hay datos", vbExclamation, "Error"
Docmd.Close

Exit_Report_NoData:
Exit Sub

Err_Report_NoData:
Resume Exit_Report_NoData

End Sub

Un Saludo,
Mario

"Kone" <javierrayos***terra.es> escribió en el mensaje
news:l8axb.1409387$uj6.3550941***telenews.teleline.e s...
> Hola, tengo un pequeño problema que no veo logico. Resulta que mediante un
> form, relleno unos campos fecha y tras pulsar un boton me abre un informe
> basado en esas fechas. Lo que intento es que si el informe esta vacio
> entonces muestre un mensaje y cancele. Entonces en el evento "Al no haber
> datos" del report pongo:
>
> msgbox "No hay datos"
> cancel = true
>
> En el boton que abre el informe pongo: Docmd.Openreport "Informe",
> acViewPreview
>
> El caso es que funciona perfectamente, pero despues de mostrar el mensaje
me
> muestra el tipico error "La operacion OpenReport se cancelo". Sin embargo
si
> abro el report desde una macro no muestra error. No hay ninguna manera
para
> que no muestre error al cancelar una funcion a traves de codigo??
>
> gracias
> salu2
>
> kone
>
>