pas de resultat de requete

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pas de resultat de requete

ma_mat

je voudrais savoir comment fait ton pour voir si une requete ne contient pas de resultat. je voudrais tester ce resultat et ainsi en fonction de cela afficher ou non un rapport.

Code :

Set rp = Application.Reports(etat)
rp.RecordSource = requete
If rp."je ne sais pas quoi mettre ici" <> "" Then '<----probleme
pour tester ici!!!
Application.DoCmd.OpenReport etat, acViewPreview
Else
Reports(etat).Visible = False
MsgBox "il n'y a pas de rapport correspondant a votre requete !"
End If

Publicité

cakeman

Tu fais rp.recordcount : cette propriété (recordcount) compte le nombre d'enregistrement auxquels tu as eu accès avec ton curseur.
Si ta requête ne renvoie pas de résultat alors rp.recordcount=0 sinon il est au moins égal à 1.

ma_mat

ca ne marche pas il me met erreur defini par l'application ou par l'objet. Je ne pense pas que ca marche car rp est un rapport. ???

cakeman

He bien dans ce cas, définis un recordset et analyse ta requête avant de l'assigner à ton état:

set rs= ??? . CreateQueryDef("", requete).OpenRecordset

if rs.recordcount=0 then
msgbox ....
else
rp.RecordSource = requete
Application.DoCmd.OpenReport etat, acViewPreview
end if

Message édité par cakeman le 02-06-2004 à 17:01:27

pumpkin0312

il faut faire le recordcount sur la requête source du rapport.
If CurrentDb.OpenRecordset("NomTable" ).RecordCount > 0 Then

Myway

Bonjour,

J'ai le même type de problème que ma_mat. J'ai essayé ce que vous proposez (avec le recordCount), mais je n'y arrive pas.
J'ai écrit le code suivant:

Code :

for year=2004 to 2005
rst.Open "SELECT nb_jours WHERE year = " & year, cnx
if rst.recordcount = 0 then
msgbox("pas de résultat" )
else
msgbox("res : " & rst("nb_jours" ) )
end if
next year

...sachant que pour 2005 il n'y a pas d'enregistrement
Le 1er msgbox ne s'affiche pourtant pas, et j'ai une "erreur 1004: BOF ou EOF est égal à true ou l'enregistrement actuel a été supprimé..." pour le rst("nb_jours" )

:??:

Merci pour votre aide :hello:

Message édité par Myway le 10-06-2004 à 09:53:54

JihemAir

Je sais pas

Le recordset est vide. BOF est égal à EOF. Il faut tester:
If Not rs.EOF And Not rs.BOF Then
Je fais ce que j'ai à faire
Else
Je sors
End If

Myway

Il semblerait en fait que le rst.RecordCount renvoit -1 quand il n'y a pas de résultat. en tout cas, chez moi, avec

Code :

if rst.RecordCount <=0 then msgbox("pas de res" )

ça marche

Myway

JihemAir a écrit :

Le recordset est vide. BOF est égal à EOF. Il faut tester:
If Not rs.EOF And Not rs.BOF Then
Je fais ce que j'ai à faire
Else
Je sors
End If

Je retiens cette autre solution, merci :jap:

:hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

pas de resultat de requete

Sujets relatifs
[Access] Une requete qui fournit trop de resultat	[MYSQL] prob bizarre ma requete ne me renvoi que le premier résultat
mise en forme résultat d'une requete SQL	Requte SQL sur un resultat de requete
Faire un lien sur le résultat d'une requête	enregistrer la résultat d'une requête dans une textbox
[mySQL] transféré les résultat d'une requete dans une table	requête qui donne le résultat de deux select ?
Faire apparaitre le résultat d'une requête dans une TextBox	Créer une table avec le résultat d'une requête sous VB Access
Plus de sujets relatifs à : pas de resultat de requete

Page générée en 0.030 secondes