Creat A Input Form.

Private Sub Result_Click()

If Me.Sing.Value = "-" Then
Me.Results.Value = Me.InputN - Me.Inputs
Me.Results.Visible = True
End If

If Me.Sing.Value = "/" Then
Me.Results.Value = Me.InputN / Me.Inputs
Me.Results.Visible = True
End If
If Me.Sing.Value = "*" Then
Me.Results.Value = Me.InputN * Me.Inputs
Me.Results.Visible = True
End If
If Me.Sing.Value = "+" Then
Me.Results.Value = Me.InputN + Me.Inputs
Me.Results.Visible = True
MsgBox "Plus '+' Results is not Valid"
End If
If IsNull(Sing) Or IsNumeric(Sing) Then
MsgBox "Not Any sing of mid text box. Please Input + or -or * or /."
DoCmd.GoToControl "sing"
Me.Results.Visible = False
End If

End Sub