Form Variable

[RLJ]

I have this code for oppening a form below and I need the from name to be a variable as the use can open the form from various other forms within the database.

Private Sub Form_Load()
    Me.LoanNumberLookup = Forms![frmLoanDetail]![LoanID]
End Sub

I'm not sur how to make the form name a variable as the active form.

Thanks for your help.

[pbaldy]

I'd probably use OpenArgs instead. At the point this code runs, the form being opened is probably the active form, so Screen.ActiveForm would probably refer to it rather than the form that opened it.

[qa12dx]

i'd give a generic name in from properties - format-caption
then have a unbound textbox in form header to display form name

on the trigger u use to open the form do;

openform - xyz
conditional setvalue for the textbox (if no need for condition; textbox-properties-control source- ="Account - " & [LoanID])

[RLJ]

I came up with this after some playing around and it seems to work fine.

Private Sub Form_Load()
    Dim FrmName As Form
    Set FrmName = Screen.ActiveForm
    Me.LoanNumberLookup = [FrmName]![LoanID]
End Sub