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
Le code qui suit devrait te convenir :
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par formulaire, par état, ...)
********************************************************* Function LineOfModule()
Dim lngLine As Long Dim Db As DAO.Database Dim cnt As DAO.Container Dim doc As DAO.Document
DoCmd.Echo False Set Db = CurrentDb Set cnt = Db.Containers("Forms") For Each doc In cnt.Documents DoCmd.OpenForm doc.Name, acDesign lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Forms(doc.Name).Module.CountOfLines DoCmd.Close acForm, doc.Name Next Set cnt = Db.Containers("Reports") For Each doc In cnt.Documents DoCmd.OpenReport doc.Name, acViewDesign lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Reports(doc.Name).Module.CountOfLines DoCmd.Close acReport, doc.Name Next Set cnt = Db.Containers("Modules") For Each doc In cnt.Documents DoCmd.OpenModule doc.Name lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines lngLine = lngLine + Modules(doc.Name).CountOfLines DoCmd.Close acModule, doc.Name Next Db.Close: Set Db = Nothing Set cnt = Nothing
DoCmd.Echo True LineOfModule = "La base de donnée en cours contient : " & lngLine & " lignes de codes" MsgBox LineOfModule End Function *********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "titou" a écrit dans le message de news:
bonjour, y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une appli access ? (derrière les formulaires et les modules) merci!
Bonjour
Le code qui suit devrait te convenir :
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par
formulaire,
par état, ...)
*********************************************************
Function LineOfModule()
Dim lngLine As Long
Dim Db As DAO.Database
Dim cnt As DAO.Container
Dim doc As DAO.Document
DoCmd.Echo False
Set Db = CurrentDb
Set cnt = Db.Containers("Forms")
For Each doc In cnt.Documents
DoCmd.OpenForm doc.Name, acDesign
lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines
lngLine = lngLine + Forms(doc.Name).Module.CountOfLines
DoCmd.Close acForm, doc.Name
Next
Set cnt = Db.Containers("Reports")
For Each doc In cnt.Documents
DoCmd.OpenReport doc.Name, acViewDesign
lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines
lngLine = lngLine + Reports(doc.Name).Module.CountOfLines
DoCmd.Close acReport, doc.Name
Next
Set cnt = Db.Containers("Modules")
For Each doc In cnt.Documents
DoCmd.OpenModule doc.Name
lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines
lngLine = lngLine + Modules(doc.Name).CountOfLines
DoCmd.Close acModule, doc.Name
Next
Db.Close: Set Db = Nothing
Set cnt = Nothing
DoCmd.Echo True
LineOfModule = "La base de donnée en cours contient : " & lngLine & "
lignes de codes"
MsgBox LineOfModule
End Function
*********************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"titou" <titou@discussions.microsoft.com> a écrit dans le message de
news:8DA308A4-4E94-4EA4-832C-CA6EDE75C7C8@microsoft.com...
bonjour,
y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une
appli access ? (derrière les formulaires et les modules)
merci!
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par formulaire, par état, ...)
********************************************************* Function LineOfModule()
Dim lngLine As Long Dim Db As DAO.Database Dim cnt As DAO.Container Dim doc As DAO.Document
DoCmd.Echo False Set Db = CurrentDb Set cnt = Db.Containers("Forms") For Each doc In cnt.Documents DoCmd.OpenForm doc.Name, acDesign lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Forms(doc.Name).Module.CountOfLines DoCmd.Close acForm, doc.Name Next Set cnt = Db.Containers("Reports") For Each doc In cnt.Documents DoCmd.OpenReport doc.Name, acViewDesign lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Reports(doc.Name).Module.CountOfLines DoCmd.Close acReport, doc.Name Next Set cnt = Db.Containers("Modules") For Each doc In cnt.Documents DoCmd.OpenModule doc.Name lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines lngLine = lngLine + Modules(doc.Name).CountOfLines DoCmd.Close acModule, doc.Name Next Db.Close: Set Db = Nothing Set cnt = Nothing
DoCmd.Echo True LineOfModule = "La base de donnée en cours contient : " & lngLine & " lignes de codes" MsgBox LineOfModule End Function *********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "titou" a écrit dans le message de news:
bonjour, y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une appli access ? (derrière les formulaires et les modules) merci!
titou
il n'y a donc rien de prévu en standard... un grand merci à toi pour cette fonction!
Bonjour
Le code qui suit devrait te convenir :
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par formulaire, par état, ...)
********************************************************* Function LineOfModule()
Dim lngLine As Long Dim Db As DAO.Database Dim cnt As DAO.Container Dim doc As DAO.Document
DoCmd.Echo False Set Db = CurrentDb Set cnt = Db.Containers("Forms") For Each doc In cnt.Documents DoCmd.OpenForm doc.Name, acDesign lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Forms(doc.Name).Module.CountOfLines DoCmd.Close acForm, doc.Name Next Set cnt = Db.Containers("Reports") For Each doc In cnt.Documents DoCmd.OpenReport doc.Name, acViewDesign lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Reports(doc.Name).Module.CountOfLines DoCmd.Close acReport, doc.Name Next Set cnt = Db.Containers("Modules") For Each doc In cnt.Documents DoCmd.OpenModule doc.Name lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines lngLine = lngLine + Modules(doc.Name).CountOfLines DoCmd.Close acModule, doc.Name Next Db.Close: Set Db = Nothing Set cnt = Nothing
DoCmd.Echo True LineOfModule = "La base de donnée en cours contient : " & lngLine & " lignes de codes" MsgBox LineOfModule End Function *********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "titou" a écrit dans le message de news:
bonjour, y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une appli access ? (derrière les formulaires et les modules) merci!
il n'y a donc rien de prévu en standard... un grand merci à toi pour cette
fonction!
Bonjour
Le code qui suit devrait te convenir :
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par
formulaire,
par état, ...)
*********************************************************
Function LineOfModule()
Dim lngLine As Long
Dim Db As DAO.Database
Dim cnt As DAO.Container
Dim doc As DAO.Document
DoCmd.Echo False
Set Db = CurrentDb
Set cnt = Db.Containers("Forms")
For Each doc In cnt.Documents
DoCmd.OpenForm doc.Name, acDesign
lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines
lngLine = lngLine + Forms(doc.Name).Module.CountOfLines
DoCmd.Close acForm, doc.Name
Next
Set cnt = Db.Containers("Reports")
For Each doc In cnt.Documents
DoCmd.OpenReport doc.Name, acViewDesign
lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines
lngLine = lngLine + Reports(doc.Name).Module.CountOfLines
DoCmd.Close acReport, doc.Name
Next
Set cnt = Db.Containers("Modules")
For Each doc In cnt.Documents
DoCmd.OpenModule doc.Name
lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines
lngLine = lngLine + Modules(doc.Name).CountOfLines
DoCmd.Close acModule, doc.Name
Next
Db.Close: Set Db = Nothing
Set cnt = Nothing
DoCmd.Echo True
LineOfModule = "La base de donnée en cours contient : " & lngLine & "
lignes de codes"
MsgBox LineOfModule
End Function
*********************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"titou" <titou@discussions.microsoft.com> a écrit dans le message de
news:8DA308A4-4E94-4EA4-832C-CA6EDE75C7C8@microsoft.com...
bonjour,
y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une
appli access ? (derrière les formulaires et les modules)
merci!
il n'y a donc rien de prévu en standard... un grand merci à toi pour cette fonction!
Bonjour
Le code qui suit devrait te convenir :
(à toi de l'adapter si tu veux plus de détail (nombre de ligne par formulaire, par état, ...)
********************************************************* Function LineOfModule()
Dim lngLine As Long Dim Db As DAO.Database Dim cnt As DAO.Container Dim doc As DAO.Document
DoCmd.Echo False Set Db = CurrentDb Set cnt = Db.Containers("Forms") For Each doc In cnt.Documents DoCmd.OpenForm doc.Name, acDesign lngLine = lngLine + Forms(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Forms(doc.Name).Module.CountOfLines DoCmd.Close acForm, doc.Name Next Set cnt = Db.Containers("Reports") For Each doc In cnt.Documents DoCmd.OpenReport doc.Name, acViewDesign lngLine = lngLine + Reports(doc.Name).Module.CountOfDeclarationLines lngLine = lngLine + Reports(doc.Name).Module.CountOfLines DoCmd.Close acReport, doc.Name Next Set cnt = Db.Containers("Modules") For Each doc In cnt.Documents DoCmd.OpenModule doc.Name lngLine = lngLine + Modules(doc.Name).CountOfDeclarationLines lngLine = lngLine + Modules(doc.Name).CountOfLines DoCmd.Close acModule, doc.Name Next Db.Close: Set Db = Nothing Set cnt = Nothing
DoCmd.Echo True LineOfModule = "La base de donnée en cours contient : " & lngLine & " lignes de codes" MsgBox LineOfModule End Function *********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "titou" a écrit dans le message de news:
bonjour, y a t il un moyen de savoir le nombre de lignes de code qu'il y a dans une appli access ? (derrière les formulaires et les modules) merci!
