Running a module from within a UserForm
Your module doesn't know where the controls it's supposed to change are
located. You can put your MakeVisable sub in the code sheet for the userform:
Private Sub OptionButton1_Click()
Call MakeVisable
End Sub
Sub MakeVisable()
Me.Label8.Visible = True
Me.Label9.Visible = True
Me.TextBox3.Visible = True
Me.TextBox4.Visible = True
Me.TextBox3.Value = Format$(Now(), "HH:MM")
Me.TextBox4.Value = Format$(Now(), "mm/dd/yy")
End Sub
Or, you can leave it in the MakeVisable VBA module if you make modifications
like the following:
'(in the userform code sheet)
Private Sub OptionButton1_Click()
Call MakeVisable.MakeVisable(Me)
End Sub
'(in the MakeVisable module)
Sub MakeVisable(MyForm As UserForm)
MyForm.Label8.Visible = True
MyForm.Label9.Visible = True
MyForm.TextBox3.Visible = True
MyForm.TextBox4.Visible = True
MyForm.TextBox3.Value = Format$(Now(), "HH:MM")
MyForm.TextBox4.Value = Format$(Now(), "mm/dd/yy")
End Sub
Hope this helps,
Hutch
"Patrick C. Simonds" wrote:
From within UserForm2 when I click on OptionButton1 I want the MakeVisable
code (shown below) to run. The problem is that I get an "object required"
error. What do I need to add?
Private Sub OptionButton1_Click()
Call MakeVisable.MakeVisable
End Sub
Sub MakeVisable()
Label8.Visible = True
Label9.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox3.Value = Format$(Now(), "HH:MM")
TextBox4.Value = Format$(Now(), "mm/dd/yy")
End Sub
|