VBA OR function help please

[Mikeymike_W]

Hi there,

I'm rying to set a condition on a user form so that the user needs to close a textbox before the open another. The textbox is opened via a command button.
I have never used the "OR" function before so had a look online. The code I have just opens up the msgbox regardless f whether or not other textboxes are open and i'm not sure where to go from here.

In the code below i'm trying to say that if TBPsychology1 is visible then just make it invisible, however if it is invisible check to see if other textboxes are visible, if they are then prompt the user to close them alternatively if no other textbox is visible then just make TBPsychology1 visible.

I hope that makes sense.

Thanks in advance for your help!

Private Sub CBPsychology_Click()

If TBPsychology1.Visible = False Then
    If TBPsychology2.Visible = True Or TBPsychology3.Visible = True Or TBPsychology.Visible = True Then
MsgBox "Please close any open dialogue boxes", , "Close Dialogue Boxes"
Exit Sub
Else
TBPsychology1.Visible = True
End If
End If

If TBPsychology1.Visible = True Then
TBPsychology1.Visible = False
End If    
    
End Sub

 

[Fluff]

Are the textboxes actually hidden, or just disabled?

 

[Mikeymike_W]

Are the textboxes actually hidden, or just disabled?

They are just hidden using. Visible=true/false

 

[Fluff]

In that case if all 4 of those textboxes are hidden, you shouldn't get the message box.

 

[Mikeymike_W]

Thats what i thought too but I do unfortunately thats why I assumed i'm doing something wrong.

 

[Mikeymike_W]

Got it sorted, i dont know why but the first IF statement was causing the issue so just removed it and reorganised the code.
Thanks for your help though.

If TBPsychology2.Visible = True Or TBPsychology3.Visible = True Then
MsgBox "Please close any open dialogue boxes", , "Close Dialogue Boxes"
Exit Sub
End If

If TBPsychology1.Visible = True Then
TBPsychology1.Visible = False
Else
TBPsychology1.Visible = True
End If

 

[Fluff]

Glad you sorted it & thanks for the feedback.