[resolved]Argument not Optional....

[Kesk]

Everytime I go to use the button in my form it says Argument not Optional and highlights "Private Sub btnCalc_Click()" and I don't know why

[Static]

post all the code from the sub...

[Kesk]

Private Sub btnCalc_Click()
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim p As Double
    Dim s As Double
    a = 0
    b = 0
    c = 0
    p = 0
    s = 0
    
    a = Val(txtNum1)
    b = Val(txtNum2)
    c = Val(txtNum2)
 
    Label2 = CStr(a + b)
End Sub

[Static]

hmm.. well u got me?? (Works fine for me)


try copying the whole sub to notepad.. save and close the project (and VB)
open it back up..
run it.. click the button

nothing? good

paste the code back in then run.. see what happens?

[Bruce Fox]

That looks ok???

Justa few points:
a = Val(txtNum1.Text)
Label2.Caption = CStr(a + b)

And you may find it usefull to use Hungarian Notation for yout Variables, and give them usefull names.
Lets say that 'a' will hold the Price value, and is a Double datay type, therefore: dblPrice dbl signifies its a Double, and Price lets you know what it holds

[Bruce Fox]

In addition to what Static asked, do the other buttons work?

[bushmobile]

you've probably got one of the controls as a control array.

have any of them got a value in the Index Property?

[randem]

Are you by chance calling the sub from a click event of another button?

[krckoorascic]

you're getting that error cuz one of the TextBoxs don't contain numeric value and you're passing that value to Val() which excepts numeric input, you should first check for that values if ther're numeric with IsNumeric...
if thats not working, well.... i dunno what is the error (try debugging)

[bushmobile]

that's not the problem, Val won't error on string values:

Val("hello") = 0
Val("1hello") = 1
Val("hello1") = 0

[Bruce Fox]

that's not the problem, Val won't error on string values:

@krckoorascic - And... a Val() line wasnt the one highlited (as stated in the first post)

[Frans C]

Probably btnCalc has it's index set. so it is considered part of as control array.
If this is the only btnCalc you have, just remove the index.

[Kesk]

It highlights the btnCalc line as yellow and selects one of the Val() statements with the usual blue highlight. It also didn't have an index.

[COLOR=Orange]Private Sub btnCalc_Click()[/COLOR]   
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim p As Double
    Dim s As Double
    a = 0
    b = 0
    c = 0
    p = 0
    s = 0
    
    a = Val(txtNum1[COLOR=Lime].Text[/COLOR])
    b = Val(txtNum2.Text)
    c = Val(txtNum2.Text)
 
    Label2.Caption = CStr(a + b)
End Sub

the lime is what is selected and the orange is what is highlighted yellow

[Harsh Gupta]

could you please upload the form here?? maybe then we could help you!!

[Kesk]

The tex boxes had their indexes set

[Harsh Gupta]

then it should be something like:

a = Val(txtNum1([i]index value[/i]).Text)
    b = Val(txtNum2([i]index value[/i]).Text)
    c = Val(txtNum2([i]index value[/i]).Text)

EDIT: sorry it happens with me when i try editing some else's code

[Kesk]

I just changed their index values