Gestion des erreurs - [PatCatNat's]

Gestion des erreurs

Article mis en ligne le 17 novembre 2006

dernière modification le 13 décembre 2006

par Patrice MOREL

Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Compatible |

Gérer les n° d’erreurs Microsoft

Ex : Erreur n° 70 - Vérifie que excel ne soit pas ouvert.

Private Sub BoutonAperçuEtat_Click()

'Gestion du message d'erreur n°70 de Microsoft si excel est ouvert (Voir en bas de la procédure)
On Error GoTo Err_BoutonApercuEtat_Click

'-------------------------------------
'Ta procédure
'-------------------------------------

'Gestion du message d'erreur n°70 de Microsoft si excel est ouvert :
Exit_BoutonApercuEtat_Click:
Exit Sub

Err_BoutonApercuEtat_Click:
Select Case Err
Case 70: Beep: MsgBox "Excel est ouvert." & vbCrLf & "Il faut le refermer (J'insiste !)", 48, "Erreur Excel"
Case Else: MsgBox Error$ & " " & Err
End Select
Resume Exit_BoutonApercuEtat_Click

End Sub

Ex : Erreur n° 2501 + 94 - Vérifie qu’un choix a été fait dans une liste.

Private Sub BtnVisuel_Click()
'Gestion de l'erreur si aucune requête n'a été sélectionnée
On Error GoTo Err_BtnVisuel_Click

'-------------------------------------
'Ta procédure
'-------------------------------------
    
'Gestion de l'erreur si aucun choix n'a été fait dans la liste de sélection
Exit_BtnVisuel_Click:
    Exit Sub

Err_BtnVisuel_Click:
    Select Case Err
        Case 2501
        Case 94: Beep: MsgBox "Aucun choix n'a été effectué dans la liste.", 48
        Case Else: MsgBox Error$ & " " & Err
    End Select
    Resume Exit_BtnVisuel_Click
End Sub

Actus

Un PDG de la SNCF à Savenay !

Après avoir été interpellé hier par les cégétistes cheminots en gare de (…)

L’ami de la pelloche !

Vous l’avez certainement croisé un jour, au cours d’une manif. à Nantes, (…)

8 mai en recyclerie !

Largement écœuré par ce gouvernement et son empereur, au-delà de toute (…)

Leonard Peltier libre !

Leonard Peltier, un Amérindien condamné deux fois à la prison à vie pour un (…)

En Pays-de-la-Loire le couperet est tombé !

« La présidente Horizons de la région Pays de la Loire veut faire voter ce (…)