AnsweredAssumed Answered

Userform change event not working when linked from another userform.

Question asked by Sam Molony on Mar 3, 2017
Latest reply on Mar 6, 2017 by Sam Molony

Hi,

 

I have 2 userforms, when the first (userform1) links to the second (userform6), the change event in the second will not activate.

 

The strange thing is, if I run the second userform directly, all of the code executes perfectly.

 

Anyone know of anything which can cause this?

 

Part of userform1:

 

Private Sub userform_initialize()

MatVal.AddItem ("303 Stainless Steel")

MatVal.AddItem ("416 Stainless Steel")

BuildButton.Enabled = False

End Sub

 

Private Sub TDVal_change()

 

RemoveChar = 1

 

If Not IsNumeric(UserForm1.TDVal.Value) And Len(UserForm1.TDVal) <> 0 Then

    If Len(UserForm1.TDVal) < 1 Then RemoveChar = 0

    UserForm1.TDVal = Left(UserForm1.TDVal, Len(UserForm1.TDVal) - RemoveChar)

    UserForm1.Hide

    UserForm6.Show     LINKS HERE

End If

 

If MatVal.Text <> "Select Material" And TDVal <> "" And SLVal <> "" And (EngBox = True Or MarkBox = True) Then

    BuildButton.Enabled = True

Else

    BuildButton.Enabled = False

End If

 

End Sub

 

 

Part of userform6:

 

Private Sub userform_initialize()

BuyButton.Enabled = False

End Sub

 

Private Sub Acc_change()  (SUB DOESN'T ACTIVATE)

 

RemoveChar = 1

 

If Not IsNumeric(UserForm6.Acc.Value) And Len(UserForm6.Acc) <> 0 Or Len(UserForm6.Acc) > 8 Then

    If Len(UserForm6.Acc) < 1 Then RemoveChar = 0

    UserForm6.Acc = Left(UserForm6.Acc, Len(UserForm6.Acc) - RemoveChar)

    UserForm6.Repaint

End If

If IsNumeric(UserForm6.Acc.Value) And Len(UserForm6.Acc) = 8 And IsNumeric(UserForm6.Sort1.Value) And Len(UserForm6.Sort1) = 2 And IsNumeric(UserForm6.Sort2.Value) And Len(UserForm6.Sort2) = 2 And IsNumeric(UserForm6.sort3.Value) And Len(UserForm6.sort3) = 2 And IsNumeric(UserForm6.Sec.Value) And Len(UserForm6.Sec) = 3 Then

    BuyButton.Enabled = True

    Else

    BuyButton.Enabled = False

End If

 

End Sub

 

 

 

Any ideas?

 

 

Cheers

Outcomes