I can't call a sub or function in a module from a form even thought I've made the sub or function Public. How do I call a sub or function from a form thats in a Module or Vice Versa?

It took me 74 years to get this stupid!

__________________
It took me 74 years to get this stupid!

I think it's so simple, if i'm not stupid,

just type function name and pass para.

ex. MyFunction(para1,para2)
or abc=MyFunction() if it returns something

or if module is created,

   myModule.MyFunction(para1,para2)
or abc=myModule.MyFunction()

is it ok ?

Vipul.

One other thing to add to Vipul's answer. If the function is on another form than the one you are calling it from you will need to use this syntax...

Call myForm.myFunction

along with any parameters that you may be passing.

Kenny Alligood

Zooker,

Calling Subs & Functions can be somewhat tricky until you get the hang of it. Generally, a function is returning a value and takes the same form as built-in functions:
  x = FunctionToDoSomething(WhatI'mSendingIt)

if you Call the same function (i.e., you don't expect a return value) it would look like this:

  Call FunctionToDoSomething "WhatI'mSendingIt"

Note how the parentheses are no longer present.

While a Subroutine is simply performing a function -- with or without passed parameters.

Then there's the matter of Scope (where these procedures are placed); How parameters are specified in the declaration, etc. etc.

For more info recommend http://www.vba-programmer.com
(there's an excellent discussion on Functions and Subs)

CarlR

Splash Sreen is on Form 1 along with a DriveListBox which is made invisible

'---------------------------------------------------------------
Form1


Private Sub Form_Load()
   Drive1_Change When Form1 Loads it should call Drive1 Change which In turn call s FindDir But it
                                      Doesn't
End Sub


Private Sub Drive1_Change()
ListCount = 0
Item$ = Drive1.List(ListCount)
'Form1.Print Item$
'CurrentY = 600
'Form1.Print "This should work"
FindDir (Item$)
End Sub



'--------------------------------------------------------------------------------------
'Module1
Option Explicit
Public Item$



Sub FindDir(Item$)
'ListCount = 0
'Item$ = Drive1.List(ListCount)
CurrentY = 500
Form1.Print Item$
CurrentY = 900
Form1.Print "This should work"

End Sub
I just can't get the module to recognize Item$, Why? thank's for all the help ! !

It took me 74 years to get this stupid!