pass on value from private to public sub

[mafhobb]

Hello.

This is probably pretty simple...

I have several private subs in a single form's code and one public sub. This public sub is called by several private subs.

I need to be able to pass on a value from each private sub (when used) to the public sub.

Remember, it is all in the same form.

Ideas?

Thanks

mafhobb

 

[pr2-eugin]

Just make the Public sub accept parameters.. then you can pass values when you call them.. something like...

Private Sub Form_Current()
:
Call yourPublicFunction("someValue")
:
End Sub

Public Sub yourPublicFunction(var As String)
:
'your code
:
End Sub

It would be best to place the Public Sub inside a Module.. That way it can be called by any Form in the application.

 

[vbaInet]

Or make the variable Public within the form module.

 

[mafhobb]

Or make the variable Public within the form module.

This option sounds simpler...do you have an example of this?

mafhobb

 

[pr2-eugin]

Under the First line where you have Option Compare Database or Option Explicit the next line just declare the variables that you wish to use in may subs/functions.. Something like..

Option Compare Database

[COLOR=Green]' Variables that used across all functions atleast a maximum of 2 [/COLOR] 

Dim sHostName As String
Dim sUserName As String

Private Sub Form_Current()
:
[COLOR=Green]'Your code[/COLOR]
: