VBA code granting privileges

  • Thread starter Thread starter Lincoln
  • Start date Start date
L

Lincoln

I have a secured database created with Access 2003, and used by Office
2007 users. I need to grant privileges to a query; that for reasons of
design, is deleted and recreated based on user input. It seems that
deleting the query removes the privileges with it. Obviously their may
be other ways of doing this, but I am locked in.

I am looking to grant privileges to a query, lets call it,
"my_deleted_and_replaced_query" using VBA code in a module, and need
help with the syntax. It should go something like this:

Grant privileges to my_deleted_and_replaced_query for all users or
groups in the database.

Lincoln
 
Do you have to delete it?
Could you do something like
        qdf.SQL = "Select * From Customers"
and later
        qdf.SQL = "Select * From Employees"
Click to expand...

Salad,
Thanks for the response; but I am not looking to re-engineer the code
right now. It is really a simple line of code, I am just not familiar
enough with Raw SQL syntax. Any help you can give would be
appreciated. A little more on what really happens.

My code looks like this:

////////////////////////////////////////////////////////////////////
Dim dbs As dao.Database
Dim qdf As dao.QueryDef
Dim StrSQl As String
Set dbs = CurrentDb

DoCmd.DeleteObject acQuery, "OutputQuery"
StrSQl = Forms("Distribution")("advance_search").Form.RecordSource
Set qdf = dbs.CreateQueryDef("OutputQuery", StrSQl)
///////////////////////////////////////////////////////////////////

After the user makes a selection the query "OutputQuery" is created; I
simply want to add a statement that re-establishes permissions for all
members of the database.

This line of code does not generate an error, but it does not work; I
am sure my syntax is fudged up...
??????' StrSQl = "grant all privileges on OutputQuery to Users" ????

Lincoln
 
Back
Top