Prevent -Values and Decimals

[trsisko]

Is there a way I can prevent the following code from allowing
the entry of -0.1 numbers or Decemals?

       Case "N" 'Numeric - Currency - Term Lenght - Age etc
                If Not IsNumeric(m_Response) Then
                    MsgBox "Please enter a valid Number !", vbCritical
                    txtInput.SetFocus
                    Exit Sub
                Else
                    m_Response = CDbl(m_Response)
                                    End If

 

[DonkeyOte]

m_Response = CDbl(m_Response)
If m_Response < 0 OR Round(m_Response,0) <> m_Response Then
txtInput.SetFocus
Exit Sub
End IF

 

[trsisko]

Doesnt seem to work. Can you show me where it would go as per my code?

 

[DonkeyOte]

After "Else" in your first snippet and in place of what you had there previously)

m_Response = CDbl(m_Response)
End If