title image


Smiley Re: Funktionen in einer Combobox zeigen
Möglich ist vieles - empfehlenswert (wie alle Routinen, die im Code herumfuhrwerken) ist das eher weniger:



Public Function GetAllRoutinesFromModule(MdlName As String) As String

Dim Mdl As Module, I As Long, J As Long, S As Variant, _

Res As String, L As String, FN As String



DoCmd.OpenModule MdlName

Set Mdl = Modules(MdlName)

For I = Mdl.CountOfDeclarationLines + 1 To Mdl.CountOfLines

L = Trim(Mdl.Lines(I, 1))

S = Split(L, " ")

If UBound(S) > 1 Then

If S(0) = "Private" Or S(0) = "Public" Then J = 1 Else J = 2

If S(J) = "Sub" Or S(J) = "Function" Then

FN = S(J + 1)

If InStr(FN, "(") > 0 Then FN = Left(FN, InStr(FN, "(") - 1)

Res = Res & ";" & FN

End If

End If

Next I

DoCmd.Close acModule, MdlName

GetAllRoutinesFromModule = Mid(Res, 2)

End Function



Das Ergebnis dann der RowSource deines Kombifelds zuweisen.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: