Discussion :

[brak__]

Bonjour,
J'ai un petit problème concernant une requete : j'ai une requete SELECT, et je ne sais pas comment faire pour compter le nombre de résultats, si des resultat existe ===> MsgBox, si résultat inexistant ===> MsgBox. Je pense qu'il faut utiliser un Count() mais je ne sais pas comment. Si vous avez des pistes...developpez.com est mort...
Merci

[Lou Pitchoun]

Salut

developpez.com est mort

peut être mais pas la recherche sur le forum.

http://www.developpez.net/forums/sho...ment+requ%EAte

Merci.

[brak__]

Merci, cela marche dans le cas d'enregistrement existant, mais comment procéder pour retourner un message lorsqu'il n'y a pas d'enregistrement pour le recordcount ???

[Lou Pitchoun]

Il suffit de tester

Code :

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

1
2
3
4
5
If rst.recordcount > 0 then
    ....
    Else
         Msgbox "Pas d'enregistrements"
End if

[brak__]

Encore un petit problème, cela marche lorsqu'il n'y a aucun enregistrements quand je met ce code :

Code :

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

1
2
3
4
5
6
Set rst6 = CurrentDb.OpenRecordset("SELECT NouveauALLgdo.gdo AS Expr3, AncienALLgdo.permut_typ AS Expr4, NouveauALLgdo.permut_typ AS Expr5 FROM NouveauALLgdo, AncienALLgdo WHERE NouveauALLgdo.gdo=AncienALLgdo.gdo And NouveauALLgdo.permut_typ<>AncienALLgdo.permut_typ;")
    titre1 = rst6RecordCount
   If titre1 > 0 Then
      Else
         MsgBox "Pas d'enregistrements"
   End If

Mais lorsque je rajoute

Code :

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

 If titre1 > 0 Then MsgBox "Enregistrements détécté"

: un message quand il y en a plusieurs et qu'il doit en detecter plusieurs, et bah il me met le message lorsque titre1 = 0

[Lou Pitchoun]

Code :

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

rst6RecordCount

Code :

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

rst.RecordCount

[brak__]

oui, mais dès que je met un message box apres

Code :

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

If titre1 > 0 Then

il me dit "Erreur de compilation, Else sans If"
Alors que j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
Set rst6 = CurrentDb.OpenRecordset("SELECT NouveauALLgdo.gdo AS Expr3, AncienALLgdo.permut_typ AS Expr4, NouveauALLgdo.permut_typ AS Expr5 FROM NouveauALLgdo, AncienALLgdo WHERE NouveauALLgdo.gdo=AncienALLgdo.gdo And NouveauALLgdo.permut_typ<>AncienALLgdo.permut_typ;")
    'rst6.MoveLast
    titre1 = rst6.RecordCount
   If titre1 > 0 Then MsgBox "Enregistrements trouvés"
    Else
        MsgBox "Pas d'enregistrements"
   End If

???
I don't understand

[tazmania]

C'est normal, il ne faut pas mettre ton message sur la même ligne que ton if

Code :

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

1
2
3
4
5
If titre1 > 0 Then 
   MsgBox "Enregistrements trouvés"
Else
   MsgBox "Pas d'enregistrements"
End If

[brak__]

oui merci, ça marche maintenant