Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Récupérer le nom d'un module

Récupérer le nom d'un module

2 réponses
Avatar
mml
Bonjour,

Quelqu'un sait-il comment récupérer, par code, le nom du module dans lequel
le traitement courant est inscrit.

Exemple :
Dans le module "Commandes", j'écris
=======================================
Public Function Test()
Msgbox "Je suis dans le module " & NomDuModule
End Function
=======================================

Merci d'avance au pro qui pourrat m'aider,

Cordialement,

MML
Signaler un problème avec ce contenu

2 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
Michel__D
Bonjour,

Ce copier/coller issue de l'aide correspond je pense à ce que tu cherche

Sub AllModules()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Recherche les objets AccessObject ouverts
' dans la collection AllModules.
For Each obj In dbs.AllModules
If obj.IsLoaded = TRUE then
' Affiche le nom de l'objet.
Debug.Print obj.Name
End If
Next obj
End Sub


mml a écrit :
Bonjour,

Quelqu'un sait-il comment récupérer, par code, le nom du module dans lequel
le traitement courant est inscrit.

Exemple :
Dans le module "Commandes", j'écris
====================================== > Public Function Test()
Msgbox "Je suis dans le module " & NomDuModule
End Function
====================================== >
Merci d'avance au pro qui pourrat m'aider,

Cordialement,

MML





Avatar
mml
Merci de cette piste qui me fait progresser et va peut être me permettre
d'aboutir...

"Michel__D" a écrit dans le message de
news:
Bonjour,

Ce copier/coller issue de l'aide correspond je pense à ce que tu cherche

Sub AllModules()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Recherche les objets AccessObject ouverts
' dans la collection AllModules.
For Each obj In dbs.AllModules
If obj.IsLoaded = TRUE then
' Affiche le nom de l'objet.
Debug.Print obj.Name
End If
Next obj
End Sub


mml a écrit :
> Bonjour,
>
> Quelqu'un sait-il comment récupérer, par code, le nom du module dans


lequel
> le traitement courant est inscrit.
>
> Exemple :
> Dans le module "Commandes", j'écris
> ====================================== > > Public Function Test()
> Msgbox "Je suis dans le module " & NomDuModule
> End Function
> ====================================== > >
> Merci d'avance au pro qui pourrat m'aider,
>
> Cordialement,
>
> MML
>
>
>