Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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
deze tool vond ik op http://www.accessmvp.com/strive4peace/CodeDocumenter.htm
en deze op http://msaccessgurus.com/tools.htm
gr Jan
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.