Macro-overzicht?

Status
Niet open voor verdere reacties.
J

jbusser

Gebruiker
Lid geworden
23 feb 2007
Berichten
147
Korte vraag:
Is er een mogelijkheid om alle Macro's die gebruikt worden in een database inzichtelijk te krijgen zodat ik niet alle formulieren na hoef te lopen?
 
Zo doe je het in Excel. Voor Access zal het erop lijken. Eerst even in je trust center aanvinken dat je het object model vertrouwt.

Code: 
Sub jec()
 Dim ar As Variant, VBComp As VBComponent
 Dim y As Long, x As Long, i as Long
 
 ReDim ar(1, 0)
 For Each VBComp In ThisWorkbook.VBProject.VBComponents
    With VBComp.CodeModule
       y = 1
       For i = 1 To .CountOfLines
          If y >= .CountOfLines Then Exit For
          ReDim Preserve ar(1, x)
          ar(0, x) = .ProcOfLine(y, 0)
          ar(1, x) = .Parent.Name
          y = y + .ProcCountLines(.ProcOfLine(y, 0), 0)
          x = x + 1
       Next
    End With
 Next
 
 Range("A1").Resize(x, 2) = Application.Transpose(ar)
End Sub
 
Laatst bewerkt:
Werkt niet (goed) in Access, omdat je daar macro's in de formulieren opslaat. Die kun je op deze manier dus niet uitlezen.
 
Er zit een documentatie tool in Access zelf waarmee je rapporten kunt maken. Daar kun je ook nog naar kijken. Overigens is er een verschil tussen 'macro's' en VBA procedures. Daar heeft TS het niet over :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan