how to stop it letting me put it incorrect characters

[spazzirifick]

my challenge is to create a program to calculate the cost for a particular customer according to how many dogs they have to be washed.
1 dog = $10.00
2 Dogs = $17.00
3 or more Dogs = $17.00 (price for 2 dogs) + $5 for each additional dog.

i therefore have written the following code:
its not layed out correctly since i havent had time to fix it yet..please try and read through!

Option Explicit
 
Private Sub cmdamountfordwc_Click()
txtamountfordwc.Text = Format(txtcalculatedprice.Text * Val(0.05), "$0.00")
End Sub
Private Sub txtenterdognumber__KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        Select Case KeyAscii
            Case 8
            Case Else
                KeyAscii = 0
            End Select
        End If
End Sub
 
Private Sub cmdCalculateCharge_Click()
If txtenterdognumber.Text >= 1 Then
txtcalculatedprice.Text = Format(Val(10), "$0.00")
 
 
End If
If txtenterdognumber.Text >= 2 Then
txtcalculatedprice.Text = Format(Val(17) + ((txtenterdognumber.Text - Val(2)) * Val(5)), "$0.00")
End If
If txtenterdognumber.Text = 0 Then
    Beep
    MsgBox "    PLEASE ENTER NUMBER OF DOGS    ", vbExclamation
    txtcalculatedprice.Text = "0"
    txtamountfordwc.Text = "0"
    
          
    End If
End Sub
 
Private Sub cmdclear_Click()
    txtamountfordwc.Text = ""
    txtcalculatedprice.Text = ""
    txtenterdognumber.Text = ""
End Sub
 
Private Sub cmdcountall_Click()
Call cmdCalculateCharge_Click
Call cmdamountfordwc_Click
End Sub
 
Private Sub cmdexit_Click()
End
End Sub
Private Sub txtcalculatedprice__KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        Select Case KeyAscii
            Case 8
            Case Else
                KeyAscii = 0
            End Select
        End If
End Sub
Private Sub txtamountfordwc__KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        Select Case KeyAscii
            Case 8
            Case Else
                KeyAscii = 0
            End Select
        End If
End Sub
 
Private Sub txtenterdognumber_Change()
If KeyAscii < 48 Or KeyAscii > 57 Then
        Select Case KeyAscii
            Case 8
            Case Else
                KeyAscii = 0
            End Select
        End If
End Sub

the problem is i have to stop it letting me enter letters into the box, or decimal points and multiple letters and to not let you type them in. as you can see i have tried to but it just doesnt want to work. what have i done wrong?

[dglienna]

Use the KeyPress event. This will only allow numbers and BACKSPACE.
Press TAB to exit

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 8, 48 To 57
      Exit Sub
    Case Else
        KeyAscii = 0
  End Select

End Sub

[tommygrayson]

Why not try to put your KeyAscii codes to your Textbox_KeyCode event

instead of Command_Click events?

[spazzirifick]

i put that into my code but it still doesnt like it. is that for vb 5? thats what i am using. it says the statement is invalid outside of type block

[tommygrayson]

i put that into my code but it still doesnt like it. is that for vb 5? thats what i am using. it says the statement is invalid outside of type block

Well, KeyCode is new to VB6 or what I heard of, so try DGLienna's suggestion.

I tworks definitely with VB5.

[Hack]

Well, KeyCode is new to VB6 or what I heard of, so try DGLienna's suggestion.

I tworks definitely with VB5.

David's code will only work if you type the numbers in. You also have to code the Change event of the textbox to prevent characters other than numbers from being copy 'n pasted in.

[spazzirifick]

Use the KeyPress event. This will only allow numbers and BACKSPACE.
Press TAB to exit

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 8, 48 To 57
      Exit Sub
    Case Else
        KeyAscii = 0
  End Select
End Sub

I entered this in under the correct text box yet it still lets me enter the letters..why is this?!

[MartinLiss]

You've probably done something wrong then because it should work as posted.

[spazzirifick]

just want to clarify
i have put in the text below as well as the one that i showed you, but it still doesnt like it. when i say that i mean i can entrer then umbers in but also i click on my command button and i get a runtime error. i dont know what this means though.
below is what i entered in and it still doesnt work...*looks confused*

Private Sub txtcalculatedprice__KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        Select Case KeyAscii
            Case 8
            Case Else
                KeyAscii = 0
            End Select
        End If
End Sub

[MartinLiss]

Why did you change the code. Your code should work but what is the error message and what line gives it?

[spazzirifick]

umm i changed the code because i know other people with the same assignment who put in that code and it worked *shrugs*

Private Sub cmdCalculateCharge_Click()
    
    If txtenterdognumber.Text >= 1 Then
    End If
    If txtenterdognumber.Text >= 2 Then
        txtcalculatedprice.Text = Format(Val(17) + ((txtenterdognumber.Text - Val(2)) * Val(5)), "$0.00")
    End If
    If txtenterdognumber.Text = 0 Then
        Beep
        MsgBox "    PLEASE ENTER NUMBER OF DOGS    ", vbExclamation
        txtcalculatedprice.Text = "0"
        txtamountfordwc.Text = "0"
    End If
End Sub

the line with the problem is

If txtenterdognumber.Text >= 1 Then

[MartinLiss]

That's what you get for copying code from people who don't know what they are doing You still haven't said what the error message is.

[MartinLiss]

This is not your problem but I just want to mention that you are using Val where you don't need to. Val is used to convert text to numbers so in the case of 17 for example, that of course is a number so just use 17 and not Val(17).

[MartinLiss]

Here is a better way to do it. (I had to make a guess or two about what you were trying to do).

Select Case txtenterdognumber.Text
        Case "1"
            ' What do you want to do here. You aren't doing ANYTHING in your original code
        Case "0"
            Beep
            MsgBox "    PLEASE ENTER NUMBER OF DOGS    ", vbExclamation
            txtcalculatedprice.Text = "0"
            txtamountfordwc.Text = "0"
        Case Else
            txtcalculatedprice.Text = Format(15 + (Val(txtenterdognumber.Text) * 5), "$0.00")
 
    End Select

[spazzirifick]

no thats not really what i want. let me see if i can make it clearer:

i have my textbox
when i type into it i want it to ONLY accept numbers!

at the moment it lets me type in anything i want...
i would like it to give an error message if the wrong thing be typed in. do you understand me?? hmm...

[dglienna]

Did you miss post #2?

I'm not going to write you app for you, but you need to input numbers only into your textboxes, and then use them for calculations, or enter numbers only, and copy them to variables before you format them, for use in calculations.

You cannot multiply a number that has been formatted with $ or , in them.

[spazzirifick]

no, i read that one but it wouldnt work!

[dglienna]

the problem is i have to stop it letting me enter letters into the box, or decimal points and multiple letters and to not let you type them in. as you can see i have tried to but it just doesnt want to work. what have i done wrong?

What is the problem?

[Paradox]

just to get it right, you said you Copied and pasted the code, for the keypress event to work, you have to select the event, then paste the code inside the event other wise if u paste the code inside the code editor without selecting the event it will never work.

Try writing the code without copy paste, it works ok

[MartinLiss]

You must be doing something basically wrong and I think the only way we are going to find out what it is is if you put you attach your form so we can look at it.