passing form name to module

[BobSullivan]

I would like to perform a generic test of user id for all forms in a database, so that only certain people have editing rights. Here's what I have:

In the On Load event of the form, I have

Code: Select all

TheForm=Me.Name
module1.Security

In module1 I have the following code:

Code: Select all

Public TheForm as string
Sub Security ()
If environ("UserName") = "Bob" then
TheForm.AllowEdits = True
Else: TheForm.AllowEdits = False
End If

I'm getting an "Invalid Qualifer" error. I'm thinking I don't have the form Name variable dimensioned correctly. How should I dimension it?

[HansV]

A string is not the same as a form.

Option 1:

Change the declaration of TheForm to

Public TheForm As Form

and change the line

TheForm = Me.Name

to

Set TheForm = Me

Option 2:

Leave the above lines unchanged, but change both occurrences of TheForm.AllowEdits to Forms(TheForm).AllowEdits

[BobSullivan]

Thanks! I used the second option.