Multi Pages Setup

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 ###############
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top