|
security
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Command Button PasswordCould anyone tell me if it is possible to write some code into the "Onclick"
Event procedure that requires a password before the user can access a command Button or Ctrl Tab? Thanks for any help here's an example of one way to do it, as
Private Sub Command0_Click() If InputBox("enter the password") = "something" Then <do whatever the command button is supposed to do here> Else MsgBox "sorry, Charlie" End If End Sub hth Show quoteHide quote "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > Could anyone tell me if it is possible to write some code into the "Onclick" > Event procedure that requires a password before the user can access a command > Button or Ctrl Tab? > Thanks for any help Thanks for that Tina. How can I add the code you supplied to the existing
procedure that currently reads as follows: Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click Dim stDocName As String stDocName = "PLANNED GIVING WEEKLY" DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: Exit Sub Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: MsgBox Err.Description Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click End Sub Show quoteHide quote "tina" wrote: > here's an example of one way to do it, as > > Private Sub Command0_Click() > > If InputBox("enter the password") = "something" Then > <do whatever the command button is supposed to do here> > Else > MsgBox "sorry, Charlie" > End If > > End Sub > > hth > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > Could anyone tell me if it is possible to write some code into the > "Onclick" > > Event procedure that requires a password before the user can access a > command > > Button or Ctrl Tab? > > Thanks for any help > > > Roger,
Although the code provided by tina may appear to work, nothing stops users from running the query called "PLANNED GIVING WEEKLY" from the database window. The code behind this button simply calls a query and opens it on the screen for users to edit. If you open the database window and click on the Queries tab, you'll find a query called "PLANNED GIVING WEEKLY", if you double-click it, it will open for you to edit. Nothing stops users from opening it from there. I'm assuming you took care of this "back door". Ray Show quoteHide quote "Roger Bell" wrote: > Thanks for that Tina. How can I add the code you supplied to the existing > procedure that currently reads as follows: > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > Dim stDocName As String > > stDocName = "PLANNED GIVING WEEKLY" > DoCmd.OpenQuery stDocName, acNormal, acEdit > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > Exit Sub > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > MsgBox Err.Description > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > End Sub > > > "tina" wrote: > > > here's an example of one way to do it, as > > > > Private Sub Command0_Click() > > > > If InputBox("enter the password") = "something" Then > > <do whatever the command button is supposed to do here> > > Else > > MsgBox "sorry, Charlie" > > End If > > > > End Sub > > > > hth > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > Could anyone tell me if it is possible to write some code into the > > "Onclick" > > > Event procedure that requires a password before the user can access a > > command > > > Button or Ctrl Tab? > > > Thanks for any help > > > > > > Thanks for that Ray, understood, but can you tell me how I incorporate the
code Tina supplied into my existing "Onclick" event procedure as mentioned in my previous reply. Also is it possible to have a similar procedure for opening a specific page within a "Ctrl Tab"? Thanks in advance Show quoteHide quote "Ray Cacciatore" wrote: > Roger, > > Although the code provided by tina may appear to work, nothing stops users > from running the query called "PLANNED GIVING WEEKLY" from the database > window. The code behind this button simply calls a query and opens it on the > screen for users to edit. > > If you open the database window and click on the Queries tab, you'll find a > query called "PLANNED GIVING WEEKLY", if you double-click it, it will open > for you to edit. Nothing stops users from opening it from there. I'm assuming > you took care of this "back door". > > Ray > > "Roger Bell" wrote: > > > Thanks for that Tina. How can I add the code you supplied to the existing > > procedure that currently reads as follows: > > > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > Dim stDocName As String > > > > stDocName = "PLANNED GIVING WEEKLY" > > DoCmd.OpenQuery stDocName, acNormal, acEdit > > > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > Exit Sub > > > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > MsgBox Err.Description > > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > End Sub > > > > > > "tina" wrote: > > > > > here's an example of one way to do it, as > > > > > > Private Sub Command0_Click() > > > > > > If InputBox("enter the password") = "something" Then > > > <do whatever the command button is supposed to do here> > > > Else > > > MsgBox "sorry, Charlie" > > > End If > > > > > > End Sub > > > > > > hth > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > > Could anyone tell me if it is possible to write some code into the > > > "Onclick" > > > > Event procedure that requires a password before the user can access a > > > command > > > > Button or Ctrl Tab? > > > > Thanks for any help > > > > > > > > > > is it possible to have a similar procedure for well, pages in a tab control don't "open" and "close", you merely navigate> opening a specific page within a "Ctrl Tab"? from one to another. here's one way to stop the uninvited user from moving to a "protected" tab, as Private Sub TabCtl0_Change() If Me!TabCtl0 = 1 Then If Not InputBox("enter password") = "something" Then Me!TabCtl0 = 0 MsgBox "sorry, Charlie" End If End If End Sub in the above example, the name of the tab control is TabCtl. each page in a tab control has an index value - the first page's index value is 0, the second page's value is 1, etc. the "value" of the tab control is the index value of the currently selected tab page. so the above code says: if the user clicks on the second tab page (which has an index value of 1), an input box will open for the password to be entered; if the password is not correct, the first tab page is selected instead; if the password IS correct, the second tab page is selected as the user intended. personally, i prefer to not show things to users that they can't actually get at - it just causes frustration. i'd be more likely to hide the "password-protected" page, and make it visible only when the correct password is provided. to do that, you can use a command button, something along the lines of Private Sub Command0_Click() If InputBox("enter the password") = "something" Then Me!TabPageName.Visible = True Else MsgBox "sorry, Charlie" End If End Sub hth Show quoteHide quote "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message news:4A4007F9-FC26-4AAD-BBC1-F7260C09864D@microsoft.com... > Thanks for that Ray, understood, but can you tell me how I incorporate the > code Tina supplied into my existing "Onclick" event procedure as mentioned in > my previous reply. Also is it possible to have a similar procedure for > opening a specific page within a "Ctrl Tab"? > > Thanks in advance > > "Ray Cacciatore" wrote: > > > Roger, > > > > Although the code provided by tina may appear to work, nothing stops users > > from running the query called "PLANNED GIVING WEEKLY" from the database > > window. The code behind this button simply calls a query and opens it on the > > screen for users to edit. > > > > If you open the database window and click on the Queries tab, you'll find a > > query called "PLANNED GIVING WEEKLY", if you double-click it, it will open > > for you to edit. Nothing stops users from opening it from there. I'm assuming > > you took care of this "back door". > > > > Ray > > > > "Roger Bell" wrote: > > > > > Thanks for that Tina. How can I add the code you supplied to the existing > > > procedure that currently reads as follows: > > > > > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > > > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > Dim stDocName As String > > > > > > stDocName = "PLANNED GIVING WEEKLY" > > > DoCmd.OpenQuery stDocName, acNormal, acEdit > > > > > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > Exit Sub > > > > > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > MsgBox Err.Description > > > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > End Sub > > > > > > > > > "tina" wrote: > > > > > > > here's an example of one way to do it, as > > > > > > > > Private Sub Command0_Click() > > > > > > > > If InputBox("enter the password") = "something" Then > > > > <do whatever the command button is supposed to do here> > > > > Else > > > > MsgBox "sorry, Charlie" > > > > End If > > > > > > > > End Sub > > > > > > > > hth > > > > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > > > Could anyone tell me if it is possible to write some code into the > > > > "Onclick" > > > > > Event procedure that requires a password before the user can access a > > > > command > > > > > Button or Ctrl Tab? > > > > > Thanks for any help > > > > > > > > > > > > Thanks again Tina. The Command button is working fine thanks to your
expertise. However, I tried the code in the Tab Control as follows: ("Onclick event") Private Sub Planned_Giving_Information_Change() If Me!Planned_Giving_Information = 6 Then If Not InputBox("Please enter Password") = "roger" Then Me!Householder_1 = 0 MsgBox "Sorry, Incorrect Password" End If End If End Sub where Planned_Giving_Information is the name and has the value of 6. Householder_1 has the value of 0. Obviously, I have got it wrong & would appreciate your guidance again and thank you for your patience. Show quoteHide quote "tina" wrote: > > is it possible to have a similar procedure for > > opening a specific page within a "Ctrl Tab"? > > well, pages in a tab control don't "open" and "close", you merely navigate > from one to another. here's one way to stop the uninvited user from moving > to a "protected" tab, as > > Private Sub TabCtl0_Change() > > If Me!TabCtl0 = 1 Then > If Not InputBox("enter password") = "something" Then > Me!TabCtl0 = 0 > MsgBox "sorry, Charlie" > End If > End If > > End Sub > > in the above example, the name of the tab control is TabCtl. each page in a > tab control has an index value - the first page's index value is 0, the > second page's value is 1, etc. the "value" of the tab control is the index > value of the currently selected tab page. so the above code says: if the > user clicks on the second tab page (which has an index value of 1), an input > box will open for the password to be entered; if the password is not > correct, the first tab page is selected instead; if the password IS correct, > the second tab page is selected as the user intended. > > personally, i prefer to not show things to users that they can't actually > get at - it just causes frustration. i'd be more likely to hide the > "password-protected" page, and make it visible only when the correct > password is provided. to do that, you can use a command button, something > along the lines of > > Private Sub Command0_Click() > > If InputBox("enter the password") = "something" Then > Me!TabPageName.Visible = True > Else > MsgBox "sorry, Charlie" > End If > > End Sub > > hth > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > news:4A4007F9-FC26-4AAD-BBC1-F7260C09864D@microsoft.com... > > Thanks for that Ray, understood, but can you tell me how I incorporate the > > code Tina supplied into my existing "Onclick" event procedure as mentioned > in > > my previous reply. Also is it possible to have a similar procedure for > > opening a specific page within a "Ctrl Tab"? > > > > Thanks in advance > > > > "Ray Cacciatore" wrote: > > > > > Roger, > > > > > > Although the code provided by tina may appear to work, nothing stops > users > > > from running the query called "PLANNED GIVING WEEKLY" from the database > > > window. The code behind this button simply calls a query and opens it on > the > > > screen for users to edit. > > > > > > If you open the database window and click on the Queries tab, you'll > find a > > > query called "PLANNED GIVING WEEKLY", if you double-click it, it will > open > > > for you to edit. Nothing stops users from opening it from there. I'm > assuming > > > you took care of this "back door". > > > > > > Ray > > > > > > "Roger Bell" wrote: > > > > > > > Thanks for that Tina. How can I add the code you supplied to the > existing > > > > procedure that currently reads as follows: > > > > > > > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > > > > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > Dim stDocName As String > > > > > > > > stDocName = "PLANNED GIVING WEEKLY" > > > > DoCmd.OpenQuery stDocName, acNormal, acEdit > > > > > > > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > Exit Sub > > > > > > > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > MsgBox Err.Description > > > > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > End Sub > > > > > > > > > > > > "tina" wrote: > > > > > > > > > here's an example of one way to do it, as > > > > > > > > > > Private Sub Command0_Click() > > > > > > > > > > If InputBox("enter the password") = "something" Then > > > > > <do whatever the command button is supposed to do here> > > > > > Else > > > > > MsgBox "sorry, Charlie" > > > > > End If > > > > > > > > > > End Sub > > > > > > > > > > hth > > > > > > > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > > > > Could anyone tell me if it is possible to write some code into the > > > > > "Onclick" > > > > > > Event procedure that requires a password before the user can > access a > > > > > command > > > > > > Button or Ctrl Tab? > > > > > > Thanks for any help > > > > > > > > > > > > > > > > > > I actually found my Brain, which is rare, and got this to work. Thanks again
from the bottom of my heart for all your invaluable help. May all your days be filled with Peace and Happiness. Show quoteHide quote "Roger Bell" wrote: > Thanks again Tina. The Command button is working fine thanks to your > expertise. However, I tried the code in the Tab Control as follows: > ("Onclick event") > > Private Sub Planned_Giving_Information_Change() > If Me!Planned_Giving_Information = 6 Then > If Not InputBox("Please enter Password") = "roger" Then > Me!Householder_1 = 0 > MsgBox "Sorry, Incorrect Password" > End If > End If > End Sub > > where Planned_Giving_Information is the name and has the value of 6. > Householder_1 has the value of 0. Obviously, I have got it wrong & would > appreciate your guidance again and thank you for your patience. > > "tina" wrote: > > > > is it possible to have a similar procedure for > > > opening a specific page within a "Ctrl Tab"? > > > > well, pages in a tab control don't "open" and "close", you merely navigate > > from one to another. here's one way to stop the uninvited user from moving > > to a "protected" tab, as > > > > Private Sub TabCtl0_Change() > > > > If Me!TabCtl0 = 1 Then > > If Not InputBox("enter password") = "something" Then > > Me!TabCtl0 = 0 > > MsgBox "sorry, Charlie" > > End If > > End If > > > > End Sub > > > > in the above example, the name of the tab control is TabCtl. each page in a > > tab control has an index value - the first page's index value is 0, the > > second page's value is 1, etc. the "value" of the tab control is the index > > value of the currently selected tab page. so the above code says: if the > > user clicks on the second tab page (which has an index value of 1), an input > > box will open for the password to be entered; if the password is not > > correct, the first tab page is selected instead; if the password IS correct, > > the second tab page is selected as the user intended. > > > > personally, i prefer to not show things to users that they can't actually > > get at - it just causes frustration. i'd be more likely to hide the > > "password-protected" page, and make it visible only when the correct > > password is provided. to do that, you can use a command button, something > > along the lines of > > > > Private Sub Command0_Click() > > > > If InputBox("enter the password") = "something" Then > > Me!TabPageName.Visible = True > > Else > > MsgBox "sorry, Charlie" > > End If > > > > End Sub > > > > hth > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > news:4A4007F9-FC26-4AAD-BBC1-F7260C09864D@microsoft.com... > > > Thanks for that Ray, understood, but can you tell me how I incorporate the > > > code Tina supplied into my existing "Onclick" event procedure as mentioned > > in > > > my previous reply. Also is it possible to have a similar procedure for > > > opening a specific page within a "Ctrl Tab"? > > > > > > Thanks in advance > > > > > > "Ray Cacciatore" wrote: > > > > > > > Roger, > > > > > > > > Although the code provided by tina may appear to work, nothing stops > > users > > > > from running the query called "PLANNED GIVING WEEKLY" from the database > > > > window. The code behind this button simply calls a query and opens it on > > the > > > > screen for users to edit. > > > > > > > > If you open the database window and click on the Queries tab, you'll > > find a > > > > query called "PLANNED GIVING WEEKLY", if you double-click it, it will > > open > > > > for you to edit. Nothing stops users from opening it from there. I'm > > assuming > > > > you took care of this "back door". > > > > > > > > Ray > > > > > > > > "Roger Bell" wrote: > > > > > > > > > Thanks for that Tina. How can I add the code you supplied to the > > existing > > > > > procedure that currently reads as follows: > > > > > > > > > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > > > > > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > > > Dim stDocName As String > > > > > > > > > > stDocName = "PLANNED GIVING WEEKLY" > > > > > DoCmd.OpenQuery stDocName, acNormal, acEdit > > > > > > > > > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > > Exit Sub > > > > > > > > > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > > MsgBox Err.Description > > > > > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > > > End Sub > > > > > > > > > > > > > > > "tina" wrote: > > > > > > > > > > > here's an example of one way to do it, as > > > > > > > > > > > > Private Sub Command0_Click() > > > > > > > > > > > > If InputBox("enter the password") = "something" Then > > > > > > <do whatever the command button is supposed to do here> > > > > > > Else > > > > > > MsgBox "sorry, Charlie" > > > > > > End If > > > > > > > > > > > > End Sub > > > > > > > > > > > > hth > > > > > > > > > > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > > > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > > > > > Could anyone tell me if it is possible to write some code into the > > > > > > "Onclick" > > > > > > > Event procedure that requires a password before the user can > > access a > > > > > > command > > > > > > > Button or Ctrl Tab? > > > > > > > Thanks for any help > > > > > > > > > > > > > > > > > > > > > > > > good job! and you're very welcome :)
Show quoteHide quote "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message news:5B9FFB4F-912B-4EA6-9495-47C7F8D87ACB@microsoft.com... > I actually found my Brain, which is rare, and got this to work. Thanks again > from the bottom of my heart for all your invaluable help. May all your days > be filled with Peace and Happiness. > > > "Roger Bell" wrote: > > > Thanks again Tina. The Command button is working fine thanks to your > > expertise. However, I tried the code in the Tab Control as follows: > > ("Onclick event") > > > > Private Sub Planned_Giving_Information_Change() > > If Me!Planned_Giving_Information = 6 Then > > If Not InputBox("Please enter Password") = "roger" Then > > Me!Householder_1 = 0 > > MsgBox "Sorry, Incorrect Password" > > End If > > End If > > End Sub > > > > where Planned_Giving_Information is the name and has the value of 6. > > Householder_1 has the value of 0. Obviously, I have got it wrong & would > > appreciate your guidance again and thank you for your patience. > > > > "tina" wrote: > > > > > > is it possible to have a similar procedure for > > > > opening a specific page within a "Ctrl Tab"? > > > > > > well, pages in a tab control don't "open" and "close", you merely navigate > > > from one to another. here's one way to stop the uninvited user from moving > > > to a "protected" tab, as > > > > > > Private Sub TabCtl0_Change() > > > > > > If Me!TabCtl0 = 1 Then > > > If Not InputBox("enter password") = "something" Then > > > Me!TabCtl0 = 0 > > > MsgBox "sorry, Charlie" > > > End If > > > End If > > > > > > End Sub > > > > > > in the above example, the name of the tab control is TabCtl. each page in a > > > tab control has an index value - the first page's index value is 0, the > > > second page's value is 1, etc. the "value" of the tab control is the index > > > value of the currently selected tab page. so the above code says: if the > > > user clicks on the second tab page (which has an index value of 1), an input > > > box will open for the password to be entered; if the password is not > > > correct, the first tab page is selected instead; if the password IS correct, > > > the second tab page is selected as the user intended. > > > > > > personally, i prefer to not show things to users that they can't actually > > > get at - it just causes frustration. i'd be more likely to hide the > > > "password-protected" page, and make it visible only when the correct > > > password is provided. to do that, you can use a command button, something > > > along the lines of > > > > > > Private Sub Command0_Click() > > > > > > If InputBox("enter the password") = "something" Then > > > Me!TabPageName.Visible = True > > > Else > > > MsgBox "sorry, Charlie" > > > End If > > > > > > End Sub > > > > > > hth > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > news:4A4007F9-FC26-4AAD-BBC1-F7260C09864D@microsoft.com... > > > > Thanks for that Ray, understood, but can you tell me how I incorporate the > > > > code Tina supplied into my existing "Onclick" event procedure as mentioned > > > in > > > > my previous reply. Also is it possible to have a similar procedure for > > > > opening a specific page within a "Ctrl Tab"? > > > > > > > > Thanks in advance > > > > > > > > "Ray Cacciatore" wrote: > > > > > > > > > Roger, > > > > > > > > > > Although the code provided by tina may appear to work, nothing stops > > > users > > > > > from running the query called "PLANNED GIVING WEEKLY" from the database > > > > > window. The code behind this button simply calls a query and opens it on > > > the > > > > > screen for users to edit. > > > > > > > > > > If you open the database window and click on the Queries tab, you'll > > > find a > > > > > query called "PLANNED GIVING WEEKLY", if you double-click it, it will > > > open > > > > > for you to edit. Nothing stops users from opening it from there. I'm > > > assuming > > > > > you took care of this "back door". > > > > > > > > > > Ray > > > > > > > > > > "Roger Bell" wrote: > > > > > > > > > > > Thanks for that Tina. How can I add the code you supplied to the > > > existing > > > > > > procedure that currently reads as follows: > > > > > > > > > > > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > > > > > > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > > > > > Dim stDocName As String > > > > > > > > > > > > stDocName = "PLANNED GIVING WEEKLY" > > > > > > DoCmd.OpenQuery stDocName, acNormal, acEdit > > > > > > > > > > > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > > > Exit Sub > > > > > > > > > > > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > > > > > > MsgBox Err.Description > > > > > > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > "tina" wrote: > > > > > > > > > > > > > here's an example of one way to do it, as > > > > > > > > > > > > > > Private Sub Command0_Click() > > > > > > > > > > > > > > If InputBox("enter the password") = "something" Then > > > > > > > <do whatever the command button is supposed to do here> > > > > > > > Else > > > > > > > MsgBox "sorry, Charlie" > > > > > > > End If > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > hth > > > > > > > > > > > > > > > > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > > > > > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > > > > > > Could anyone tell me if it is possible to write some code into the > > > > > > > "Onclick" > > > > > > > > Event procedure that requires a password before the user can > > > access a > > > > > > > command > > > > > > > > Button or Ctrl Tab? > > > > > > > > Thanks for any help > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > How can I add the code you supplied to the existing Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click()> procedure On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click Dim stDocName As String stDocName = "PLANNED GIVING WEEKLY" If InputBox("enter the password") = "something" Then DoCmd.OpenQuery stDocName, acNormal, acEdit Else MsgBox "sorry, Charlie" End If Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: Exit Sub Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: MsgBox Err.Description Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click End Sub hth Show quoteHide quote "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message news:A3CF6A2F-A397-413D-8FB3-82DAC3695B2E@microsoft.com... > Thanks for that Tina. How can I add the code you supplied to the existing > procedure that currently reads as follows: > > Private Sub ENTRE_WEEKLY_PLANNED_GIVING_Click() > On Error GoTo Err_ENTRE_WEEKLY_PLANNED_GIVING_Click > > Dim stDocName As String > > stDocName = "PLANNED GIVING WEEKLY" > DoCmd.OpenQuery stDocName, acNormal, acEdit > > Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click: > Exit Sub > > Err_ENTRE_WEEKLY_PLANNED_GIVING_Click: > MsgBox Err.Description > Resume Exit_ENTRE_WEEKLY_PLANNED_GIVING_Click > > End Sub > > > "tina" wrote: > > > here's an example of one way to do it, as > > > > Private Sub Command0_Click() > > > > If InputBox("enter the password") = "something" Then > > <do whatever the command button is supposed to do here> > > Else > > MsgBox "sorry, Charlie" > > End If > > > > End Sub > > > > hth > > > > > > "Roger Bell" <RogerB***@discussions.microsoft.com> wrote in message > > news:82883FC1-BEB7-40CE-AB06-3CF5B2B452E9@microsoft.com... > > > Could anyone tell me if it is possible to write some code into the > > "Onclick" > > > Event procedure that requires a password before the user can access a > > command > > > Button or Ctrl Tab? > > > Thanks for any help > > > > > > 
Other interesting topics
Can i require password from operating system for mdb file to open?
Security log ins Listing current users at startup on the autoex form Auto join to MDW Hiding Backend Files Exclusive Access Baffled By Security Wizard References trying to send a secure file how to import form,report or module objects with project security |
|||||||||||||||||||||||
