Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
but opens the VBE window as soon as it hits the first
Set db = CurrentDb Set ctr = db.Containers("Modules") For Each doc In ctr.Documents DoCmd.OpenModule doc.Name Set myMod = Modules(doc.Name) Debug.Print myMod.Name Do Until myMod.Find(OnAction, StartLine, StartColumn, EndLine, EndColumn) = False If myMod.Find("Function", StartLine, 0, StartLine + 1, 0) Then bFound = True ElseIf myMod.Find("Sub", StartLine, 0, StartLine + 1, 0) Then bFound = True Else StartLine = EndLine StartColumn = EndColumn EndLine = Empty EndColumn = Empty End If If bFound Then Exit For Loop Next IsValidFunction = bFound
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Form performance table vs. query||27||71|
|How to use Recordset, returned from a SPROC as the recourdsource of a form.||24||52|
|How to create and use encrypted columns in SQL 2005?||15||64|
|office 2016 license quastion||3||45|
Join the community of 500,000 technology professionals and ask your questions.