userform name as variable...

[RobbieC]

Hi there, I have a userform which launches another userform (calendar). It passes a variable to the 2nd form to identify the 'formFrom'

calendarForm.formFrom.caption = "Form1"
calendarForm.Show

when the user selects the required 'date', I need to pass this value back to my original form "Form1". I can hardcode using:

Form1.DateInput.Caption = Format(todaysDate, "dd/mm/yyyy")
Unload Me

but I need to re-use this form in multiple places. I thought I could use my formFrom caption to send it back to the correct form:

dim formFromVar as string
formFromVar = Me.formFrom.caption
[COLOR=#ff0000]formFromVar[/COLOR].DateInput.Caption = Format(todaysDate, "dd/mm/yyyy")
Unload Me

but obviously, this is not the correct syntax, just to demonstrate what I'm trying to achieve...

If you can point me in the correct direction, I'd be very grateful. Thanks

 

[RoryA]

Instead of passing the form name, you could actually pass the receiving control directly to the calendar form. In the simplest terms, add:

Public dateControl as MSForms.Label

to the top of the userform code - before any routines - and then use:

Set calendarForm.dateControl = DateInput
calendarForm.Show

and in the calendar form:

dateControl.Caption = Format(todaysDate, "dd/mm/yyyy")
Unload Me

 

[RobbieC]

Brilliant! Thanks very much Rory!