Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Propriété sur l'existence ou non d'enregistrement dans une requête

Propriété sur l'existence ou non d'enregistrement dans une requête

6 réponses
Avatar
JMarc
Bonjour,

Oui, je sais le titre est un peu... tordu.

En fait, j'ai fait une requête et je souhaite faire apparaitre un texte sur
un formulaire s'il y a un ou plusieurs enregistrement dans ma requête, en
utilisant la propriété .Visible de mon texte, mais sur quoi dois-je baser ma
condition If ???

Merci de votre aide par avance.

JMarc
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

Utilise DCount.

If DCount("*", "marequête") > 0 then

ou

Nombre = DCount("*", "marequête")
if Nombre ........
ce qui te permet d'avoir le nombre d'enregistrements à disposition.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMarc" a écrit dans le message de
news:41383ce0$0$1191$
Bonjour,

Oui, je sais le titre est un peu... tordu.

En fait, j'ai fait une requête et je souhaite faire apparaitre un texte
sur

un formulaire s'il y a un ou plusieurs enregistrement dans ma requête, en
utilisant la propriété .Visible de mon texte, mais sur quoi dois-je baser
ma

condition If ???

Merci de votre aide par avance.

JMarc




Avatar
JMarc
Merci Raymond, décidément, ce DCount me rend bien service.
Mais j'ai l'impression de rater quelque chose...
Voici mon code, le résultat de la msgbox me donne 1 et alors que je devrais
avoir l'affichage de "Planifications à envoyer", je n'ai pas cela Access
m'affiche "Rien à envoyer".
Une autre chose à vous soumettre, quand je mets un End If à la fin, Access
me mets une erreur indiquant End If sans condition IF... je ne comprends pas
pourquoi...

AlertePlanifNB = DCount("*", "QryAlertePlanif")
MsgBox (AlertePlanifNB)

If AlertePlanifNB > 0 Then AlertePlanif = "Planifications à envoyer" Else
AlertePlanif = "Rien à envoyer"




"Raymond [mvp]" a écrit dans le message de
news:%23hNr%
Bonjour.

Utilise DCount.

If DCount("*", "marequête") > 0 then

ou

Nombre = DCount("*", "marequête")
if Nombre ........
ce qui te permet d'avoir le nombre d'enregistrements à disposition.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum



Avatar
Raymond [mvp]
fais comme ceci:

Dim AlertePlanifNB As Long
AlertePlanifNB = DCount("*", "QryAlertePlanif")
MsgBox (AlertePlanifNB)
If AlertePlanifNB > 0 Then
AlertePlanif = "Planifications à envoyer"
Else
AlertePlanif = "Rien à envoyer"
End If


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMarc" a écrit dans le message de
news:41385dc3$0$1191$
Merci Raymond, décidément, ce DCount me rend bien service.
Mais j'ai l'impression de rater quelque chose...
Voici mon code, le résultat de la msgbox me donne 1 et alors que je
devrais

avoir l'affichage de "Planifications à envoyer", je n'ai pas cela Access
m'affiche "Rien à envoyer".
Une autre chose à vous soumettre, quand je mets un End If à la fin, Access
me mets une erreur indiquant End If sans condition IF... je ne comprends
pas

pourquoi...

AlertePlanifNB = DCount("*", "QryAlertePlanif")
MsgBox (AlertePlanifNB)

If AlertePlanifNB > 0 Then AlertePlanif = "Planifications à envoyer" Else
AlertePlanif = "Rien à envoyer"


Avatar
JMarc
Oui, ça fonctionne comme cela, merci Raymond.
Mais pour que je comprenne pourquoi, que ce passait-il avec mon code,
l'ordre était pourtant le même...



"Raymond [mvp]" a écrit dans le message de
news:esV$
fais comme ceci:

Dim AlertePlanifNB As Long
AlertePlanifNB = DCount("*", "QryAlertePlanif")
MsgBox (AlertePlanifNB)
If AlertePlanifNB > 0 Then
AlertePlanif = "Planifications à envoyer"
Else
AlertePlanif = "Rien à envoyer"
End If


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMarc" a écrit dans le message de
news:41385dc3$0$1191$
Merci Raymond, décidément, ce DCount me rend bien service.
Mais j'ai l'impression de rater quelque chose...
Voici mon code, le résultat de la msgbox me donne 1 et alors que je
devrais

avoir l'affichage de "Planifications à envoyer", je n'ai pas cela Access
m'affiche "Rien à envoyer".
Une autre chose à vous soumettre, quand je mets un End If à la fin,
Access


me mets une erreur indiquant End If sans condition IF... je ne comprends
pas

pourquoi...

AlertePlanifNB = DCount("*", "QryAlertePlanif")
MsgBox (AlertePlanifNB)

If AlertePlanifNB > 0 Then AlertePlanif = "Planifications à envoyer"
Else


AlertePlanif = "Rien à envoyer"







Avatar
Raymond [mvp]
regarde l'aide sur le if , les conditions ne sont pas placées au bon
endroit.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMarc" a écrit dans le message de
news:41386264$0$1180$
Oui, ça fonctionne comme cela, merci Raymond.
Mais pour que je comprenne pourquoi, que ce passait-il avec mon code,
l'ordre était pourtant le même...


Avatar
JMarc
OK, merci beaucoup et bon WE !
JMarc


"Raymond [mvp]" a écrit dans le message de
news:enTE%
regarde l'aide sur le if , les conditions ne sont pas placées au bon
endroit.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum