One Calendar for Several Forms? 4

[dRahme]

Hi, management has fallen in love with pop-up calendars for the various forms that require a date entry.

After making 5 of these, with the prospect of making many more, it occured to me that there may be a method for using the same calendar for several forms.

The calendar would need to recognize the form that opened it in order to populate the appropriate text box I think, and I do not know how to do that.

Any suggestions?

Thanks, dRahme

 

[Remou]

You could use OpenArgs to tell the calendar which form and field to write back to.

 

[dRahme]

Hi, the way I understand openargs and my understanding is limited, with openargs you are passing a value from the main form to the form you are opening. If that is the case, what value do you pass to the calendar so the calendar can determine which form opened it?

Thanks, dRahme

 

[missinglinq]

I'm not at a computer that's loaded with Access, so I can't test this, but you might try something like:

If Me.Name = "YourFirstFormName" Then
'Place your code here for field to populate on 1st form
Else If Me.Name = "YourSecondFormName" Then
'Place your code here for field to populate on 2nd form
End If

and so forth. Not sure this will work, but believe it will. You could also use the Case structure in a similar way.

Hope this helps!

The Missinglinq

There's ALWAYS more than one way to skin a cat!

 

[Remou]

Or you could try:
Opening form:
Openargs: Me.Name & "," & Me.txtSomeControl.Name

Calendar:
astrArgs = Split(OpenArgs, ",")
frm = astrArgs(0)
fld = astrArgs(1)
Forms(frm).Controls(fld) = ...

 

[TheAceMan1]

How are ya dRahme . . .

In parallel with [blue]Remou[/blue], in the calling forms:

[blue]   DoCmd.OpenForm "CalendarFormName", , , , , , "[purple][b]FormName[/b][/purple],[purple][b]ControlName[/b][/purple]"[/blue]

Then in the [blue]AfterUpdate[/blue] event of the calendar control:

[blue]   Dim Ary
   
   [green]'Set date only if openargs has value.[/green]
   If Trim(Me.OpenArgs & "") <> "" Then
      Ary = Split(Me.OpenArgs, "'")
      Forms(Ary(0))(Ary(1)) = Me![purple][b]CalendarControlName[/b][/purple]
   End If[/blue]

See Ya! . . . . . .

 

[dRahme]

Thanks folks for all your help. I added all suggestions to my libray and resolved my dilemma.

Thanks again,

dRahme

 

[ZmrAbdulla]

I have a sample db (Pop-Up Calendar) do the same & recognizes which textbox called the calendar.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.