Passing Multiple Arguments to a Function

[HVACMAN24]

I'm trying to pass 2 variables to a function so I dont have the some code repeated a bunch of times just for different variables. But when I finish the call statement I get a "compile error: = expected". If I take the second argument out of the call the error goes away, but it wont work without it. Any thoughts or better ways to do this? The call statement and function look like the following:

Call Statement:
Private Sub btnGraphs_Click()
    OpenFile ("[URL]http://1.1.1.1:8080/aptweb/fileSearch.jsf[/URL]", "btnGraphs")    
End Sub
 
Function:
Public Function OpenFile(FileName As String, Cntrl As String)
    Dim ctl As CommandButton
 
    Set ctl = Cntrl
    With ctl
        .HyperlinkAddress = FileName
        .Hyperlink.Follow
    End With
End Function

 

[HVACMAN24]

Note: I'm trying to use this same code to open websites, word files and other databases. And it works with all of them but I thought I would try and save some steps by writing a function and passing the different path and file names to it.

 

[spikepl]

You cannot Set a ctl to a string.

Controls have a Name, and if you wish to pass a control then declare it as Control in the argument list, or pass the Name of the control as String, and then find that control in the control collection.

 

[HVACMAN24]

I changed the string to commandbutton in the argument list but it still gives the same error when trying to write the call statement. I took the "" off when calling it and it didnt help either.

 

[spikepl]

show the code and how you call it

 

[HVACMAN24]

Private Sub btnGraphs_Click()
    OpenFile ("[URL]http://1.1.1.1:8080/aptweb/fileSearch.jsf[/URL]", btnGraphs)
End Sub
 
Public Function OpenFile(FileName As String, Cntrl As CommandButton)
    Dim ctl As CommandButton
    
    Set ctl = Cntrl
    With ctl
        .HyperlinkAddress = FileName
        .Hyperlink.Follow
    End With
End Function

I've tried the btnGraphs in the call statement with and without the "" and in function with and without the Dim statement and I keep getting the "Expected =" error in the call statement.

 

[spikepl]

Private Sub btnGraphs_Click()
OpenFile ("http://1.1.1.1:8080/aptweb/fileSearch.jsf", Me!btnGraphs)
End Sub

Public Function OpenFile(FileName As String, Cntrl As CommandButton)

With cntrl
.HyperlinkAddress = FileName
.Hyperlink.Follow
End With
End Function
[/CODE]

 

[HVACMAN24]

I'm still getting the error.

 

[spikepl]

Oh yeah, your call:

Private Sub btnGraphs_Click()
OpenFile "http://1.1.1.1:8080/aptweb/fileSearch.jsf", Me!btnGraphs
End Sub

 

[HVACMAN24]

ahhh haah, That did it. Thanks a lot. That was driving me nuts.