Overføre objekter via Openargs

Ups den blev afsendt før den var færdigformuleret :(

:
:
Dim CalledFrom As TextBox
getCaller Me.OpenArgs, Me.Calendar.Value

End Sub


Private Sub getCaller(CalledFrom As TextBox, Value As String)

    Forms![Main]!CalledFrom = Value

End Sub

Lidt kryptisk formuleret men den overordnede mening burde være klar nok.


Mvh. Malm

Jeg giver selvfølgelig gerne 100p for et svar (de 30 er blot en fejl)

The way I normally use the calendar control is to set a global (public) variable. This can then be used in the dblclick event for the field after you close your calendar form.

Hope that makes sence.

Ja der er vist et par måder at gøre dette på.

Jeg har også brugt at overføre formularnavn og tekstfeltets navn med openargs til kalenderformularen så den "ved" hvor datoen skal indsættes bagefter.

Doubleklik i datofeltet hvor dato skal indsættes:
Docmd.openform "frmkalender",,,,,,"minformularnavn;mintekstboksnavn"

og når jeg trykker OK i kalenderformularen:

Dim minformularnavn as string
Dim mintekstboksnavn as string
minformularnavn=left(me.openargs,instr(1,me.openargs,";")-1)
mintekstboksnavn=right(me.openargs,len(me.openargs)-len(minformularnavn))
forms(minformularnavn)(mintekstboksnavn)=me!datofeltikalender


Det er lidt old-school med parsing af en tekststreng, men det virker.
(ovenstående ikke testet)

take a look at
www.makeiteasy.dk for an example

http://www.makeiteasy.dk/eksempler/kalender.zip

Jeg er lidt ked af, at jeg ikke kunne hæve pointene lidt da jeg finder i begge havde fortjent lidt mere. Der kommer nok en anden gang ;)

Med venlig hilsen
Malm

Intet problem. Godt det virker.

no problem, and thanks