Discussion :

[JiB@]

à tous!

J’ai une requête sélection qui me dit si la case “Litige” de la table “Commandes“ est coché ou pas.
Si cette case est cochée, j’ai le message "Il y a un nouveau litige" et si pas, j’ai le message "Il n'y a pas de litige".
Que la case Litige soit cochée ou pas, j’ai toujours le message "Il n'y a pas de litige".
Je ne sais pas si la méthode est bonne mais si vous pouviez m’aider à faire fonctionner ce script correctement, ce serait sympa.

Merci d’avance pour votre aide !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Sql As String
Dim Lit As dao.Recordset
Sql = "SELECT Commandes.Litige FROM Commandes WHERE Commandes.Litige=True AND Commandes.NumClient=" & Me![NumClient]
Set Lit = CurrentDb.OpenRecordset(Sql)
If Lit.RecordCount = True Then
MsgBox "Il y a un nouveau litige"
Else
MsgBox "Il n'y a pas de litige"
End If

[francishop]

Bonsoir;

Au lieu de :

Code :

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

WHERE Commandes.Litige=True

Code :

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

WHERE ((Commandes.Litige)=-1)

Cordialement.

[Mahefasoa]

Bonsoir,
Pour faire simple, tu peux utiliser une fonction de regroupement de domaine.

Code :

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

1
2
3
4
5
6
7
8
 
Dim NbLitige As Long
NbLitige = Nz(DCount("[Litige]", "Commandes", "[Litige]=-1 AND [NumClient]=" & Me.NumClient),0)
If NbLitige <> 0 Then
  MsgBox "Il y a un nouveau litige"
Else
  MsgBox "Il n'y a pas de litige"
End If

Sinon, pour ton code, saches que la propriété RecordCount est de type numérique, donc elle peut prendre comme valeur zéro ou autre. Si enregistrement existe, la valeur est différente de zéro, dans le cas contraire, la valeur de la propriété est zéro.
Ainsi,

Code :

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

1
2
3
4
 
...
If Lit.RecordCount <> 0 Then
...

Bon courage et @+