Discussion :

[papy75]

Bonjour le Forum,

Voila j'ai une petite question.....

J'ai un module de recherche qui marche très bien mais j'ai un petit soucis et ca fait brouillon. Qd la recherche ne renvoie pas de réponse j'ai un message du type j'ai pas trop le droit d'utiliser la valeur Null ce qui est normal.... Alors si j'ai ce message c'est que j'affiche le résultat de ma recherche dans un listBox avec ce code:

Code :

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

1
2
    Me.lst_Resultat.RowSource = strSql  
    Me.lst_Resultat.Requery

Il aime pas du tout car il n'y a aucune valeur dans mon strSql... Tout est logique.

Le pourquoi de cette discussion est la: Comment ne plus afficher se message et forcer Access a afficher mon message d'erreur: Le code serait dans se style

Code :

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

1
2
3
4
5
    If IsNull(strSql)  Then
        Beep
        MsgBox "Aucun résultat ne correspond a votre recherche!!!!!!!", vbOKOnly, "Important"
        Exit Sub     
    End If

Est ce possible de forcer Access a ne plus afficher ces messages d'erreurs?
Si oui quelle serait la ligne a insérer dans mon code?

Merci d'avance

Vincent

[Domi2]

Bonjour,

Pas testé, mais peut-être en interceptant l'erreur...

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
On Error Goto Gest_Erreurs
 
'Ici le code normal...
 
Gest_Erreurs:
 
'Ici, uniquement pour vérifier le no d'erreur, à supprimer par la suite
MsgBox Err.Number
 
Select Case Err.Number
 
'No d'erreur provoqué par une utilisation incorrecte de Null
Case 3314
 
Beep
MsgBox "Aucun résultat ne correspond a votre recherche!!!!!!!", vbOKOnly

Domi2

[papy75]

Salut Domi2, le forum

Bah j'ai testé ton code et.....

Ça marche nickel. Merci... Sauf que ça m'affiche dans une fenêtre le numéro d'erreur et après le message de ma msgBox......lol

Et puis si il trouve un résultat dans ma recherche il m'affiche une fenêtre avec le numéro 0 (= pas d'erreur j'imagine....)

Comment ne plus afficher la première fenêtre...?

Tu sais comment faire?

Merci d'avance,

Vincent

[Domi2]

Re,

Ça marche nickel. Merci... Sauf que ça m'affiche dans une fenêtre le numéro d'erreur et après le message de ma msgBox......lol

Ben oui. J'avais indiqué

Code :

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

1
2
'Ici, uniquement pour vérifier le no d'erreur, à supprimer par la suite
MsgBox Err.Number

Quel est le numéro d'erreur renvoyé ? C'est bien le 3314 ?

Et il faut prévoir le cas ou effectivement il n'y a pas d'erreur, donc placer une instruction Exit Sub avant la gestion d'erreur.

Domi2

[papy75]

Salut Domi2,

Effectivement je n'avais pas lu cette petite indication.....
j'ai enlevé MsgBox Err.Number

En fait mon message d'erreur c'est le suivant:

Code :

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

1
2
Run-Time error '94':
Invalide use of Null

ce n'est pas le num 3314.

Y a une grosse différence?

Merci,

Vincent

[Domi2]

Re,

Non, pas vraiment, c'était juste par curiosité...

Il te reste à compléter ta gestion d'erreur pour tenir compte d'une erreur inattendue

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Select Case Err.Number
 
'Si null    
Case...
 
    'Code...
 
'Autre
Else
 
    'Code...
 
End Select

Domi2

[papy75]

Salut Domi2,

Merci pour tout!!!!!

Vincent