Referencing a Subform in a Variable

[Athar Khan]

EDITED
I have nearly 20 forms. I want to use a Public Sub written in a module to prevent writing some lines of code on each form's Got Focus event.

So, To lock an active form (on its Got focus or any similar event) , I wrote this code in a module:



Option Compare Database
Public strFormName as string
_____________________________

Public Sub LockThisForm()
Forms(strFormName).AllowEdits = False
End Sub

Then, on Got Focus event of the form, I wrote the following code:

strFormName = Me.Name
LockThisForm ' (a Sub name defined in a module as written above)

It worked for Main Form perfectly, but not working for Subform, and shows runtime error number 2450 (Access cannot find the referenced form "Orders Subform")

Subform name is referenced differently in a variable but I don't know how? And where to change it, in the module or on Got Focus event of the Form.

Some practical guidelines will be appreciated

[aytee111]

Instead of using a public variable, use a parameter:
Public Sub LockThisForm(strFormName)

Then:
Call LockThisForm("Forms!formname![Orders Subform]")

Best practice is to never use spaces in object names.

[ranman256]

forms!mainformName!subformName!form.allowedits = false


use the BUILDER, it will show you the path name correctly. (good for query critiera and vb)
pick your db,
pick forms,
loaded forms,
your form,
your subform

[Athar Khan]

Thanks for your attention Aytee111 & Ranman256

Please try to understand that I don't want to use the form name manually anywhere, instead I want two variables to store the Main and Subform names so that I could use those variables for referring the forms

[aytee111]

The way you have it written above, you are adding the call statement to each form, so why not add its name at the same time? Otherwise you would need to call a macro which runs a common function.

[Athar Khan]

I can and have to use form name or Me.Name on got focus event of each form, no problem, but I need to use a variable for form name in the MODULE only, so that a single module could get the name of any active form which gets the focus. The only issue is in the Public sub (in a module) where I want to use the code below ONLY ONCE , and don't want to repeat this code to each form separately:

Public Sub LockThisForm(strFormName)

SELECT CASE UserID

Case 1 'Admin
'code to Allow everything

Case 2 'Power User
'code to Allow Additions and disable Deletion

Case 3 'Viewers
'Code to Disable everything for user
Forms(strFormName).AllowEdits = False
Forms(strFormName).AllowEdition = False
Forms(strFormName).AllowDeletion = False

END SELECT

End Sub

[Athar Khan]

I must put the form name to a variable on Got Focus event or any similar event of each form.
That variable will then be used to allow or disallow Edits, Additions and Deletions for an active form.