Isnumeric in all texbox

[Rakodu]

I have a situation i have a problem to solve my surveying data. Now i want it to respond to data which i input e.g if i put text not a value should make me aware and where i did that mistake.Below is the programme please assist

Private Sub Cmd_Convert_Click(Index As Integer)
'Convert Value in Txt_Degrees
Dim Degrees As Double, Minutes As Double, Seconds As Double, DecDeg As Double
Dim BearingDec As Double, BearingMin As Double, BearingSec As Double
Dim VertDec As Double, VertMin As Double, VertSec As Double
If Not IsNumeric(Txt_Degrees.Text) Then
MsgBox "no number"
End If
Degrees = Val(Txt_Degrees.Text)
Minutes = Val(Txt_Minutes.Text)
Seconds = Val(Txt_Seconds.Text)
BearingDec = Val(Txt_BearingDec.Text)
BearingMin = Val(Txt_BearingMin.Text)
BearingSec = Val(Txt_BearingSec.Text)
'Convert Value in Txt_Degrees
DecDeg = Degrees + Minutes / 60 + Seconds / 3600
DecDegAngle = BearingDec + BearingMin / 60 + BearingSec / 3600

'Display in Label field
Txt_DecDeg.Text = Str(DecDeg)
Txt_InitialAngleToRO.Text = Format(Str(DecDegAngle), "##0.000000")

[debasisdas]

why not simply restrict the input of alphabet and special characters.

[Rakodu]

why not simply restrict the input of alphabet and special characters.

Thank you a lot but still the problem is not solved. Im a student and yhis is my second week in VB so some languages are not familier with them. How do i restrict the input of alphabet and special characters in regard to my programme

[DixitSolanki]

Assume here txt1 is a textbox for data entry:

now put the following code in your project.


Private Sub txt1_KeyPress(KeyAscii As Integer)
b = KeyAscii
If b >= 48 And b <= 57 Or b = 8 Or b = 46 Then
KeyAscii = b
Else: KeyAscii = 0
End If
End Sub


it will work. I am using the same.

if your text box name is not txt1 & suppose you have rename it to xyz then replace txt1_keypress to xyz_keypress.

I hope, this will solve your problem.

[smartchap]

for each textbox input u can use the code posted by Mr. DixitSolanki or in your code after checking IsNumeric for each textbox u must exit the subroutine after displaying warning message that data in a particular textbox is not numeric and setfocus to that textbox and exit that click event. After a new value is filled again user must click the button.

[Rakodu]

Thanks its working wonders i appreciate the time you took assisting me

[Rakodu]

Thanks i did exactly that and its working