Script Library Function access

Grrr…

I have script library which includes the function:

Function CheckFields() As Variant

CheckFields = (value)

End Sub

In the same database as the script library, I have a form, which has the following in the options section:

Use “Library1”

Then, in the QuerySave event, I want to use this function to check the fields values, and return a variant which represents the current state of affairs, so to speak. So I use this:

Dim vr as Variant

vr = CheckFields()

And it doesn’t work. It says I’m not allowed to use empty parenthesis on this function, but the function doesn’t have any arguments!

I’ve saved everything in every possible order, I’ve recompiled the lotusscript a hundred times, I don’t know why this won’t work.

Subject: Script Library Function access

Who Notes… try it this way (a simple workaround)

Sub CheckFields(MyVar As Variant)

MyVar = “”

End Sub

Dim vr As Variant

Call CheckFields(vr)

Of course… For me… this works too… (It’s what you did)

Function CheckFields() As Variant

CheckFields = “”

End Function

Sub Click(Source As Button)

Dim vr As Variant

vr = CheckFields()

End Sub