Run code from Runmacro in Macro

[micang]

Access 2003

Hi All,

I have the following code in a module:

Function TableExist(Name As String) As Boolean
     
    Dim objTable As TableDef
     
    On Error Resume Next
    Set objTable = CurrentDb.TableDefs(Name)
    TableExist = Not objTable Is Nothing
     
    Exit Function
     
End Function
 
Sub Test()
     
    Dim strName As String
     
    strName = "Customers"
    If TableExist(strName) Then
        MsgBox "Table " & strName & " Exists", vbInformation
    Else
        MsgBox "Table " & strName & " Does Not Exist", vbExclamation
    End If
     
End Sub

I would like to run it from a macro (RunCode).

I have tried, but I keep getting errors e.g. "The expression you entered has a function name that Microsoft Office can't find."

Am a novice, thanks for all the help.

Michael

 

[JoeAtWork]

Place "Public" in front of the function name so it can be seen anywhere in the database,

[COLOR=red]Public[/color] Function TableExist(Name As String) As Boolean

 

[micang]

Hi, I tried that, but I still get the error?

In Macro\RunCode\Function Name I put in "TableExist()"

but I still get the error?

Am I still doing something wrong?

Many thanks

Michael

 

[PHV]

Why do you need a macro (instead of VBA) ?

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

 

[JerryKlmns]

Macros' RunCode action, expects a Function and not a Sub. So if you change the Sub Test() to Function Test() you 'll be ok.

But PHV suggestion should be seriously concindered ( and I think that's why he didn't provide the answer....!)

 

[micang]

Thanks Jerryklmns. Did not know that.

PHV and JerryKlmns you are both correct. I am new to access/vba and I have been running "procedures" via macros, but I am begining to see how limited one is.

So I am slowly trying to learn VBA.

Thanks again.

Michael

 

[JerryKlmns]

On menu Tools-->Macro --> Convert Macros to Visual Basic

would be usefull for you to start with...

 

[PHV]

and I think that's why he didn't provide the answer
Well spotted !
I'm reluctant to give macros answers, especially in a VBA forum.