create A function that refrences forms

[sdel_nevo]

Hi guys



I am stopping users from right clicking on specific forms by placing this code into the forms onload event

If strAccess = "Admin" Then
      Me.ShortcutMenu = True
   Else
      Me.ShortcutMenu = False
   End If

the code above works as expected, but I would like to replace this and just call it from a module to cut down on coding

the code I have in my module is this

   Public Function RightClickMenu()
Dim objAllForms As AccessObject, dbs As Object
   Set dbs = Application.CurrentProject
   ' Search for open AccessObject objects in AllForms collection.
   For Each objAllForms In dbs.AllForms
      If objAllForms.IsLoaded = True And strAccess = "Admin" Then
         Me.ShortcutMenu = True
      Else
         Me.ShortcutMenu = False
      End If
        
   Next objAllForms
end function

then I want to call this code when a form opens using the forms on open event

I'm guessing something like this

Private Sub Form_Load()
   
    
   'then we run the following button click events

RightClickMenu
End Sub

what I cant get my head around is how I would call the function so that the me.shortcutmenu code works when called from a form

for the love of me I can't work out how to do this

many thanks
Steve

[pbaldy]

I would run the function for a single form, the name of which is passed in a string. Then I think this would work.

Forms(VariableName).ShortcutMenu = True

[davegri]

I'm guessing something like this

What happens? You haven't stated a problem.

[sdel_nevo]

Hi Guys

Thanks for the replys

@BaldyWeb I will take a look at that option

@davegri when debugging the module I get "compile error Invalid use of ME" error

Steve

[pbaldy]

You can't use Me in a standard module. Me refers to the object the code is in, and there is no object associated with a standard module.

[sdel_nevo]

Hi Pbaldy

yes, that's the part I'm stuck with.

I'm not sure how to reference the currently loaded form rather than "me." in the module,
then call the module from a form that's currently loaded

so for example


on the frmMainDashboard onload event I call "Rightclickmenu"

the Rightclickmenu code in the module updates the Me.ShortcutMenu to refrence frmMainDashboard

steve

[pbaldy]

In my view it's inefficient to loop all forms every time, which is why I suggested running it for a single form. The function would start with:

Public Function RightClickMenu(strFormName As String)

and get called like:


RightClickMenu Me.Name

[pbaldy]

It occurs to me you could use ActiveForm in the function and skip passing the form name.

[sdel_nevo]

Hi pbaldy

Many thanks for the help
When I'm back at my desk in the morning, I will give that a go

Steve

[pbaldy]

Slacker, it's only 10am!

No problem Steve, post back if you get stuck.

[sdel_nevo]

Don't you just love 10am 😀
Many thanks mate, will let you know how it goes

Steve

[sdel_nevo]

Hi again

So something like this ?Screen.ActiveForm.ShortcutMenu

To replace the "me.shortcutmenu" in the module code


Steve

[pbaldy]

Yes, but you're supposed to be at the pub!

[sdel_nevo]

Hi mate

That's great and many thanks, will have a cold one for you 😀

Steve

[HiTechCoach]

Hi guys

I am stopping users from right clicking on specific forms by placing this code into the forms onload event

If strAccess = "Admin" Then
      Me.ShortcutMenu = True
   Else
      Me.ShortcutMenu = False
   End If

the code above works as expected, but I would like to replace this and just call it from a module to cut down on coding

the code I have in my module is this

   Public Function RightClickMenu()
Dim objAllForms As AccessObject, dbs As Object
   Set dbs = Application.CurrentProject
   ' Search for open AccessObject objects in AllForms collection.
   For Each objAllForms In dbs.AllForms
      If objAllForms.IsLoaded = True And strAccess = "Admin" Then
         Me.ShortcutMenu = True
      Else
         Me.ShortcutMenu = False
      End If
        
   Next objAllForms
end function

then I want to call this code when a form opens using the forms on open event

I'm guessing something like this

Private Sub Form_Load()
   
    
   'then we run the following button click events

RightClickMenu
End Sub

what I cant get my head around is how I would call the function so that the me.shortcutmenu code works when called from a form

for the love of me I can't work out how to do this

many thanks
Steve

Steve,

I do something similar to set the ribbon and shortcut menu based on the user.

Your original code was very close. To make it work you need to replace the ME with objAllForms .

Like this:

   Public Function RightClickMenu()
Dim objAllForms As AccessObject, dbs As Object
   Set dbs = Application.CurrentProject
   ' Search for open AccessObject objects in AllForms collection.
   For Each objAllForms In dbs.AllForms
      If objAllForms.IsLoaded = True And strAccess = "Admin" Then
         objAllForms.ShortcutMenu = True
      Else
         objAllForms.ShortcutMenu = False
      End If
        
   Next objAllForms
end function

I use a global function to work with forms. I pass a reference to the form object so I can set lots of properties

I would write your function like this:

Public Function RightClickMenu(frm as Form)
      If strAccess = "Admin" Then
         frm.ShortcutMenu = True
      Else
         frm.ShortcutMenu = False
      End If
        
   
End Function

The way I like to write the code would be:

Public Function RightClickMenu(frm as Form)
      
         frm.ShortcutMenu = (strAccess = "Admin")
   
End Function

Call it like this:

Private Sub Form_Load()
   
    
   'then we run the following button click events

  Call RightClickMenu(Me)
End Sub

Since what you want can actually be done with a single line of code, you can save the overhead of calling a function.