Discussion :

[Levon]

Bonjour tm
J’ai un problème avec 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
14
15
16
17
18
19
20
Public Sub verif_livr()
Dim sql As String
Dim SQLWhere As String
Dim RS As DAO.Recordset
 
sql = "SELECT Client, Sociéte, Commande_solde, Commande_annulee FROM Commandes WHERE Commandes!Client like'*" & Me.Numero_client.Value & "*' AND Commandes!Sociéte like'*" & Me.Founisseur.Value & "*' And Commandes!Commande_annulee = 0 And Commandes!Commande_solde =0 "
 
Set RS = CurrentDb.OpenRecordset(sql)
 
If RS.NoMatch = True Then
 
MsgBox "Pas de donnes"
 
Else
 
MsgBox "c'est bon"
 
End If
 
End Sub

Vous pouvez m’expliquer si le code

Code :

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

If RS.NoMatch = True Then

Est correct

Merci !!!

[midasios]

Bonjour,

NoMatch indique si un enregistrement donné a été trouvé par la méthode Seek ou Find.
combiner NoMatch avec Sql nécessite une attention particulière à ta requête,

j'ai enlevé la clause WHERE et ça a marché chez moi.

[Levon]

quelle partie ta supprimé ???

[marot_r]

Voici un exemple d'usage de NoMatch.

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
Public Sub verif_livr()
Dim sql As String
Dim SQLWhere As String
Dim RS As DAO.Recordset
 
sql = "SELECT Client, Sociéte, Commande_solde, Commande_annulee FROM Commandes;"
 
Set RS = CurrentDb.OpenRecordset(sql)
 
rs.findFisrt("Commandes!Client like'*" & Me.Numero_client.Value & "*' AND Commandes!Sociéte like'*" & Me.Founisseur.Value & "*' And Commandes!Commande_annulee = 0 And Commandes!Commande_solde =0 ")
 
if rs.nomatch then
     'Faire ce qu'il faut quand non trouvé
   else
     'Faire ce qu'il faut quand trouvé
end if
 
rs.close:set rs=nothing :'Netoyage de la mémoire aprés ton passage.

si tu tiens à garder ton SQL tu pourrais faire ainsi.

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
Public Sub verif_livr()
Dim sql As String
Dim SQLWhere As String
Dim RS As DAO.Recordset
 
sql = "SELECT Client, Sociéte, Commande_solde, Commande_annulee FROM Commandes WHERE Commandes!Client like'*" & Me.Numero_client.Value & "*' AND Commandes!Sociéte like'*" & Me.Founisseur.Value & "*' And Commandes!Commande_annulee = 0 And Commandes!Commande_solde =0 "
 
Set RS = CurrentDb.OpenRecordset(sql)
if rs.recordcount=0 then
     'Faire ce qu'il faut quand non trouvé
   else
     'Faire ce qu'il faut quand trouvé
end if
 
rs.close:set rs=nothing :'Netoyage de la mémoire aprés ton passage.

Sincèrement je ne suis pas un chaud partisant du SQL dans le code car il ne suis pas l'évolution de ta base, il n'est pas aussi visible qu'une requète et nécessite plus de travail lors des tests mais cela va marcher.

A+

[Levon]

Merci b!!!!!!

bravo