VB question...

stiffrimpet · Apr 18th, 2002, 06:08 PM

I'm not sure if this is possible but I'll ask anyhoo.

I have this code:
---
Private Sub CalcButton_Click()

If CostBox.Value = "?" Then
MsgBox ("Invalid Cost")
CostBox.Value = ""
Else

If CostBox.Value = "?" Then
a = CostBox.Value
b = QuantityBox.Value
answer = a * b
SubCostBox.Text = answer
End If
End If
End Sub
---
The question marks are the problem. I need CostBox.Value to be any number but NOT a letter. Are there any wildcards I could use, one for letters and one for numbers?

Any help or put-downs at my gross incompetence would be much appreciated!

stiffrimpet

Ricky Morris · Apr 18th, 2002, 06:27 PM

Try using the val function

if val(CostBox.Value) = 0 then
msgbox "you must enter numbers only
CostBox.Value = 0
endif

Tom Schreiner · Apr 18th, 2002, 06:47 PM

Hi
Another function as well...

If Not IsNumeric(CostBox.Text) Then
Msgbox "You must enter numbers only."
CostBox.Text = ""
CostBox.SetFocus
End If

Tom

Apr 18th, 2002, 06:27 PM	#2
Ricky Morris Board Regular Join Date: Mar 2002 Posts: 363	Try using the val function if val(CostBox.Value) = 0 then msgbox "you must enter numbers only CostBox.Value = 0 endif __________________ It's never too late to learn something new. Ricky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 18th, 2002, 06:08 PM	#1
stiffrimpet New Member Join Date: Apr 2002 Posts: 10	I'm not sure if this is possible but I'll ask anyhoo. I have this code: --- Private Sub CalcButton_Click() If CostBox.Value = "?" Then MsgBox ("Invalid Cost") CostBox.Value = "" Else If CostBox.Value = "?" Then a = CostBox.Value b = QuantityBox.Value answer = a * b SubCostBox.Text = answer End If End If End Sub --- The question marks are the problem. I need CostBox.Value to be any number but NOT a letter. Are there any wildcards I could use, one for letters and one for numbers? Any help or put-downs at my gross incompetence would be much appreciated! stiffrimpet

Apr 18th, 2002, 06:47 PM	#3
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi Another function as well... If Not IsNumeric(CostBox.Text) Then Msgbox "You must enter numbers only." CostBox.Text = "" CostBox.SetFocus End If Tom