VB Functions

[Nenya]

This could be an easy question...

I created a vb funtion to output a string. I want to use this function on a report.
How do i use the function in a report?

 

[Fizzio]

In the controlsource of a textbox (for example) set it to

=YourFunctionName(Function Arguments)

 

[Calvin]

how do you want to use it on a report, is it in a text box, if so then set the textbox property ControlSource equal to "=MyFunction" and as long as the function is designed to return a string then this will work.

example of function in a basic module:

Public Function MyFunction() As String
    dim strNewData as String
    strNewData = "Test String from MyFunction"
    MyFunction = strNewData
End Function

 

[Nenya]

I tried your function... it works.
So i guess the problem is in my function parameters.

=CoutTotal([Txt_Cout1].Texte, [TxtCout2].Texte, [TxtCout3].Texte, [TxtCout4].Texte, [TxtCout5].Texte, [TxtCout6].Texte)

This is in my ControlSource property (of a textbox)

Is it correct??

(btw, i use a french version of access)

 

[Calvin]

The .Texte (.Text) could be the problem as there is a difference between .Text and .Value and what you really want is the .Value which is the default if you don't reference it.

and because it's a report, try using the memory names instead of the control names like the following;

=CoutTotal(me![Txt_Cout1], me![TxtCout2], me![TxtCout3], me![TxtCout4], me![TxtCout5], me![TxtCout6])

sorry, the only french i know will get me slapped across the face

 

[Nenya]

Still not working

The "me" is not accepted. I think it works only within vb code.

I can do functions that works fine as long as i have less than two parameters. If i have 2, access is unhappy (so i am).

Any ideas?

oh... and...

sorry, the only french i know will get me slapped across the face

uh?

 

[Mile-O]

=CoutTotal([Txt_Cout1], [TxtCout2], [TxtCout3], [TxtCout4], [TxtCout5], [TxtCout6])

No?

 

[Nenya]

Thx for the help!!!!
It's working now!!!

I used the text property tho