global code (Access 2000)

[svetljop]

i want to build a function called "ClosetheForm" that could be called in any form to close this form
The function should be the folloiwng

Public Function "CloseTheForm"

DoCmd.SetWarnings False
DoCmd.Close acForm, "Form1"", acSaveNo"
End Function

The function should be valid not only for Form1, but for any other form in my database.How can i build the code so that i should not mention any special name of a form,and to be applicable
to any form ?

[MarkLiquorman]

>>Public Function "CloseTheForm"

DoCmd.SetWarnings False
DoCmd.Close acForm, "Form1"", acSaveNo"
End Function<<


Your function needs to be changed to this (also notice change in quotation)"

Public Function CloseTheForm(strName as string)

DoCmd.SetWarnings False
DoCmd.Close acForm, strName, acSaveNo
End Function

I'm assuming you would call this function from a button on your form. In the Click event property, you will need this:

=CloseTheForm(Me.Name)