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
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 >> > >
Quelle erreur?
Peux-tu nous montrer le code que tu utilises et indiquer où se produit
l'erreur?
--
Cordialement,
Gilbert
"Dr Jekyll" <epicurien7414@laposte.net> a écrit dans le message de
news:0087c9f1$0$12220$c3e8da3@news.astraweb.com...
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@news.fr> a écrit dans le message de
news:urWnR1QeKHA.5568@TK2MSFTNGP02.phx.gbl...
> 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" <epicurien7414@laposte.net> a écrit dans le message de
> news:0168283a$0$26612$c3e8da3@news.astraweb.com...
>> 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
>>
>
>
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 >> > >
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 >> > >
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@news.fr> a écrit dans le message de
news:%23SDVMWZeKHA.1648@TK2MSFTNGP05.phx.gbl...
Quelle erreur?
Peux-tu nous montrer le code que tu utilises et indiquer où se produit
l'erreur?
--
Cordialement,
Gilbert
"Dr Jekyll" <epicurien7414@laposte.net> a écrit dans le message de
news:0087c9f1$0$12220$c3e8da3@news.astraweb.com...
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@news.fr> a écrit dans le message de
news:urWnR1QeKHA.5568@TK2MSFTNGP02.phx.gbl...
> 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" <epicurien7414@laposte.net> a écrit dans le message de
> news:0168283a$0$26612$c3e8da3@news.astraweb.com...
>> 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
>>
>
>
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 >> > >
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:
"Dr Jekyll" <epicurien7414@laposte.net> a écrit dans le message de
news:01656425$0$12639$c3e8da3@news.astraweb.com...
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@news.fr> a écrit dans le message de
news:%23SDVMWZeKHA.1648@TK2MSFTNGP05.phx.gbl...
> Quelle erreur?
> Peux-tu nous montrer le code que tu utilises et indiquer où se produit
> l'erreur?
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Dr Jekyll" <epicurien7414@laposte.net> a écrit dans le message de
> news:0087c9f1$0$12220$c3e8da3@news.astraweb.com...
>> 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@news.fr> a écrit dans le message de
>> news:urWnR1QeKHA.5568@TK2MSFTNGP02.phx.gbl...
>> > 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" <epicurien7414@laposte.net> a écrit dans le message de
>> > news:0168283a$0$26612$c3e8da3@news.astraweb.com...
>> >> Bonjour.
>> >>
>> >> Je fais des recherches qui peuvent trouver plusieurs
enregistrements.
>> >>
>> >> Avant de les faire défiler, comment puis-je afficher le message:
"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:
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
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
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