Masquer une message d'erreur d'Access

**raphael_g** · 21/07/2009, 23h49

Bonjour,
je voudrais masquer une message d'erreur qui me dit que mon choix ne fait pas partie de la liste... mais je le gere autrement.

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
22
23
24
25
26
27
28
 
Private Sub Modifiable22_NotInList(NewData As String, response As Integer)
'effacer le champs nom
DoCmd.SetWarnings False
 
Me.Undo
 
 
Message
 
Sub Message()
     Dim Retour As Integer
 
     Retour = msgbox("Voullez vous encoder un nouveau client", vbYesNo + vbCritical + vbDefaultButton2, "Client Inexistant...")
     If Retour = vbYes Then
           'fermer formulaire facture
    DoCmd.Close
    On Error Resume Next
   'ouvrir_formulaire_client_
    ouvrir_formulaire_client_Click
    On Error Resume Next
Else
 '  L 'utilisateur a choisi Non.
 
     End If
End Sub
 
End Sub

J'ai essayé avec :

Code :

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

DoCmd.SetWarnings False

mais cela ne fonctionne pas
ni avec on error goto next
et de plus je ne sais pas à quel noveau je dois le placer dans le code

Merci pour vos solutions

Bien à vous
Raphael