Module basics

[ShostyFan]

I'm not understanding Access Modules.


A simple version of the question;
I want global code that does not allow a form to be edited.
I created a module:


Public Function Permissions()
Form.AllowEdits = False
End Function




then in a forms onCurrent event I wrote
Private Sub Form_Current()
Call UserPermissions
End Sub


Hopefully someone out there can help me get started. thanks!

[RuralGuy]

Try something like:

Public Function Permissions(InForm As String)
 Forms(InForm).AllowEdits = False
 End Function




 then in a forms onCurrent event I wrote
 Private Sub Form_Current()
Call Permissions(Me.Name)
 End Sub

Warning...NOT TESTED...

[ShostyFan]

Thanks for the response, but the code does not work.
There are no compile errors or messages.

[RuralGuy]

Alright, does this form have a RecordSource? If so then try:

Private Sub Form_Current()
MsgBox "Before - AllowEdits = " & Me.AllowEdits
Call Permissions(Me.Name)
MsgBox "After - AllowEdits = " & Me.AllowEdits
 End Sub

If not then you will probably not get a Current Event and need to use OnLoad instead.

[ShostyFan]

This is not working either. I used the code in both the OnLoad and the OnCurrent event.
same as before, no compile errors or messages.
This is kind of frustrating, it seems like a simple thing, but I must be overlooking something in my message that is not allowing the problem to move forward.

[RuralGuy]

Have you set your Trusted Locations yet? You should at least get the MsgBox's.

[ShostyFan]

Trusted locations are all good.
Strange thing, when I use the code you provided nothing happened, so I added "msgBox ("onCurrent") to the top line of the code and nothing. I then commented out your code and when I launched the form I got my message "onCurrent".
Same thing happened with Onload.

[RuralGuy]

Something weird is going on. Does this form have a RecordSource?

[ShostyFan]

Yes, the form does have a record source.

[RuralGuy]

Then you'll get a Current Event. Can you zip and post the db? It sound like it is still in test. Remove any sensitive data if not.

[ShostyFan]

falseEdit.zip
I created a new db that just does what I want it to do; have a module that allows the edit record property to be False and a form that calls this module.
Interestingly enough after creating the new db the code does not compile. I sure hope what I sent is clear and that you can help.
Thanks.

[RuralGuy]

The Module name cannot be the same as a Procedure it contains.

[RuralGuy]

I named my module basCode. It now compiles and works as I expected.

[ShostyFan]

Thank you for the fix and your patients.
it works as expected.

[RuralGuy]

Excellent! Glad we could help.