values between forms question

[eulogy6]

Hello to all,
I have a main form with a datagrid,
frmImportsForm & frmAnalysisDetails
How I Know which form is open (frmImportsForm OR frmAnalysisDetails), in order to pass a value?

I suppose my question is very simple.

Private Sub DataGrid1_DblClick()
If frmImportsForm.Hide = True (something like that) Then
frmAnalysisDetails.Text11.Text = Me.Text1.Text
else
frmImportsForm.Text6.Text = Me.Text1.Text
End If
Unload Me
End Sub

 

[Sheco]

I suppose if the forms are already loaded but merely hidden you could check the .Visible property.

 

[eulogy6]

Sheco thanx for your replay

Lets say, I have already frmAnalysisDetails loaded.
If i use the .visible property the "If" statment dosen't work what fires both forms

Any other idea?

Thanx in advanced

 

[dglienna]

Set the .Tag property when a form is open, and change it when it closes.

Form1.Tag=1 ' Open
If Form1.Tag=1 then msgbox "Form 1 Open"

-David
2006 Microsoft Valueable Professional (MVP)
2006 Dell Certified System Professional (CSP)

 

[eulogy6]

thanx four your help...

The .Tag property is a good idea, but how can I use the
"If statment"?

Something like that

Private Sub DataGrid1_DblClick()
If frmImportsForm.Tag = 1 Then
frmAnalysisDetails.Text11.Text = Me.Text1.Text
else
frmImportsForm.Text6.Text = Me.Text1.Text
End If
Unload Me
End Sub

 

[mattKnight]

I'd really think again about this one...

I suspect that each time you try and reference one of the forms properties, you are (re)creating an instance of it.

Personally I suggest you try something like

Dim fAnalysis as frmAnalysisDetails
dim fImports as frmImportsForm

Set fAnalysis = new frmAnalysisDetails 'explicit instancing
set fImports = new frmImportsForm 'explicit instancing, but don't create object until you need it

'Soem code

'finished with object
Set fImports = nothing

Then if you want to test whether form is loaded

if fImports is nothing then
' It isn't instanced
else
' it is instanced
end if

At the moment, everytime you use a form property, if the form doesn't exist the form will be created

Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[dglienna]

I would just hide them rather than unloading them, so that the tag wouldn't load them again.

-David
2006 Microsoft Valueable Professional (MVP)
2006 Dell Certified System Professional (CSP)