Discussion :

[Fabdunet13]

Bonjour,


Je voudrais faire un Catch sur une requète SQL que si il y a une erreur alors plus tot que que basculer en code source indiquer simplement que ce n'est pas possible a l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Try
                    'afficher la premire colonne sélectionnée
                    MsgBox Me.LB_List_Tel.Column(0)
 
                    'REQ_Modif = "UPDATE Téléphone_en_attente set Action = 'true' WHERE id = " & Me.LB_List_Tel.Column(0) & "; "
                    REQ_Modif = "UPDATE Téléphone_en_attente set Action = 1 WHERE id =" & Me.LB_List_Tel.Column(0)
 
 
 
                   'Supprime la confirmation d'enregistrement dans la BDD
                   DoCmd.SetWarnings off
 
        Catch ex As Exception
                     msgbox ("Action Impossible")
        End Try

Mais sa ne fonctionne pas tout a fait comme le VB.Net.

Pouvez vous m'aider s'il vous plait ?

[Jean-Philippe André]

Bonjour,

le try catch sous VBA se fait avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
On Error Resume Next
'instruction...
If Err.Number>0 Then
'code du catch
End If

[marot_r]

Bonjour.

Attention, on est TRÈS loin du try/catch en VBA.

La solution de Jean-Philippe André fonctionne si et seulement si tu as une seule instruction juste avant l'erreur.
Sinon, il ignore l'erreur et passe seulement à l'instruction suivante.
L'idéal en VBA c'est d'avoir du code qui vérifie avant que tu vas avoir une erreur est évite ainsi d'exécuter l'instruction ou les instructions concernées.
Il y a aussi une instruction erl ligne qui te donne la dernière ligne numérotée par rapport à où s'est produite une erreur. C'est très rudimentaire.

Personnellement quand je sais que je vais devoir gérer une erreur je fais :

un procédure ou une fonction spécifique pour isoler le code qui va produire une erreur.

et j'utilise quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    on error goto Err_NomProcedure
 
    'ici mon code
 
Exit_NomProcedure:
    exit sub
 
Err_NomProcedure:
   select case err.number
      case IciLeNumeroQueJAttend
        'Faire quelque chose de spécifique pour cette erreur :
        ' Resume Next 'Passe à l'instruction suivante  
        ' Resume UneADresse 'Reprend le code à une adresse particulière
 
      case else
        msgbox("Erreur " & err.number & " - " & err.description, vbexclamation)
 
  end select
 
  resume exit_NomProcedure
end sub

pour neutraliser la gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error goto 0

C'est la valeur par défaut et Access s'arrête sur la ligne concerné et affiche le message à l'utilisateur.

Note que sur les formulaires tu as un événement "Sur Erreur" mais que son fonctionnement est un peu différent.

A+

[marot_r]

Un dernier point, les erreur sont renvoyées au niveau du dessus jusqu'au premier niveau qui implémente un On Error Goto.

Donc, il se peut que tu attrapes une erreurs à un niveau mais qu'elles se soit produite ailleurs.

A+