Checking to see if a user form is hidden

  • Thread starter Thread starter Alteran
  • Start date Start date
A

Alteran

I am trying to find a way that I can hide a userform open a seconday one, and
once I close the other one it will check through 3 userforms to find which
one is hidden and show it.

What i have are 3 main userforms: ufMain1, ufMain2, ufMain3
and a secondary userform with a different function: ufCont

What I have is on each of the main user forms they have a button that hides
the form that is loaded, opens ufCont, allows the user to finish their input
and post it to the sheet, however when i hit the close button cmbClose I want
it to check if the main forms are just hidden (not unloaded) and go back to
the form they where working on.

Is this at all do-able?
 
Just put this in each of your main UserForm's Button's click events...

Me.Hide
ufCont.Show
Me.Show

The current UserForm will be hidden and the ufCont one will be shown... when
you close the ufCont UserForm, the UserForm whose button you clicked should
automatically be re-shown.
 
Ok thanks Rick, that part worked, However I am trying to pass a value from
the ufMain1 to the ufCont, its not working this is the code I am using:

Private Sub cmdContract_Click()
Me.Hide
frmCont.Show
Sheets("Cont").Select
Range("B1").Select
Me.Show
Sheets("W510").Select
Range("B1").Select
frmContract.tbItem.Value = frmInputW510.tbItemNum.Value
End Sub

Is there something else I Should be doing here?

-Alt
 
I'm not entirely clear on what you are doing here. What do the Selections
you are making have to do with passing a value to ufCont and how does
frmContract.tbItem and frmInputW510.tbItemNum have to do with what you are
attempting to do?
 
Well what it is doing is once the first form opens the second form their is a
relation between the two forms, that is also a relation within two sheets in
the work book, this is the Item #

I think I have got this to work however by doing this:
Private Sub cmdContract_Click()
Dim frm As frmContract
Me.Hide
Set frm = New frmContract
'Transferes the value to the contract sheet.
frm.tbItem.Value = frmInputW510.tbItemNum.Value
Sheets("Contracts").Select
Range("B1").Select
frm.Show
Unload frm
Me.Show
Sheets("W510").Select
Range("B1").Select
End Sub

Thanks for the help.
 
Back
Top