Parcourir les formulaire et les etats d'une base...
2 réponses
Ryo
Je voudrais parcourir les formulaires et les états d'une base, pour ce
faire j'ai essayé ca:
For Each Document In CurrentDb.Containers!Forms.Documents
MsgBox Document.Name
Next Document
Mais j'ai une erreur "L'objet est incorrect ou n'est plus définit.
Donc ce n'est pas comme ca qu'il faut faire. Mais comment alors ?
Merci d'avance.
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
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
Jessy Sempere [MVP]
Bonjour
Essais en définissant tes variables objets, genre :
Dim db As Database Dim cnt As Container Dim doc As Document
Set db = CurrentDb
'Pour les formulaires Set cnt = db.Containers("Forms") For Each doc In cnt.Documents MsgBox doc.name Next
'Pour les états Set cnt = db.Containers("Reports") For Each doc In cnt.Documents MsgBox doc.Name Next
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Ryo" a écrit dans le message news:
Je voudrais parcourir les formulaires et les états d'une base, pour ce faire j'ai essayé ca: For Each Document In CurrentDb.Containers!Forms.Documents MsgBox Document.Name Next Document Mais j'ai une erreur "L'objet est incorrect ou n'est plus définit. Donc ce n'est pas comme ca qu'il faut faire. Mais comment alors ? Merci d'avance.
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Bonjour
Essais en définissant tes variables objets, genre :
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb
'Pour les formulaires
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
MsgBox doc.name
Next
'Pour les états
Set cnt = db.Containers("Reports")
For Each doc In cnt.Documents
MsgBox doc.Name
Next
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ryo" <no-mail@no-provider.com> a écrit dans le message news:
mesnews.42437d44.2b9b599c.6.0@noprovider.com...
Je voudrais parcourir les formulaires et les états d'une base, pour ce
faire j'ai essayé ca:
For Each Document In CurrentDb.Containers!Forms.Documents
MsgBox Document.Name
Next Document
Mais j'ai une erreur "L'objet est incorrect ou n'est plus définit.
Donc ce n'est pas comme ca qu'il faut faire. Mais comment alors ?
Merci d'avance.
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Essais en définissant tes variables objets, genre :
Dim db As Database Dim cnt As Container Dim doc As Document
Set db = CurrentDb
'Pour les formulaires Set cnt = db.Containers("Forms") For Each doc In cnt.Documents MsgBox doc.name Next
'Pour les états Set cnt = db.Containers("Reports") For Each doc In cnt.Documents MsgBox doc.Name Next
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Ryo" a écrit dans le message news:
Je voudrais parcourir les formulaires et les états d'une base, pour ce faire j'ai essayé ca: For Each Document In CurrentDb.Containers!Forms.Documents MsgBox Document.Name Next Document Mais j'ai une erreur "L'objet est incorrect ou n'est plus définit. Donc ce n'est pas comme ca qu'il faut faire. Mais comment alors ? Merci d'avance.
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Ryo
Jessy toujours de bon conseil, ça marche ! Juste ca ca suffit en fait: Dim DB As Database Set DB = CurrentDb
For Each Document In DB.Containers("Forms").Documents MsgBox Document.Name Next Document Mais c'est bizarre d'être obliger de definir les variables objets... Enfin merci beaucoup.
Jessy Sempere [MVP] vient de nous annoncer :
Dim db As Database Dim cnt As Container Dim doc As Document
Set db = CurrentDb
'Pour les formulaires Set cnt = db.Containers("Forms") For Each doc In cnt.Documents MsgBox doc.name Next
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Jessy toujours de bon conseil, ça marche !
Juste ca ca suffit en fait:
Dim DB As Database
Set DB = CurrentDb
For Each Document In DB.Containers("Forms").Documents
MsgBox Document.Name
Next Document
Mais c'est bizarre d'être obliger de definir les variables objets...
Enfin merci beaucoup.
Jessy Sempere [MVP] vient de nous annoncer :
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb
'Pour les formulaires
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
MsgBox doc.name
Next
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Jessy toujours de bon conseil, ça marche ! Juste ca ca suffit en fait: Dim DB As Database Set DB = CurrentDb
For Each Document In DB.Containers("Forms").Documents MsgBox Document.Name Next Document Mais c'est bizarre d'être obliger de definir les variables objets... Enfin merci beaucoup.
Jessy Sempere [MVP] vient de nous annoncer :
Dim db As Database Dim cnt As Container Dim doc As Document
Set db = CurrentDb
'Pour les formulaires Set cnt = db.Containers("Forms") For Each doc In cnt.Documents MsgBox doc.name Next
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
