Problème avec formulaire "chargé'

Le
Nesta
Bonjour à tous,

J'ai trouvé ce bout de code dans l'aide en ligne d'Access :

Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub


Il sert à afficher le nom des formulaires ouverts (chargés) dans le projet
Access en cours.
Quand je le teste, il ne trouve aucun formulaire ouvert, alors qu'il y en a
bien. Savez-vous pourquoi ?
Merci d'avance à tous.


Nesta
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
Raymond [mvp]
Le #6355901
Bonjour nesta.

essaie ceci qui est plus court:

Sub lesForms()
Dim obj As AccessObject
For Each obj In CurrentProject.AllForms
If obj.IsLoaded Then
Debug.Print obj.Name
End If
Next obj
End Sub

ou bien encore plus court

Sub lesForms()
Dim obj As Form
For Each obj In Forms
Debug.Print obj.Name
Next obj
End Sub

forms étant la collection des formulaires ouverts
n'appelle jamais une procédure allforms qui est un mot réservé.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"Nesta" ubPp%
| Bonjour à tous,
|
| J'ai trouvé ce bout de code dans l'aide en ligne d'Access :
|
| Sub AllForms()
| Dim obj As AccessObject, dbs As Object
| Set dbs = Application.CurrentProject
| ' Search for open AccessObject objects in AllForms collection.
| For Each obj In dbs.AllForms
| If obj.IsLoaded = True Then
| ' Print name of obj.
| Debug.Print obj.Name
| End If
| Next obj
| End Sub
|
|
| Il sert à afficher le nom des formulaires ouverts (chargés) dans le projet
| Access en cours.
| Quand je le teste, il ne trouve aucun formulaire ouvert, alors qu'il y en
a
| bien. Savez-vous pourquoi ?
| Merci d'avance à tous.
|
|
| Nesta
|
|
3stone
Le #6355791
Salut Nesta,

"Nesta"
| J'ai trouvé ce bout de code dans l'aide en ligne d'Access :
|
| Sub AllForms()
| Dim obj As AccessObject, dbs As Object
| Set dbs = Application.CurrentProject
| ' Search for open AccessObject objects in AllForms collection.
| For Each obj In dbs.AllForms
| If obj.IsLoaded = True Then
| ' Print name of obj.
| Debug.Print obj.Name
| End If
| Next obj
| End Sub
|
|
| Il sert à afficher le nom des formulaires ouverts (chargés) dans le projet
| Access en cours.
| Quand je le teste, il ne trouve aucun formulaire ouvert, alors qu'il y en a
| bien. Savez-vous pourquoi ?


Ton code fonctionne parfaitement tel quel...
et il affiche même les formulaires en qui se trouvent en mode création ;-)

Mais, tu utilise "Debug.print ... " ce qui affiche uniquement dans la
fenêtre d'exécution immédiate ! Serait ce cela ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Nesta
Le #6351781
Bonjour à tous et merci pour vos réponses,

J'ai fermé ma base, ouverte de nouveau, et testé le bout de code, et ça
fonctionne maintenant, y compris ceux de Raymond.
Merci pour vos informations !

Nesta



"Nesta" discussion : ubPp#
Bonjour à tous,

J'ai trouvé ce bout de code dans l'aide en ligne d'Access :

Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub


Il sert à afficher le nom des formulaires ouverts (chargés) dans le projet
Access en cours.
Quand je le teste, il ne trouve aucun formulaire ouvert, alors qu'il y en
a bien. Savez-vous pourquoi ?
Merci d'avance à tous.


Nesta


Publicité
Poster une réponse
Anonyme