Pass directory to function 1

[irishjoe]

Is something along the lines of this available?
For this example, I want to be able to send the name of the form into a function, so I can modify things on it.
In the end, I would like to re-use the function and send in various forms.

If anyone can assist, it would be greatly appreciated.

changeColour("Form_frmMainMenu")

Private Function changeColour(dir As String)
    dir.btnUndo.ForeColor = 255  
End Function

 

[PHV]

changeColour Me

Private Sub changeColour(frm As Form)
frm("btnUndo").ForeColor = 255
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[irishjoe]

Brilliant!

Thanks for the speedy reply.