I 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
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 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
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 RelatedI 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 All, looking for some help.
I am looking for a way to link a help file to a button on the switchboard. I have several pages that all work well and open up the required forms and reports but I would like to add a help file to a button. Any idea would be appreciated thanks Williebear.
hi everyone,
I am new to MS Access. I've created a database and now i want to add a switchboard to launch whenever i open the database file. i created the switchboard form and table following the access help. but i can only view the switchboard when i manually open the switchboard form. can anyone tell me how to make the swithboard launch automatically? i'm using access 2003
thanks
I have a main switchboard, with a few Open Form command buttons on it, but what i would like to have is another button to bring the user to another switchboard screen giving the option to open a few Reports (obviosly the button on teh main switch board would read "Report Section), can this done, and also how would i go about putting Back or forward buttons withing the second (report Section) screen so the user can nav. to back to the main screen?
Thanks
All,
I have created a new switchboard but don't know where it is. When I create it using the Switchboard Manager and then click close, it doesn't appear under any of the options. I have also set is as default but it fails to appear on startup.
Silly question I know. Any ideas?
Many Thanks
version: MS Acess 2003
Was wondering how one might go about creating a swithboard similar to the Northwind one found in the sample database. Thanks
View 1 Replies View RelatedBrief Summary,
I have limited experience in Access but have a bit more understanding of databases and tables. I am helping a friend create and access database to track the time his employees spend on different job sites. i am using a template from Microsoft called "Time and Billing" I am going to be manipulating the structure a bit but other than that the template should work fine.
My main struggle is I need to have a screen that the employees access that takes them straight to add / edit a time sheet. i want the rest of the data, reports, views to be password protected. Ideally the switchboard would load up to a page that had a button from employees to click on where they would be taken to the form and a button the owner could click on, enter a password, and be taken into the back-end where the main switch board and the rest of the data resides.
If anyone can help me out that would be great. Oh yeah, The Access database in is Access 2000 being used on a machine running XP Pro.
Thanks in advance for your help.
Gary
Ok, so I will sound like the dumbest person but essentially what is a switch board?
I have searched this place I have searched google but no luck, all I get is that its a menu to navigate, so basically a form with buttons that open frm's qry's etc... I have made a main menu with a basic form so whats so special about a switchboard.
Cheers
I have two queries. I have a delete query and an append query. Is there anyway that I have these two queries run on a switchboard.
View 4 Replies View RelatedHelp - I made a switchboard and it went wrong, so deleted all of the sub switchboards and the switchboard icon in the forms window.
I have now made a new one, but I can't get it to appear in the forms window.
Any ideas?
Shellie xx
Hi
Can anyone tell me what the advantage (or difference) is in using a switchboard rather than just creating your own form and using command buttons etc?
Thanks
When I make a switchboard is there any way you can go to a table? or can you just go to a form or query? and when you make a switchboard and you have a button going to the form how can you go from the form back to the switchboard?
View 8 Replies View Relatedhi,
I've made switchboard. and change the properties of switchboard, namely the "don't show the menu bar". can anyone please explain to me, how to get it back?
in opposite case, I can kiss my db goodbye, for i can't make any changes into switchboard? or??
thanks a lot,
peace
I think this is a simple request for those who know.
I want to display my switchboard to a user group, (read and update ).
The switchboard needs to be full screen and have no means of being minimsed or close, except by the exit button (obviously) on the switchboard.I also do not want to show any of the tool bar icons as well.
I want to retain it as it is now to me as 'admin' when I log in, that is with the ability to minimise and close etc.and all icons
How do I achieve this?
I would like to know if there's a way of adding a switchboard page that goes to a table instead of only forms and reports and such? Because I have subdatasheets that I would like to see when I click on a button from the switchboard, instead of just simply going to a form and not being able to work as easy as it would be to work with a table that displays the subdatasheet right there.
Thank you,
Charlie
I have copies of a split database (front end) placed on each employee’s computer, and I noticed my switchboard screen does not appear when the employee opens the database on their computer. I went through a lot of work designing the switchboard and would like to have it appear upon opening the DB. I know everything in the database is linked so there is no reason the switchboard should not appear. Any suggestions on how to make this happen?
In addition, I have pictures on the switchboard buttons, and I also noticed when I go to the second screen, the buttons on the second switchboard screen uses the same pictures as the default screen. Is there a way to not have it do that?
Thanks.
hi guys i am working in customizing my current switchboard and i was wondering if there is any way to hide a button according to a user.. i currently have a tblusers with the username, switchboardid and itemnumber i want as a default, but i would also like to have a certain itemnumber to be hidden, is that possible?
this is the code i have in my switchboad and it works fine:
Private Sub Form_Open(Cancel As Integer)
txtUser_Name = GetUserName()
Dim intItem As Integer
Dim intSwitchbd As Integer
intItem = Nz(DLookup("[ItemNumber]", "tblusers", "[Userid] = '" & Me!txtUser_Name & "'"), 0)
intSwitchbd = Nz(DLookup("[SwitchboardID]", "tblusers", "[Userid] = '" & Me!txtUser_Name & "'"), 0)
Forms!Switchboard.Filter = "[ItemNumber] = " & intItem & " And [SwitchboardID] = " & intSwitchbd
Forms!Switchboard.Refresh
Me.FilterOn = True
any help will be apreciate it!!!
How can I add more buttons on the built-in switchboard that only has 8 !!!
Thanks
Marco