M
Maperalia
I wonder if you can help with this form.
I created a multipages form with "Page1" and "Page2". Each one has labels
with boxes and "OK" bottom (see code below). I do not know how to set the
code for the object and the statement in my module.
Could you please tell me how to do it.
Thanks in advance.
Maperalia
'########## Form Code #########
Public Vertical_Line As Double
Public Horizontal_Line As Double
Public Distance As Double
Public Angle As Double
Private Sub bOK_Click()
'Make sure the user is entering numbers and not text
If IsNumeric(txtDistance.Text) And IsNumeric(txtAngle.Text) Then
Distance = txtDistance.Text
Angle = txtAngle.Text
Hide
Else
MsgBox "You must enter numeric values for all fields"
End If
End Sub
'###########################################
'#### Start User form located in my Module ##############
Dim newForm As New frmRevolve
newForm.Caption = "Enter Values in Inches"
newForm.Show
RevolveDistance = newForm.Distance / 39.37008
RevolveAngle = newForm.Angle / 57.29577951 'Converting From Radians to Degrees
Set newForm = Nothing
'#### End User form located in my Module ###############
I created a multipages form with "Page1" and "Page2". Each one has labels
with boxes and "OK" bottom (see code below). I do not know how to set the
code for the object and the statement in my module.
Could you please tell me how to do it.
Thanks in advance.
Maperalia
'########## Form Code #########
Public Vertical_Line As Double
Public Horizontal_Line As Double
Public Distance As Double
Public Angle As Double
Private Sub bOK_Click()
'Make sure the user is entering numbers and not text
If IsNumeric(txtDistance.Text) And IsNumeric(txtAngle.Text) Then
Distance = txtDistance.Text
Angle = txtAngle.Text
Hide
Else
MsgBox "You must enter numeric values for all fields"
End If
End Sub
'###########################################
'#### Start User form located in my Module ##############
Dim newForm As New frmRevolve
newForm.Caption = "Enter Values in Inches"
newForm.Show
RevolveDistance = newForm.Distance / 39.37008
RevolveAngle = newForm.Angle / 57.29577951 'Converting From Radians to Degrees
Set newForm = Nothing
'#### End User form located in my Module ###############