Modules, Aaaarrrggghhhhh

[fatbloater]

I am having a nightmare! I have a main form; on this form i have 10 sub forms.
Each of these sub forms has the same fields and a button.
I need a module that i can run from this button and will conduct calculations using the fields in the sub form and putting the result into another field on the sub form e.g. field_a = field_b + field_c.
I could do each form separately but then i would be duplicating code, please help!!!

 

[Agnostiker]

Hi,

if You don't have, You create a new Module, write their Your calculation routine. In the button_Click event You launch this function an ready.

Hope, that will help.

Agnostiker

 

[fatbloater]

This what i have written, the text boxes contain numbers:

Public Function text_calc()
text3 = text1 - text2
End Function

Then on the button i have:

Private Sub Command6_Click()
text_calc
End Sub

I know this is wrong, when i check the function it does not error, maybe i am calling it wrong.

 

[Agnostiker]

I understood, You will use this function for all the subforms? So give the values to the function as parameters and let the function return the result.

Agnostiker

 

[fatbloater]

I will use this function on all sub forms.
How do i do what you have suggested, can you give me an example?

 

[Rich]

Why do you have 10subforms all with the same fields?

 

[fatbloater]

I have the forms represnting a layout in an office, its purley for looks not for functionality.

 

[KenHigg]

I have the forms represnting a layout in an office, its purley for looks not for functionality.

Then get rid of them. Sounds like a cluster...

???
kh

 

[Agnostiker]

...like this?

Function Calculate(A As Integer, B As Integer) As Integer 'declared in a standard module

Calculate=A+B​

End Function

Private Sub Button_Name_Click() 'This is in your formular

Me.TextBox_Result.Value=Calculate(Me.TextBox_A.Value, Me.TextBox_B.Value)​

End Sub


Agnostiker

 

[fatbloater]

Thank you . That worked just how i wanted it! Much appreciated.

 

[Agnostiker]

...so I'm appeased...

Ciao

Agnostiker

 

[fatbloater]

This forum is well helpfull! Cheers