This code has been working fine until now??

[Darren Smith]

Morning All

This Toggle Switch code has been working fine until now.
Now the error message says
Run-time error 401
Can`t show non-modal form when modal form is displayed
How do I overcome this

Private Sub Parts_Form_Click()


If Me.Parts_Form.Value = True Then

Jobcard_Parts.Show False

        Me.Width = 225
        Me.Height = 60
        Me.Parts_Form.Top = 0
        Me.Parts_Form.Left = 0
        Me.Parts_Form.Caption = "Close Parts Form"
        Me.Top = 700
        Me.Left = 0
Else

Jobcard_Parts.Hide

Body_And_Vehicle_Type_Form.Show False

        Me.Width = 1013
        Me.Height = 630
        Me.Parts_Form.Top = 450
        Me.Parts_Form.Left = 10
        Me.Parts_Form.Caption = "Open Parts Form"
        Me.Top = 0
        Me.Left = 300
End If

End Sub

 

[diddi]

do you have another userform open at the same time. this occurs when you try to mix modal and nonmodal userforms

 

[Darren Smith]

No only 1 open at a time.
Thanks for your advice.

 

[diddi]

now i check, this form is still loaded
Jobcard_Parts.Hide
hide is still loaded. if you dont need to be able to switch between both userforms at once, than set them both to ShowModal = True

 

[Darren Smith]

I do need to switch between the 2 user forms

 

[diddi]

set both ShowModal=false

 

[Darren Smith]

They both are saying show = False

 

[Darren Smith]

Please help

 

[EXCEL MAX]

Hello Daren,
if you are set default both show modal values to false,
then try when calling both userforms show without "False".

If Me.Parts_Form.Value = True Then
        Jobcard_Parts.Show

Else
        Body_And_Vehicle_Type_Form.Show

 

[diddi]

another option may be to incorporate the 2 userforms in 1 by using frames. i find this a useful way of not having to deal with passing variables between userforms also