Problems passing arguements

Catrina · Jul 5, 2000

I'm new to programming, and trying to master passing arguments. I can't figure this problem out. I get the error "Compile Error Expected: =" when I try to call a sub. Here is the sub (Not finished yet): Private Sub CheckOutPut(K%, ZOUT$)    If K% = 1 Then GoTo 16001    If K% = 2 Then GoTo 16002    If K% = 3 Then GoTo 16003    If K% = 4 Then GoTo 16004    If K% = 5 Then GoTo 16005 16001    If Val(ZOUT$) > 0 Then Ck1$ = "Y"    If Mid(CT1$, 1, 2) >= "32" And Mid(CT1$, 1, 2)<= "41"Then       Ck1$ = "Y"    End If    Exit Sub 16002 16003 16004 16005 End Sub Here is how I am calling it: Private Sub txtGross_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) ZOUT$ = Chr(KeyAscii)      If KeyAscii = 13 Then        KeyAscii = 0        Vis% = 2        ZOUT$ = txtGross.Text        CheckOutPut(1, ZOUT$)''''Here is the line I get the                             ''''Error on               Mid(CT1$, 15, 8) = ZOUT$        Color      End If End Sub It will let me pass one or the other, but not both. I've tried setting K%=1 then passing K%, but still wouldn't work. Thanks for any help. Catrina

alto · Jul 5, 2000

You must put ":" after the label example: sub example() on error go to lblerror 'some code lblerror:       'things to do in the label end sub

Catrina · Jul 5, 2000

I think you misunderstand, I am not trapping an error, I am getting a compile error. The '''Here is the line I get the error on'' is remarked out, just put it there to show the line the error occurs on. Catrina

DSJ1967 · Jul 5, 2000

Catrina There are two ways to call a sub/function: 1st is to use the word 'Call' and then your sub/function followed by any paramaters enclosed in brackets. 2nd is to omit the word 'Call' only using the name of your sub/function followed by your parameters.  In this case though, you don't include the brackets. I think that your statement should be either CheckOutPut 1, ZOUT$ or CALL Checkoutput(1,Zout$) Don't know about the rest of the code as some of the variables are not defined etc. but I think the above should work.

Catrina · Jul 6, 2000

Thanks, using Call worked! Catrina

WilMead · Jul 6, 2000

DSJ1967 is correct. A sub call does not include parenthesis.  The compiler sees the parenthisis and assumes a function.  Functions are rValues and thus require an lValue and equal sign to make the exchange.  The CALL verb alerts the compiler to the upcoming nonstandard syntax.  There are cases where it is necessary to do the CALL.  I don't remember what they are. Recent trends in Visual basic have eliminated the need for line numbers.  A select case statement makes the code look much nicer.

MikeLacey · Jul 6, 2000

Will makes a good point Try this code Catrina Select Case K%     Case 1         ' code to deal with K=1         If Val(ZOUT$) > 0 Then Ck1$ = "Y"             If Mid(CT1$, 1, 2) >= "32" And Mid(CT1$, 1, 2)<= "41"Then             Ck1$ = "Y"         End If         Exit Sub     Case 2         ' code to deal with K=2     Case 3         ' code to deal with K=3     Case 4         ' code to deal with K=4     Case 5         ' code to deal with K=5 End Select Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Problems passing arguements

Catrina

Programmer

alto

Programmer

Catrina

Programmer

DSJ1967

MIS

Catrina

Programmer

WilMead

IS-IT--Management

MikeLacey

MIS

Similar threads

Part and Inventory Search

Sponsor