Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Compter

Compter

6 réponses
Avatar
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
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
Gilbert
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" a écrit dans le message de
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



Avatar
Dr Jekyll
Bonjour.

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

"Gilbert" a écrit dans le message de
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" a écrit dans le message de
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







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

--
Cordialement,

Gilbert


"Dr Jekyll" a écrit dans le message de
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" a écrit dans le message de
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" a écrit dans le message de
> 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
>>
>
>



Avatar
Dr Jekyll
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" a écrit dans le message de
news:%
Quelle erreur?
Peux-tu nous montrer le code que tu utilises et indiquer où se produit
l'erreur?

--
Cordialement,

Gilbert


"Dr Jekyll" a écrit dans le message de
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" a écrit dans le message de
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" a écrit dans le message de
> 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
>>
>
>







Avatar
Gilbert
Et quel est le message d'erreur?

--
Cordialement,

Gilbert


"Dr Jekyll" a écrit dans le message de
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" a écrit dans le message de
news:%
> Quelle erreur?
> Peux-tu nous montrer le code que tu utilises et indiquer où se produit
> l'erreur?
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Dr Jekyll" a écrit dans le message de
> 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" a écrit dans le message de
>> 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" a écrit dans le message de
>> > 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
>> >>
>> >
>> >
>>
>
>



Avatar
db
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