Compter

Le
Dr Jekyll
Bonjour.

Je fais des recherches qui peuvent trouver plusieurs enregistrements.

Avant de les faire défiler, comment puis-je afficher le message: Vous avez
trouvé (nombre) d'enregistrements).?

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #20732221
Bojour

Tu ouvre un recordset basé sur ta requête avec quelque chose comme

dim rst as dao.recordset
Set rst = MaDb.OpenRecordset(TaRequete)

Ensuite tu teste ce recordset
If Not rst.EOF then
Msgbox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
end if

Sans oublier à la fin
Set rst = Nothing

--
Cordialement,

Gilbert


"Dr Jekyll" news:0168283a$0$26612$
Bonjour.

Je fais des recherches qui peuvent trouver plusieurs enregistrements.

Avant de les faire défiler, comment puis-je afficher le message: Vous avez
trouvé (nombre) d'enregistrements).?

Merci



Dr Jekyll
Le #20736281
Bonjour.

Je suis désolé, sauf erreur de ma part, Il me fait une erreur.
Merci de toute façon de l'aide

"Gilbert" news:
Bojour

Tu ouvre un recordset basé sur ta requête avec quelque chose comme

dim rst as dao.recordset
Set rst = MaDb.OpenRecordset(TaRequete)

Ensuite tu teste ce recordset
If Not rst.EOF then
Msgbox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
end if

Sans oublier à la fin
Set rst = Nothing

--
Cordialement,

Gilbert


"Dr Jekyll" news:0168283a$0$26612$
Bonjour.

Je fais des recherches qui peuvent trouver plusieurs enregistrements.

Avant de les faire défiler, comment puis-je afficher le message: Vous
avez
trouvé (nombre) d'enregistrements).?

Merci







Gilbert
Le #20736801
Quelle erreur?
Peux-tu nous montrer le code que tu utilises et indiquer où se produit
l'erreur?

--
Cordialement,

Gilbert


"Dr Jekyll" news:0087c9f1$0$12220$
Bonjour.

Je suis désolé, sauf erreur de ma part, Il me fait une erreur.
Merci de toute façon de l'aide

"Gilbert" news:
> Bojour
>
> Tu ouvre un recordset basé sur ta requête avec quelque chose comme
>
> dim rst as dao.recordset
> Set rst = MaDb.OpenRecordset(TaRequete)
>
> Ensuite tu teste ce recordset
> If Not rst.EOF then
> Msgbox "Vous avez trouvé " & rst.RecordCount & "


enregistrements."
> end if
>
> Sans oublier à la fin
> Set rst = Nothing
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Dr Jekyll" > news:0168283a$0$26612$
>> Bonjour.
>>
>> Je fais des recherches qui peuvent trouver plusieurs enregistrements.
>>
>> Avant de les faire défiler, comment puis-je afficher le message: Vous
>> avez
>> trouvé (nombre) d'enregistrements).?
>>
>> Merci
>>
>
>



Dr Jekyll
Le #20736891
Voilà mes lignes

DoCmd.OpenForm "fen_archives", , "req_RechercheClientArchive"
Dim rst As DAO.Recordset
Set rst = MaDb.OpenRecordset(req_RechercheClientArchive)


If Not rst.EOF Then
MsgBox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
End If


Set rst = Nothing
Il me plante sur la ligne :Set rst MaDb.OpenRecordset(req_RechercheClientArchive)
J'ai essayé entre guillemets sans parenthèse etc..
Merci
"Gilbert" news:%
Quelle erreur?
Peux-tu nous montrer le code que tu utilises et indiquer où se produit
l'erreur?

--
Cordialement,

Gilbert


"Dr Jekyll" news:0087c9f1$0$12220$
Bonjour.

Je suis désolé, sauf erreur de ma part, Il me fait une erreur.
Merci de toute façon de l'aide

"Gilbert" news:
> Bojour
>
> Tu ouvre un recordset basé sur ta requête avec quelque chose comme
>
> dim rst as dao.recordset
> Set rst = MaDb.OpenRecordset(TaRequete)
>
> Ensuite tu teste ce recordset
> If Not rst.EOF then
> Msgbox "Vous avez trouvé " & rst.RecordCount & "


enregistrements."
> end if
>
> Sans oublier à la fin
> Set rst = Nothing
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Dr Jekyll" > news:0168283a$0$26612$
>> Bonjour.
>>
>> Je fais des recherches qui peuvent trouver plusieurs enregistrements.
>>
>> Avant de les faire défiler, comment puis-je afficher le message: Vous
>> avez
>> trouvé (nombre) d'enregistrements).?
>>
>> Merci
>>
>
>







Gilbert
Le #20740371
Et quel est le message d'erreur?

--
Cordialement,

Gilbert


"Dr Jekyll" news:01656425$0$12639$
Voilà mes lignes

DoCmd.OpenForm "fen_archives", , "req_RechercheClientArchive"
Dim rst As DAO.Recordset
Set rst = MaDb.OpenRecordset(req_RechercheClientArchive)


If Not rst.EOF Then
MsgBox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
End If


Set rst = Nothing
Il me plante sur la ligne :Set rst > MaDb.OpenRecordset(req_RechercheClientArchive)
J'ai essayé entre guillemets sans parenthèse etc..
Merci
"Gilbert" news:%
> Quelle erreur?
> Peux-tu nous montrer le code que tu utilises et indiquer où se produit
> l'erreur?
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Dr Jekyll" > news:0087c9f1$0$12220$
>> Bonjour.
>>
>> Je suis désolé, sauf erreur de ma part, Il me fait une erreur.
>> Merci de toute façon de l'aide
>>
>> "Gilbert" >> news:
>> > Bojour
>> >
>> > Tu ouvre un recordset basé sur ta requête avec quelque chose comme
>> >
>> > dim rst as dao.recordset
>> > Set rst = MaDb.OpenRecordset(TaRequete)
>> >
>> > Ensuite tu teste ce recordset
>> > If Not rst.EOF then
>> > Msgbox "Vous avez trouvé " & rst.RecordCount & "
> enregistrements."
>> > end if
>> >
>> > Sans oublier à la fin
>> > Set rst = Nothing
>> >
>> > --
>> > Cordialement,
>> >
>> > Gilbert
>> >
>> >
>> > "Dr Jekyll" >> > news:0168283a$0$26612$
>> >> Bonjour.
>> >>
>> >> Je fais des recherches qui peuvent trouver plusieurs


enregistrements.
>> >>
>> >> Avant de les faire défiler, comment puis-je afficher le message:


Vous
>> >> avez
>> >> trouvé (nombre) d'enregistrements).?
>> >>
>> >> Merci
>> >>
>> >
>> >
>>
>
>



db
Le #20740491
Dr Jekyll a écrit :
Voilà mes lignes

DoCmd.OpenForm "fen_archives", , "req_RechercheClientArchive"
Dim rst As DAO.Recordset
Set rst = MaDb.OpenRecordset(req_RechercheClientArchive)


If Not rst.EOF Then
MsgBox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
End If


Set rst = Nothing
Il me plante sur la ligne :Set rst > MaDb.OpenRecordset(req_RechercheClientArchive)
J'ai essayé entre guillemets sans parenthèse etc..




Essayez :

Dim rst As DAO.Recordset, MaDb as Database

Set MaDb = CurrentDb
Set rst = MaDb.OpenRecordset("req_RechercheClientArchive")

If Not rst.EOF Then
rst.MoveLast
MsgBox "Vous avez trouvé " & rst.RecordCount & " enregistrements."
End If


Set rst = Nothing
Set MaDb = Nothing


db
Publicité
Poster une réponse
Anonyme