[AccessD] Create parameter that holds the source control?

We simply use Screen.ActiveControl like this:

	Set gctlZoom = Screen.ActiveControl
	DoCmd.OpenForm "frmZoom", acNormal, , , acFormPropertySettings,
acDialog
	If IsLoaded("frmZoom") Then
    		If intDataMode <> acFormReadOnly Then
        		gctlZoom = Forms!frmZoom!txtMemo
    		End If
    		DoCmd.Close acForm, "frmZoom"
	End If

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Sad Der
Sent: Monday, January 08, 2007 1:23 AM
To: Acces User Group
Subject: [AccessD] Create parameter that holds the source control?

Hi,

I need to create a zoom form.
E.g.: I've got a textbox that can store let's say 200(+) chars. I don't
want to create a textbox that large.

So if the user double clicks on it I want to open a form with a large
textfield. The user can type the info in this large textbox and send the
data back after pressing ok.

Sounds easy....

I've created a function that does this. However, it's not generic.
I want add a parameter in wich I store the Form and Control of it's
origin.

How do I create a parameter in wich I store the 'source control'?
This parameter is later used to return the data to the correct control.

Regards,

Sander

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com