Discussion :

[kissmytoe]

Bonjour à tous,

Mon problème se trouve à cette ligne

Code :

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

1
2
3
Dim statistiques as DAO.recordset
 
If (statistiques.EOF Or numeroStat <> Nz(statistiques("numeroSTATISTIQUE"))) Then

Si la requete est vide, il fait un bug!!! Il n'est pas égale a null il plante tout simplement, comment éviter cela. Le NZ ne fonctionne pas!!

Mary

[marot_r]

Ça c'est la plaie !

Tu peux essayer un test pour savoir si ta requète est vide :

Code :

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

1
2
3
4
 
if not(r.EOF and r.BOF) then 
   'a priori la requète n'est pas vide -> Faire ton code
end if

Tu peux aussi essayer avec r.RecordCount=0 ce qui veut dire que tu n'as pas d'enr mais ce n'est pas très fiable (voir l'aide à propos de RecordCount).

A+

[=JBO=]

Bonjour le Québec (ça fait toujours plaisir ),

Si la requete est vide, il fait un bug!!! Il n'est pas égale a null il plante tout simplement, comment éviter cela. Le NZ ne fonctionne pas!!

A mon avis, il s'agit plutôt d'une conséquence de l'implémentation des opérateurs logiques dans VB (Or, And...).

Tu peux réécrire ta fonction comme suit:

Code :

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

1
2
3
4
5
6
7
Dim statistiques as DAO.recordset
 
If statistiques.EOF Then
    ' RecordSet vide, donc pas de statistiques
ElseIf numeroStat <> Nz(statistiques("numeroSTATISTIQUE"))) Then
    ' Ici, on est sûr que le RecordSet n'est pas vide
EndIf

Explication:

Dans le cas du Or, quand la partie gauche de l'expression est évaluée à Vrai, et que donc le résultat est Vrai, alors VB évalue quand même la partie droite , ce qui ne sert à rien et peut même causer une erreur .

La preuve par l'exemple:

Dans un module de code:

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
Public Sub TestLogiqueOR()
    If TestLogiqueExpr(True, "Gauche") Or TestLogiqueExpr(True, "Droite") Then
        Debug.Print "  TestLogiqueOR=" & True
    Else
        Debug.Print "  TestLogiqueOR=" & False
    End If
End Sub
 
Public Sub TestLogiqueAND()
    If TestLogiqueExpr(False, "Gauche") And TestLogiqueExpr(True, "Droite") Then
        Debug.Print "  TestLogiqueAND=" & True
    Else
        Debug.Print "  TestLogiqueAND=" & False
    End If
End Sub
 
Public Function TestLogiqueExpr(bValeur As Boolean, sLibellé) As Boolean
    Debug.Print "  ."; sLibellé; ":TestLogiqueExpr="; bValeur
    TestLogiqueExpr = bValeur
End Function

Dans la fenêtre de débogage:

Taper: TestLogiqueOR

.Gauche:TestLogiqueExpr=Vrai
.Droite:TestLogiqueExpr=Vrai
TestLogiqueOR=Vrai

Taper: TestLogiqueAND

.Gauche:TestLogiqueExpr=Faux
.Droite:TestLogiqueExpr=Vrai
TestLogiqueAND=Faux