Problem avec RS.NoMatch

Version imprimable

Bonjour tm
J’ai un problème avec le code suivant :

Code:

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:

If RS.NoMatch = True Then

Est correct

Merci !!!

12/02/2008, 12h52
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.
12/02/2008, 14h32
Levon

quelle partie ta supprimé ???

Voici un exemple d'usage de NoMatch.

Code:

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:

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+

12/02/2008, 14h48
Levon

Merci b!!!!!!

bravo
:yaisse2: