I have created a database where my boss wants a password on the one button to limit access. Is this possible. The button actually opens the Database Window (no one else knows the bypass to open it F11)
Thank you
Hi. In my database it opens up in switchboard mode. Is it possible to create a password within a switchboard?
I also different levels depending on which switchboard item they choose.
e.g. if they click "student" rather than "teacher"
How do I acheive this?
Thanks!
Is there anyway to set differentbutton images for each section of a switch board.
Say I have a main switch board with "Customers", "Orders" and "Products". I want each one of these buttons to have an image.
However, when you click on "Customers" you go to the customers swicthboard, which then has "add", "delete" and "edit". I would like these three buttons to have images, but different images to those on the main form.
I hope that is clear.
Is it possible to do this, and if so how?
Thanks.
is it possible to create a back button on your switchboard so from your main switchboard your subwitchboards or your sub sub switchboards you just click the back button to go the the previous switchboard?
View 13 Replies View RelatedI am trying to make a button that will open a 2nd menu in the switchboard.
Is there a way I can do this?
I know there's a DoCmd.OpenForm "Switchboard" but I am wondering if I can open a 2nd menu this way?
David
hello, I have a main switchboard that has a button which opens another switchboard, the button is labelled (has the caption) “Reports” but the trouble is when this other switchboard opens the button on here also has the name “reports” but I want it to be named: “open employee report” and if I change the name of the button on the other switchboard it changes it on both switchboards :mad: , anyone know of a way around this?
View 4 Replies View RelatedHi! Everyone on this forum has been very helpful so far, and I could really use some expertise now. I'm trying to update an existing DB designed by someone else (no longer here). I need to add a button to the switchboard for 2006, but I don't understand the code that has been written for the form I am trying to update. I've posted the code below. If anyone can help me decipher it enough to add my button, I would really appreciate it. My new button should be the 9th one. Thanks in advance:
************************************************** *
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
Private Sub FillOptions()
' Fill in the options for this switchboard page.
' The number of buttons on the form.
Const conNumButtons = 9
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim intOption As Integer
' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set dbs = CurrentDb()
strSQL = "SELECT * FROM [Switchboard Items]"
strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
strSQL = strSQL & " ORDER BY [ItemNumber];"
Set rst = dbs.OpenRecordset(strSQL)
' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rst.EOF) Then
Me![OptionLabel1].Caption = "There are no items for this switchboard page"
Else
While (Not (rst.EOF))
Me("Option" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
rst.MoveNext
Wend
End If
' Close the recordset and the database.
rst.Close
dbs.Close
End Sub
Private Function HandleButtonClick(intBtn As Integer)
' This function is called when a button is clicked.
' intBtn indicates which button was clicked.
' Constants for the commands that can be executed.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
' An error that is special cased.
Const conErrDoCmdCancelled = 2501
Dim dbs As Database
Dim rst As Recordset
On Error GoTo HandleButtonClick_Err
' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Switchboard Items", dbOpenDynaset)
rst.FindFirst "[SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
' If no item matches, report the error and exit the function.
If (rst.NoMatch) Then
MsgBox "There was an error reading the Switchboard Items table."
rst.Close
dbs.Close
Exit Function
End If
Select Case rst![Command]
' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rst![Argument]
' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rst![Argument], , , , acAdd
' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rst![Argument]
' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rst![Argument], acPreview
' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "WZMAIN80.sbm_Entry"
If (Err <> 0) Then MsgBox "Command not available."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions
' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase
' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rst![Argument]
' Run code.
Case conCmdRunCode
Application.Run rst![Argument]
' Any other command is unrecognized.
Case Else
MsgBox "Unknown option."
End Select
' Close the recordset and the database.
rst.Close
dbs.Close
HandleButtonClick_Exit:
Exit Function
HandleButtonClick_Err:
' If the action was cancelled by the user for
' some reason, don't display an error message.
' Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "There was an error executing the command.", vbCritical
Resume HandleButtonClick_Exit
End If
End Function
************************************************** ******
I found this simple password code that I use to open some forms:
Code:Dim x As Stringx = "password"Dim y As Stringy = InputBox("Enter password for form")If x <> y ThenMsgBox ("Invalid password")DoCmd.CancelEventEnd If
I would like to use it in a switchboard button, but the following statement is
OnClick already "=HandleButtonClick(4)". How can I incorporate this statement
with the code?
(I guess I don't really understanding how the auto-switchboard works.)
As always...Thank You
Is it possible to create a command button on an Access switchboard that will automatically backup a database? What code would I need? The command button wizard doesn't handle this task.
View 14 Replies View RelatedCan someone point me in the right direction of how to protect a button using a password please
cheers
Andy
Hi,
this is me again and I need your help!
How can I add a password to a button, i.e. whenever someone clicked on this button he has to enter a password in order to proceed to the form which the button opens?
any help will be very much appreciated!
Thanks and Regards!
CS.
I have a form with a text field and a command button. My code works for the password part but it is not checking for the 3 times and exit code. I'm not real up oon coding and not sure what Im missing Any help would be appreciated:
Private Sub cmdLogin_Click()
If txtPassword = "Test" Then
DoCmd.RunMacro "Mac_man_main"
Else: MsgBox ("Please Renter Correct Password"), vbOKOnly, "Error!", 0, 0
Exit Sub
End If
'If User Enters incorrect password 3 times database will shutdown
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!"
Application.Quit
End If
End Sub
Can someone point me in the right direction of how to protect a button using a password please
cheers
Andy
Hi, i have a slight problem that i could really do with some help on.
I have a form in which u can edit/add or delete details of a record. What i would like to do is when someone presse's the delete button i would like a box to pop up asking for a password to be entered before the record is deleted just to prevent certain records from being deleted.
Thanks,
Ben
On a "delete record" command button I want to put a password prompt so when you press it, it will only allow you to delete the record if a password is entered.
How?
Hello All, i am trying to write a macro or use VBA code or something that will allow me to change my password when i click on a command button.
For example i click on the command button and the change password box appears.
Can anybody help?
Thanks
Benn
p.s: Access Novice Here !!
I would like to ask how can i validate the username and password in a textbox? I have a frmLogin and frmMain.
I have also a table called 'tblUsers' with column fields 'username and password'.
If username is not found in database then a msgbox will prompt 'Username is not yet created'.
If username is okay and password is incorrect then msgbox will prompt 'Incorrect password'
If username and password is okay, then a msgbox will prompt 'Successfully login' and will continue to frmMain.
Being dealing with my database and having quite some trouble with it. Is it possible to track down what the users did, during the time they login into, database, is it possible to prompt users for password and username when they buttons for like, delete cmd, or update command.
Just a breif idea on what im trying to do.(hopefully it won't confused you all)
Im trying to created a 2 main username. One is for admin group and another is for users group. Then users can login in to database, however whenever the users update or delete entries in the database, the user will prompt for their username and password (not the users group login ). Is it possible to build a table to store in the username and password for the prompting purposes one.
Sorry for confusing question. Actually im trying to think of another way, but for now this complicated event all i have think of. Feel free to voice your suggestion here. Thanks alot. TQ
How can I generate a random string to a text field from a button. I
Say I have a form..
On the form I have:
X1 Button (BTN-Generate-Password)
X1 Text Field (TF-Generated-Password)
How can I make it so when the button is clicked a random string will appear in the text box
HTML Code:
Private Sub BTN-Generate-Password_Click()
(What Do I put here?) (Will it populate the Text Field?)
End Sub
- 9 Characters
- Upper and Lower Case
- Numeric & Alpha Numeric
- These Characters (!@#$%)
Hi All,
I have three excel files (ActualHires.xls, ActualPromotions.xls and
ActualSeparation.xls). These are password protected files (with the
same password). They are linked to an access database and whenever the
files are opened, one must supply the password and click the 'Enable
automatic refresh button.' What I was wondering was if this could be
done in access with a command button. I have pasted some code below
that I found but now I'm getting an error.
This is the code:
Dim BookNames As Variant
Dim B As Long
BookNames = Array("O:ExcelFilesActualHires.xls",
"O:ExcelFilesActualPromotions.xls",
"O:ExcelFilesActualSeparations.xls")
For B = LBound(BookNames) To UBound(BookNames)
WorkBooks.Open FileName:=BookNames(B), _
UpdateLinks:=3, Password:="*******"
WorkBooks(B).Close SaveChanges:=False
Next B
But when I click the button, I get this error:
Run-time error '9' Subscript out of range.
and this line is highlighted:
WorkBooks(B).Close SaveChanges:=False
Any help would be greatly appreciated.
Thanks.
I have a form in which I collect approvals from two different departments. To approve an item the user selects their name from a combobox, and then tick an option box to indicate approval. The combobox is from table 'Users' and has a query as a source with the following fields, 'UserNum, First, Last, Password'. The 'approval' fields are on table 'Approvals' and are yes/no fields.
What I'd like to have happen is that the user chooses their name from the combobox and then ticks the option box for approval; when ticked I would like a messagebox to appear asking for the users password based on the name chosen in the combobox.
Is this even possible?
All I am trying to do is insert to have a form with a "Delete Record" button on it. The problem is I don't want anyone to be able to delete a record, I would like someone to have to insert a password to confirm the delete.
View 13 Replies View RelatedI have recently split my database and added a password to the back end. I am now trying to re-link the tables as I have seen in other threads, but when I do this I am not prompted for the password I just get the message 'Not a valid password'
I must obviously be doing something wrong, can anyone help?
I am working on a database that will be an addition to an existing one on the company server. However, to make the overall layout not so complex and allow room for other additions in the future, I'd like to keep the databases separate. This will also ensure more efficiency, integrity and troubleshooting overall.
I have the original database with the name of "Cell MFG Screen" that contains a switchboard. I am now creating a db to keep track of manufacturing waste (which will also be on the same server when completed). That switchboard is called "Cell Waste Weight". Again, I want to keep these db's separated from one another as well being able to add future dbs. Now, what my plan is to make up a one db that consists of only a switchboard that will be used as the main switchboard to be able to navigate to other dbs that are located on the server.
Does anyone know how this is done?
Thank you in advance for your help,
~Kilch
Hi,
Firstly thank you for your help, this should be a simple one I hope, but is cracking my head on the wall. Have searched and searched and can't find an answer.
I have an Access Db that is not password protected, but is asking for a password.
It opens on any other machine fine?
I think my version of Access is playing funny buggers with me, any suggestions?
I was trying to implement some security on this Db, which is why it happened I'm sure. I ran the security wizard, set-up two users and admin with passwords, I have the output file to "recreate" something too.
Issue is, I then copied this Db to another computer for use on there, it worked without a Password, so didn't need to worry about it, now I can't open any Db on my machine??
Your help on this obvious pointer would be great!
C
hi pals
i have set username and password for ms access file.
unfortunately i have forget that password?
how to crack that username and passowrd?
is there any softwares available?
i can easily crack the database pasword? but how to crack username and password of ms access file.