OnDoubleClick event på alle datafelter

Lav en funktion på formularen, som f.eks. hedder "ÅbnDetaljer"

Den kunne se således ud:

Public Function ÅbnDetaljer()
  Docmd.Openform "DinFormular",,,"ID = " & Me!ID
End function

Herefter markere du alle tekstbokse i din formular (i designvisning) og finder egenskaben VedDobbeltklik og skriver:
=ÅbnDetaljer()

Ja ok. Det virker! Men så har jeg bare et problem mere... Funktionen som skal kaldes, skal nemlig kunne kaldes fra flere forskellige formularer.

Jeg har lavet en funktion, som ligger i en modul:

Public Function ApplyFilterOnDataform(SourceForm As Form, FilterForm As Form)
    FilterForm.FilterOn = False
    FilterForm.Filter = "((" & SourceForm.ActiveControl.Name & ") = '" & SourceForm.ActiveControl & "')"
    FilterForm.FilterOn = True
End Function

Når jeg indtaster dette i en OnDoubleClick event, så melder den "Invalid syntax":
=ApplyFilterOnDataform(Me,Forms("OLS_Soeg"))

Det tyder på at det er kaldet med parameterne det er galt med. For hvis jeg bare kalder en en simpel funktion, fx. "public function test()" med kaldet "=test()", så er der ingen problemer.

Du kan ikke bruge Me i dette tilfælde. Me er udelukkende et VBA-objekt. Du skal i stedet bruge Form
=ApplyFilterOnDataform(Form,Forms("OLS_Soeg"))

Mht den anden funktion, så kan du lave den således:
Public Function ÅbnDetaljer()
  Docmd.Openform "DinFormular",,,"ID = " & Screen.Activeform!ID
End function

Det kunne jeg ikke få til at virke. Men jeg fik mit problem løst!
I stedet for at kalde funktionen med formularerne, så fjernede jeg helt parameterne, så funktionen nu ser således ud:

Public Function ApplyFilterOnDataform()
    Screen.ActiveForm.Form!SubformFrameData.Form.FilterOn = False
    Screen.ActiveForm.Form!SubformFrameData.Form.Filter = "(([" & Screen.ActiveForm.ActiveControl.Form.ActiveControl.Name & "]) = '" & Screen.ActiveForm.ActiveControl.Form.ActiveControl & "')"
    Screen.ActiveForm.Form!SubformFrameData.Form.FilterOn = True
End Function

Og den var straks lettere at kalde.
Men du har hjulpet mig meget. Du skal have tak! Du får dine points.

thnx :o)

btw, så behøver du ikke at have din første sætning med (den med FilterOn = False). Den er overflødig.
Endvidere tror jeg heller ikke at du behøver at skrive f.eks.:
Screen.ActiveForm.ActiveControl.Form.ActiveControl.Name

Istedet skulle det være nok at skrive blot:
Screen.ActiveControl.Name
da ActiveControl altid er på Activeform!

Prøv det, da det vil gøre koden væsentligt 'pænere'.

COOL!
Screen.ActiveControl.Name    VIRKER!!!

Det er pisse svært at referere til objecter, som nok kræver en del erfaring.
Tak

ja :o)