How to add functionality to project

[fluppe]

Hi,



i have the following question:
I want to add a method/Function to my project that can be shared by all the Callbacks that i write.
How can i add such a function/method to the Application-object for example ?
... or any other way ...

My function will need some arguments, just for information.

Thanks for reading this post, any help would be great.

Yours,
...

[ranman256]

I dont know what a callback it, but to write a function
ctl-G (to get to VBE, visual basic editor)
ctl-R (to see your project objects)
from the menu: INSERT, MODULE
in this new mdule , from the menu: INSERT, PROCEDURE
the add procedure dialog appears: Enter the name of the function
click the FUNCTION option
and PUBLIC option
click OK

put your arguments in the command line..example:
and assign the value to the function name.

public function calcCircumference( byval pvRadius)
calcCircumference = 2 * 3.141 * pvRadius
end function

Then in the query put the field name calcCircumference([radius]) as Circ.

[fluppe]

Well,
thanks for your answer ...
by "Callback" i mean all those methodes one gets by using the "Event" pane of the properties-section (in the design-view) of a form. What happens when "Click" and "open" and all that ...

At least these are methods, but they are attached to the Form automatically and i do not know how achieve that without the "properties pane".


I'll try that with the function ... Thanks a lot,

...

[fluppe]

Hello,

back from trying ... it seems that the whole problem is that my "function call" doesn't work. It wants return values ... no matter if i try as a "sub" or as "function".
I don't know what the problem is about that. If i declare a "Sub"(function), it should not have a return value, right ?

exfcn(name_src, name_tar, num, fields, fields_tar)

is red from the beginning,

flag = exfcn(name_src, name_tar, num, fields, fields_tar)

is OK (syntax seems to be at last)

However, i don't know, any idea ?

[orange]

Can you describe what you are trying to achieve in a few sentences-- no database jargon?

Does this link help? http://office.microsoft.com/en-ca/ac...005186744.aspx

[fluppe]

Oh,

well ... i will describe as good as i can:

I want to add a VBA Function to my access project that can be then called from various Procedures that are executed when the User presses buttons etc.. The functionality can be shared.
So I added a Module (as described) and added a Procedure (as described by ranman256 as well) ... but when I choose SUB and not FUNCTION, it doesn't work.
I CANNOT CALL THE PROCEDURE. I'm told very politely that an output arg is missing. I just don't understand that.

If I choose FUNCTION it works when i declare some output however, but it should work as well with choosing SUB and no outputs, or ?

[orange]

Please post the code. A Function returns a value. SUB does not. Sub and Function can each have input parameters.

Do you have an example of the functionality you're talking about? Change color of label/caption..

Ranman's function is incorrect. It should have an output parameter.

for example
public function calcCircumference( byval pvRadius) as Long
calcCircumference = 2 * 3.141 * pvRadius
end function

[fluppe]

Hello,
I'm sorry but i am currently not having the code with me, so it's just a summary, but it is all the relevant stuff i'm sure.The code in the Function and the Sub is the same, except the Return statement.

Ok, it all looks like ... say "pb_one" is the name of a Pushbutton in a form of my project ...

I added a Module "MyMod" and there i added a "Sub"

Public Sub somefunc(ind As Integer, str As String)

Dim var As String

...
' Do s.th. with SQL and stuff
...
' And do not return anything

End Sub

In the "autogenerated" Procedure "pb_one_click", it looks like

Public Sub pb_one_click()


...
' s.th. as above
....

somefunc(ind, str)


End Sub

That does not work however ...

If I do declare "somefunc" as

Public Function somefunc(ind As Integer, str As String) As Boolean



Return True  ' f. ex.

End Function

(and call it ... ) it works fine.

That is my problem...,and i don't know where it arises from.

So, thanks for your help so far, maybe this gives a better insight to my problem.

[orange]

see http://www.fontstuff.com/vba/vbatut04.htm