Errore di run-time 2501 su apertura report

[hoyt]

Buona sera a tutto il NG,
mi rivolgo direttamente alla vostra sempre cortese attenzione, dopo
aver spulciato (credo) tutti i post senza venire a capo del problema …
per generare un report in anteprima inserisco il seguente codice:

DoCmd.OpenReport "Rpt_Scadenze_Dett_Ufficio",
acViewPreview
RunCommand acCmdZoom100

ma, in caso di report vuoto, dopo il messaggio predisposto
all’occorrenza, continua ad uscirmi l’errore:

Errore di run-time ‘2501’: l’azione OpenReprt è stata annullata.

anche se ho predisposto la classica routine per intercettarlo che,
Access, non si fila per niente, rimandandomi il debug alla linea
DoCmd… …:

On Error GoTo ErrorMsgs

ErrorMsgs:
If Err.Number = 2501 Then Exit Sub

Grazie a tutti e buona prosecuzzione di serata.

Francesco

[CIDI]

"hoyt" <d_cre...@libero.it> ha scritto nel messaggio
news:72c07fc7-b56a-4ddc...@j25g2000yqa.googlegroups.com...

On Error GoTo ErrorMsgs

Francesco

vedi: www.donkarl.com/it?FAQ5.8

ciao
Daniele

[hoyt]

On 24 Nov, 18:53, "CIDI" <dadonz...@spamtin.it> wrote:
> "hoyt" <d_cremon...@libero.it> ha scritto nel messaggionews:72c07fc7-b56a-4ddc...@j25g2000yqa.googlegroups.com...

> Buona sera a tutto il NG,
> mi rivolgo direttamente alla vostra sempre cortese attenzione, dopo
> aver spulciato (credo) tutti i post senza venire a capo del problema
> per generare un report in anteprima inserisco il seguente codice:
>
>                 DoCmd.OpenReport "Rpt_Scadenze_Dett_Ufficio",
> acViewPreview
>                 RunCommand acCmdZoom100
>
> ma, in caso di report vuoto, dopo il messaggio predisposto
> all occorrenza, continua ad uscirmi l errore:
>

> Errore di run-time 2501 : l azione OpenReprt stata annullata.

>
> anche se ho predisposto la classica routine per intercettarlo che,
> Access, non si fila per niente, rimandandomi il debug alla linea
> DoCmd :
>
> On Error GoTo ErrorMsgs
>
> ErrorMsgs:
>     If Err.Number = 2501 Then Exit Sub
>
> Grazie a tutti e buona prosecuzzione di serata.
>
> Francesco
>
> vedi:www.donkarl.com/it?FAQ5.8
>
> ciao
> Daniele

Ciao Daniele,
in effetti avevo già visto la FAQ di Karl ma non avevo preso in
considerazione la variante 1 ... a questo punto però se non ci sono
alternative al problema sicuramente dovrò risolvere in quella
maniera ...
Grazie e buona serata.

Francesco

[Karl Donaubauer]

hoyt wrote:
> mi rivolgo direttamente alla vostra sempre cortese attenzione, dopo

> aver spulciato (credo) tutti i post senza venire a capo del problema .

> per generare un report in anteprima inserisco il seguente codice:
>
> DoCmd.OpenReport "Rpt_Scadenze_Dett_Ufficio",
> acViewPreview
> RunCommand acCmdZoom100
>
> ma, in caso di report vuoto, dopo il messaggio predisposto
> all'occorrenza, continua ad uscirmi l'errore:
>

> Errore di run-time '2501': l'azione OpenReprt č stata annullata.

>
> anche se ho predisposto la classica routine per intercettarlo che,
> Access, non si fila per niente, rimandandomi il debug alla linea

> DoCmd. .:

>
>
> On Error GoTo ErrorMsgs
>
> ErrorMsgs:
> If Err.Number = 2501 Then Exit Sub

Nel editore VBA controlla che non č attiva la spunta
per interrompere ad ogni errore nel menů
Strumenti - Opzioni - Generale

Se non č questo incolla tutto il tuo codice della sub
che apre il report.

--
cu
Karl
*********
Access FAQ: http://www.donkarl.com/it

[hoyt]

On 24 Nov, 23:16, "Karl Donaubauer" <nos...@donkarl.com> wrote:
> hoyt wrote:
> > mi rivolgo direttamente alla vostra sempre cortese attenzione, dopo
> > aver spulciato (credo) tutti i post senza venire a capo del problema .
> > per generare un report in anteprima inserisco il seguente codice:
>
> >                 DoCmd.OpenReport "Rpt_Scadenze_Dett_Ufficio",
> > acViewPreview
> >                 RunCommand acCmdZoom100
>
> > ma, in caso di report vuoto, dopo il messaggio predisposto
> > all'occorrenza, continua ad uscirmi l'errore:
>

> > Errore di run-time '2501': l'azione OpenReprt stata annullata.

>
> > anche se ho predisposto la classica routine per intercettarlo che,
> > Access, non si fila per niente, rimandandomi il debug alla linea
> > DoCmd. .:
>
> > On Error GoTo ErrorMsgs
>
> > ErrorMsgs:
> >     If Err.Number = 2501 Then Exit Sub
>

> Nel editore VBA controlla che non attiva la spunta

> per interrompere ad ogni errore nel men

> Strumenti - Opzioni - Generale
>

> Se non questo incolla tutto il tuo codice della sub

> che apre il report.
>
> --
> cu
> Karl
> *********

> Access FAQ:http://www.donkarl.com/it- Nascondi testo citato
>
> - Mostra testo citato -

Buon giorno Karl,
come al solito non finisco mai "stupirmi" ... seguendo la tua
indicazione, ho modificato la spunta su "interrompi ad ogni errore non
gestito" (non sapevo dell'esistenza di queste opzioni, non ci avevo
mai guardato) e, manco a dirlo, tutto perfetto nel funzionamento ...
Grazie della tua sempre costante attenzione verso i nostri
problemi ... Auguro a te ed a tutto il NG una buona prosecuzione di
giornata ...

Francesco