Newsgroup: it.comp.appl.access
Titolo: Gestione Errori

Ciao a tutti.
Il mio db utilizza un cd. Ho creato una gestione degli errori in modo che se
il cd non è presente venga visualizzata una Inputbox che dica cosa fare, con
pulsanti ok e annulla
Ora però volevo prevedere all'interno di questa gestione errori un eventuale
altro errore dello stesso tipo.Cioè se pigio ok nella inputbox, ma non ho
inserito il cd il db si interrompe dandomi lo stesso errore che sto già
trattando.
Come faccio a trattare quindi un errore che si verifica all'interno della
gestione dello stesso errore.
Allego il codice spernado si capisca meglio
On Error GoTo Manca
mancaEsci:
Exit Sub
Manca:
 If Err.Number = 71 Then
         Dim risposta
            risposta = InputBox("Inserire il cd nel lettore e specificare la
lettera del drive seguita da due punti (Esempio E: o F:)" & (Chr(13) &
Chr(10)) & "Premi Annulla per uscire dal programma",
"Attenzione", "E:")
            If risposta = Annulla Then
                DoCmd.Quit
            End If
            ' Qui controllo che il cd sia stato inserito verificando che il
nome del volume sia quello che ho assegnato io al cd. Se però non inserisco
il cd qui mi si verifica lo stesso errore che sto trattando il 71.
            ' Come faccio quindi a ricatturarlo? e a rigestirlo?
        If d.volumename = "newver" Then
            Volume = risposta
        End If
 End If
Resume mancaEsci
Ciao e grazie

 ha scritto nel messaggio
news:_16Va.208553$lK4.6...@twister1.libero.it...


 ha scritto nel messaggio
news:TO6Va.208109$Ny5.5...@twister2.libero.it...

Ciao
scusa non ho capito quale if intendi, il primo quello che valuta il se il
numero è 71 o l'if che valuta "newver"?
Ciao e grazie per l'aiuto

 ha scritto nel messaggio
news:TO6Va.208109$Ny5.5...@twister2.libero.it...

Ho provato in tutti e due ma non cambia niente.
Ma poi resume next non vuol dire ignora l'errore e continua il programma?
Ciao

[CUT]
prova a scriverla cosě:
on error goto erroremanca
manca:
'funzione di controlle, ecc
mancaesci:
    exit box
erroremanca:
select case err.number
    case 71
        Dim risposta
           risposta = InputBox("Inserire il cd nel lettore e specificare la
lettera del drive seguita da due punti (Esempio E: o F:)" &     (Chr(13) &
Chr(10)) & "Premi Annulla per uscire dal programma","Attenzione", "E:")
            If risposta = Annulla Then
                 resume mancaesci
             else
                    resume manca
             end if
    case else
        msgbox err.number & "  " & err.description
        resume mancaesci
end select

 ha scritto nel messaggio
news:Vr7Va.208238$Ny5.5...@twister2.libero.it...

Neo grazie per la dritta, mi č stata utile.
Ora perň ho un altro problema, cioč che msgbox err.number & "  " &
err.description
mi rileva un errore che non so decifrare. Mi compare difatti la msgbox con
solo uno zero, senza descrizione di cosa indichi. Ho provato a cercare nella
guida ma l'errore 0 non esiste.
Se qualcuno riesce a spiegarmi sarebbe molto gentile.
Ciao


0 (zero) è l'errore che non ci sono errori.... probabilmente c'è un errore
nel codice e quando fa il controllo dell'errore 71 dopo passsa anche
l'istruzione msgbox...
controlla e vedi dove va al msgbox senza che ci siano errori...
se al posto del select hai usato if controlla l'else e i return o resume
alle funzioni precedenti...