Discussion :

[gberthier]

Bonjour,

Est-ce que remplacer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande24_Click()
On Error GoTo Err_Commande24_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Commande24_Click:
    Exit Sub
 
Err_Commande24_Click:
    MsgBox "Il n'y a pas d'enregistrement précédent"
    Resume Exit_Commande24_Click
 
End Sub

Par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande24_Click()
On Error GoTo Err_Commande24_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Commande24_Click:
    Exit Sub
 
Err_Commande24_Click:
    Resume Exit_Commande24_Click
 
End Sub

représente un quelconque danger?

[marot_r]

Oui et non.

Le pb de ton second code c'est que si tu as une erreur quelconque tu ne saura asbsolument pas.

Dans ton cas j'utilise le code suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Err_Commande24_Click:
    select case err.number
       case x :'Où x est un erreur que tu veux masquer
          'Erreur normale, ne rien faire
          'Dans ton cas : pas d'enr précédent.
 
       case else
          msgbox "L'erreur " & err,number & ", " & err.description  & " s'est produite." & vbNewLine & vbNewLine "Merci de faire une copie d'écran et de communiquer avec le service d'assistance.",vbExclamation
 
    end select
 
    Resume Exit_Commande24_Click

L'avantage de ce code est de te permettre de décider si tu traite l'erreur ou pas.

Un autre truc que j'utilise c'est de rendre le On Error Goto conditionnel.

Code :

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

1
2
 
if not MODE_DEBUG then On Error Goto

MODE_DEBUG est une constante globale boolean que je défini à True ou False en fonction de mes besoins de débuggage.

Si MODE_DEBUG = true alors toutes mes gestions d'erreurs sont neutralisées et Access s'arrête là où l'erreur se produit.

A+

[gberthier]

Salut,

Intéressants tes codes, je vais utiliser le premier!

Merci beaucoup!

Juste pour info: est-ce qu'il peut y avoir une erreur sur un simple "enregistrement suivant"?: Si il y en a un, on y va, si il n'y en a pas on ne peut pas y aller et ça en reste là?..

[marot_r]

Je penses que oui mais le plus simple dans ce genre de cas c'est de faire un essais.

A+

[gberthier]

Salut,
Ton truc marche très bien, je vais le garder!
Merci!