Docmd. run action queries? (1 Viewer)

stephaniechongg · Feb 13, 2016

I have set a prompt for the user's password before allowing the user to access the run query

Code:

Private Sub imgIncreasePayslipbyDept_Click()
   Dim EnterStaffPosition As String
   Dim strStaffPosition As String
   EnterStaffPassword = InputBox("Enter your Staff Password", "Password Required")
   If EnterStaffPassword <> "" Then
       strStaffPosition = Nz(DLookup("[StaffPosition]", "[Staff_Chelsea]", "[StaffPassword]=" & Chr(34) & EnterStaffPassword & Chr(34)), "")
       If strStaffPosition = "Store Manager" Then
        [COLOR="red"]Docmd. run action query[/COLOR]
        ElseIf strStaffPosition = "Supervisor" Then
        [COLOR="Red"]   Docmd. run action query[/COLOR]
       Else
           MsgBox "You are not a manager/supervisor!"
       End If
   End If
End Sub

I am facing difficulties running the query and i also have doubts of the view that users might see after they have ran the query. I know that you are able to use runsql but how do I go around it? :banghead:

i would appreciate your help!

pbaldy · Feb 13, 2016

Options include

CurrentDb.Execute

Or

DoCmd.OpenQuery

If the query has form references.

plog · Feb 13, 2016

Here's a link to DoCmd.OpenQuery (https://msdn.microsoft.com/en-us/library/office/ff192746.aspx).

...and i also have doubts of the view that users might see after they have ran the query

By that, do you mean to the user nothing seems different when they do run the query? If so, you are correct, the query would execue and nothing would seem to change to the user. One thing I would do is capture what is going to change (via a DCount), then after the action query see if they did in fact change (via a DCount) and show the user a message box informing them of the changes. That way they know something happened.

Mile-O · Feb 15, 2016

MsgBox "You are not a manager/supervisor!"

Save the user the hassle of asking for passwords by just giving them a UserLevel and referring to it when you want to check something. Have a look at my ThisUser class here: http://www.access-programmers.co.uk/forums/showthread.php?t=275371

Docmd. run action queries? (1 Viewer)

stephaniechongg

Registered User.

pbaldy

Wino Moderator

plog

Banishment Pending

Mile-O

Back once again...

Similar threads

Users who are viewing this thread