Discussion :

[PAUL87]

Bonjour,
Je sais que question a déja été posée mais je n'ai pas trouvé de réponses...
comment faire pour avoir une fenetre qui s'affiche avant avant l'ouverture d'un formulaire et qui donne le résultat chiffré d'une requête paramétrée.
ex: La requête paramétrée: "Entrez le nom recherché: "
Fenetre d'affichage : " il y a "x" enregistrements correspondant à
votre demande "
....Puis affichage du form..si résult >0

Merci

[Invité]

Salut,

Utilise une msgbox

Code :

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

1
2
3
4
5
 
If leNombreD'enregistrements> 0 then
     msgbox "Il y'a " & lenombred'enregistrement & " corresponda...",vbokonly
     docmd.openform "Leformulaire"
end if

De ce goùut là

Starec

[PAUL87]

Merci
mais comment trouver le nombre d'enregistrements correspondant à ma requête?
dois-je rajouter un compteur?...sur la requête elle même?

[Invité]

Re

Va voir du côté des fonctions de domaine DCount notamment elle pourra te donner le nombre d'enregistrements

Starec

[PAUL87]

ok pour DCount,
mais où dois-je inserer la formule?
parce-que du résultat dépendra l'affichage de ma mgsbox (avant ou pendant l'ouverture du form.
Merci

[Invité]

Salut,

Avant pour tester le IF

Starec

[PAUL87]

???

[Petogaz]

???

Code :

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

1
2
3
4
5
6
7
8
dim nbenreg as integer
 
nbenreg = Dcount("tonchamp","nom_de_ta_requête","critère_eventuel")
 
If nbenreg> 0 then 
     msgbox "Il y'a " & lenombred'enregistrement & " corresponda...",vbokonly 
     docmd.openform "Leformulaire" 
end if

[PAUL87]

Suis vraiment nul
je n'y arrive pas:

J'ai placé le code suivant dans mon "open form":

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
Dim nbenreg As Integer
 
nbenreg = DCount("NOM", "FORM REQ NOM")
 
If nbenreg > 0 Then
     MsgBox "Il y'a " & lenombred 'enregistrement & " corresponda...",vbokonly
     DoCmd.OpenForm "Leformulaire"
End If
End Sub

et j'ai droit a un :"erreur de comilation: variable non définie"
WHY?

[Lou Pitchoun]

Et si tu remplaces lenombred'enregistrement par nbenreg...
Ca fonctionnerait pas mieux

[PAUL87]

Merci,
Mais c'est vraiment trés etrange,....

J'ai bien remplacé par "nbenreg" ce que tu m'a dis ...cela ne fonctionne toujours pas ... (erreur 64479 ou 64231)

par contre, lorsque dans

Code :

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

nbenreg = DCount("NOM", "FORM REQ NOM")

je remplace le nom de la requete par le nom d'une table (ex:ma table principale qui a un champ NOM).cela fonctionne tres bien
POURQUOI?

[Lou Pitchoun]

Dcount(Nomd'unChampPrésentDanslaRequete,NomRequete)

En général j'utilise la clé primaire ex :

Code :

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

Dcount ([N°Contrat],"Liste des contrats en cours")

[PAUL87]

J'en suis là du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
Dim nbenreg As Integer
 
nbenreg = DCount([NOM], "PATIENTS Requête")
 
If nbenreg > 0 Then
     MsgBox "Il y'a " & nbenreg & " corresponda...", vbOKOnly
     DoCmd.OpenForm "FORM REQ NOM"
End If
End Sub

et j'ai vraiment l'impression que ça coince uniquement à la fin du code:
nbenreg = DCount([NOM], "xxxxxxxxxx")
ça marche si je mets le nom d'une table et pas celle de la requête conçernée.....j'ai essayé en changeant le champ par la clef primaire...meme resultat:
erreur d'exécution 64479: "l'expression entrée comme paramètre de requête est à l'origine de l'erreur suivante:" l'objet ne contient pas d'objet d'automatisation "ENTREZ LE NOM RECHERCHE"
Pour moi c'est encore plus incompréhensible que de l'hébreu..
Merci encore pour votre aide

[cafeine]

Merci de ne pas faire de UP ...

sinon c'est la confusion classique entre chaine et variable ...

tu as mis

Code :

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

nbenreg = DCount([NOM], "PATIENTS Requête")

au lieu de ...

Code :

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

nbenreg = DCount("[NOM]", "PATIENTS Requête")

[PAUL87]

malheureusement ça ne marche toujours pas!!!
Meme syptomes...et meme code d'erreur
problème de domaine ....

[cafeine]

Est-ce que ta requête fonctionne bien en dehors du code VBA ?
Est-ce bien une requête sélection ?

[User]

il me semble que si c'est une requête paramétrée, le:

Code :

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

nbenreg = DCount("NOM", "FORM REQ NOM")

ne risque pas de marcher
( hormis si on mets 1 critère: nbenreg = DCount("NOM", "FORM REQ NOM",critère))

il faut bien lui passer le paramètre du style

Code :

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

1
2
3
4
set rq=currentdb.Querydefs("Ta requête")
rp.Parameters("TON_PARAM") = TaVariable
 
rp.OpenRedordSet()

et ballayer le recordSet ?

@+

[DMboup]

Est ce que ta requete retourne le champ NOM sur lequel porte le DCount?

[Tofalu]

Et en utilisant DAO, ça serait pas plus simple et plus performant ?

Enfin, je me place à la place de l'utilisateur.

Que va m'apporter une fenêtre avec le nombre d'enregistrements à laquelle je vais devoir répondre systématiquement OK ? Le nombre d'enregistrements, je préfererais le voir par exemple dans une étiquette en haut du formulaire, ou bien dans le pied de formulaire, voire même dans le titre de la fenêtre.

[PAUL87]

Bonjour,
C'est effectivement une requête paramétrée... de selection.
Meme en rajoutant un critère (un autre champ de la table PATIENTS <>0 par ex) ça ne marche toujours pas........
C'est vraiment compliqué pour moi...
la requête paramétrée "rechercher par le nom" fonctionne parfaitement bien, le formulaire qui lui est dédié lui aussi fonctionne trés bien (avec tous ses champs sélectionnés)...
Je ne comprends vraiment pas pourquoi je ne peux pas faire ouvrir une Msgbox avec le résultat de la requête....
De plus c'est une requête fondamentale pour ma base....
J'ai vraiment besoin de vos lumières....SVP
Voici l'état actuel de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
Dim nbenreg As Integer
 
nbenreg = DCount("[NOM]", "PATIENTS Requête", " [NomEtude] <>'0'")
 
If nbenreg > 0 Then
     MsgBox "Il y'a " & nbenreg & " reponse(s) correspondante(s)...", vbOKOnly
     DoCmd.OpenForm "FORM REQ NOM"
End If
End Sub

Merci