7 Replies Latest reply on Mar 6, 2017 10:27 AM by Sam Molony

    Userform change event not working when linked from another userform.

    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