Open Table From Switchboard
Nov 28, 2004
i'm creating a database which has several switchboards. i have several tables, each saved in the same format with the table name representing the date of the report, for example table 1 is saved as 100204(Oct 2, 2004), and table 2 is 100904, so on and so forth. I have a text box which a user needs to enter the date of the report they want to look at and i need to be able to open the desired table by date entered. I've had a couple of vb classes but haven't used it in a while. can anyone help? thx in advance.
View Replies
ADVERTISEMENT
Mar 8, 2006
Is there i way so that when you open up your database you can get your Switchboard to open up??? is there a simple box to click to make it do this that i am missing or is it some VB code?
Help please thanks alot
l33tskyline aka Chewstar
View 5 Replies
View Related
Oct 11, 2004
I know stupid question. When I open my database I want the switchboard to open automatically, but it doesn't. What do I do to fix this?
Thanks
Biz
View 2 Replies
View Related
Nov 18, 2004
Ok, quick question.
I am using a switchboard to open my main form, 'frmJobLog'. This main form has a tab control with four tabs. How do open the form to the 4th tab using a command button on the switchboard?
Thanks in advance.
View 4 Replies
View Related
May 30, 2006
Just curious. I'm trying to set up a switchboard to guide users to the right place in my database. I would like to have one button on the switchboard to open a standard form with all the infomation in it already. and then I would like to have a button to open a form that is blank and then adds to the previous form I mentioned.
Any help will be greatly appreciated.
View 2 Replies
View Related
Mar 15, 2013
I would like to have the Switchboard I created open when the database is selected. I used Tools/Startup to set this up. It works to a point. The database window opens and THEN the Switchboard opens (on top of the database window). There are some who I wish not to see the database navigation window). Also, is it possible to OPEN the switchboard again when a Form is closed?
View 1 Replies
View Related
Feb 3, 2005
I get the feeling I'm really missing something glaringly obvious here but I'm struggling.....
I have a combo box on my switchboard that looks up field txtOfficer in a query and then want it to open up a new form containing only those records relating to the officer name selectedtxtOfficer
The rowsource for the combo is:
SELECT DISTINCTROW [qryMain].[txtName] FROM [qryMain];
and the on click event is:
DoCmd.OpenForm "frmFiltered", , , "[txtName] = " & Me.cmbOfficer.Column(0), acFormEdit
When I select a name from the combo I get a parameter box and have to type in the name to open up the filtered records form. How can I get rid of it so the selection is one seamless process? :confused:
View 2 Replies
View Related
Jul 19, 2005
Hi,
Does anyone know if I can just show the switchboard only so that it looks like a program, or if I can use an existing MDB to create an .exe??
View 2 Replies
View Related
Sep 27, 2005
Please help!
I've done a search of the forums, the results of which have more-or-less caused me to understand (roughly) what the problem might be and how to locate the code which is causing it. Sadly, I am a bit of a Visual Basic virgin, and I am reluctant to wade right in because if I screw up this database I'll have decimated my company's advertising and marketing strategy (mailouts!).
I was trying to make a command button on a switchboard (which I have done before, but not recently) -- and was taking a bit of a trial-and-error approach. I wanted the button to result in the previewing of a set of mailing labels (which the user would susbsequently print after reviewing). One of my first attempts resulted in the button automatically printing, so I "cut" it, and several close-but-no-cigar attempts follwed, all of which I used the "cut" command to dispose of. The last attempt I made resulted in the following message:
"The expression On Open you entered as the event property setting produced the following error: Ambiguous name detected: Bulletin_Board_labels_Click.
-The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
-There may have been an error evaluating the function, event, or macro."
I "cut" the button I had just created and thought that might fix it. It didn't. I still got the above message whenever I tried to open either this switchboard or the main switchboard. I tried closing down Access and restarting it. Same message, same problem.
Below is the code from the switchboard in question -- the last few entries are the relevant ones: anything to do with "bulletin board" is stuff I was working on. As far as I can tell there are currently no duplicate queries, reports, macros, etc, named "Bulletin Board Labels" (theres is one query named "Bulletin Board Query", and one report named "Bulletin Board Mailout labels", and that's it.)
The code for the switchboard follows...
Please help me resolve this problem?
:confused:
Jennifer
_________________________________________
Option Compare Database
Option Explicit
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
stDocName = "All Art Galleries"
DoCmd.OpenReport stDocName, acPreview
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
Private Sub Command11_Click()
End Sub
Private Sub OLEUnbound22_Click()
Dim strInput As String
strInput = "help.html"
Application.FollowHyperlink strInput, , True
End Sub
Private Sub University_Bigwigs_Click()
On Error GoTo Err_University_Bigwigs_Click
Dim stDocName As String
stDocName = "University Bigwigs Query (VP's, Deans, etc)"
DoCmd.OpenReport stDocName, acPreview
Exit_University_Bigwigs_Click:
Exit Sub
Err_University_Bigwigs_Click:
MsgBox Err.Description
Resume Exit_University_Bigwigs_Click
End Sub
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
stDocName = "Invitation Destination Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
Private Sub Main_Click()
On Error GoTo Err_Main_Click
DoCmd.Close
Exit_Main_Click:
Exit Sub
Err_Main_Click:
MsgBox Err.Description
Resume Exit_Main_Click
End Sub
Private Sub Help__Click()
On Error GoTo Err_Help__Click
Dim stAppName As String
stAppName = "C:AEAC Mailing list Databasehelp.html"
Call Shell(stAppName, 1)
Exit_Help__Click:
Exit Sub
Err_Help__Click:
MsgBox Err.Description
Resume Exit_Help__Click
End Sub
Private Sub Ref_List_Click()
On Error GoTo Err_Ref_List_Click
Dim stDocName As String
stDocName = "Category/Destination/Receive"
DoCmd.OpenReport stDocName, acPreview
Exit_Ref_List_Click:
Exit Sub
Err_Ref_List_Click:
MsgBox Err.Description
Resume Exit_Ref_List_Click
End Sub
Private Sub Campus_Coverage_Click()
On Error GoTo Err_Campus_Coverage_Click
Dim stDocName As String
stDocName = "Campus Coverage Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Campus_Coverage_Click:
Exit Sub
Err_Campus_Coverage_Click:
MsgBox Err.Description
Resume Exit_Campus_Coverage_Click
End Sub
Private Sub Flyer_Report_Click()
On Error GoTo Err_Flyer_Report_Click
Dim stDocName As String
stDocName = "Flyer Destination Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Flyer_Report_Click:
Exit Sub
Err_Flyer_Report_Click:
MsgBox Err.Description
Resume Exit_Flyer_Report_Click
End Sub
Private Sub Poster_Destination_List_Click()
On Error GoTo Err_Poster_Destination_List_Click
Dim stDocName As String
stDocName = "Poster Destination Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Poster_Destination_List_Click:
Exit Sub
Err_Poster_Destination_List_Click:
MsgBox Err.Description
Resume Exit_Poster_Destination_List_Click
End Sub
Private Sub Currents_Destination_List_Click()
On Error GoTo Err_Currents_Destination_List_Click
Dim stDocName As String
stDocName = "Currents Destination Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Currents_Destination_List_Click:
Exit Sub
Err_Currents_Destination_List_Click:
MsgBox Err.Description
Resume Exit_Currents_Destination_List_Click
End Sub
Private Sub Catalogue_Destination_Click()
On Error GoTo Err_Catalogue_Destination_Click
Dim stDocName As String
stDocName = "Catalogue Destination Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Catalogue_Destination_Click:
Exit Sub
Err_Catalogue_Destination_Click:
MsgBox Err.Description
Resume Exit_Catalogue_Destination_Click
End Sub
Private Sub FlyerMultCopiesButton_Click()
On Error GoTo Err_FlyerMultCopiesButton_Click
Dim stDocName As String
stDocName = "Flyer Multiple Copies Report"
DoCmd.OpenReport stDocName, acPreview
Exit_FlyerMultCopiesButton_Click:
Exit Sub
Err_FlyerMultCopiesButton_Click:
MsgBox Err.Description
Resume Exit_FlyerMultCopiesButton_Click
End Sub
Private Sub InvitatMultCopButton_Click()
On Error GoTo Err_InvitatMultCopButton_Click
Dim stDocName As String
stDocName = "Invitation Multiple Copies Report"
DoCmd.OpenReport stDocName, acPreview
Exit_InvitatMultCopButton_Click:
Exit Sub
Err_InvitatMultCopButton_Click:
MsgBox Err.Description
Resume Exit_InvitatMultCopButton_Click
End Sub
Private Sub CampFlyMultCopButton_Click()
On Error GoTo Err_CampFlyMultCopButton_Click
Dim stDocName As String
stDocName = "Campus Flyer Multiple Copies Query"
DoCmd.OpenReport stDocName, acPreview
Exit_CampFlyMultCopButton_Click:
Exit Sub
Err_CampFlyMultCopButton_Click:
MsgBox Err.Description
Resume Exit_CampFlyMultCopButton_Click
End Sub
Private Sub PostMultCopButton_Click()
On Error GoTo Err_PostMultCopButton_Click
Dim stDocName As String
stDocName = "Poster Multiple Copies Report"
DoCmd.OpenReport stDocName, acPreview
Exit_PostMultCopButton_Click:
Exit Sub
Err_PostMultCopButton_Click:
MsgBox Err.Description
Resume Exit_PostMultCopButton_Click
End Sub
Private Sub Bulletin_Board_labels_Click()
On Error GoTo Err_Bulletin_Board_labels_Click
Dim stDocName As String
stDocName = "Bulletin Board Mailout Labels"
DoCmd.OpenReport stDocName, acNormal
Exit_Bulletin_Board_labels_Click:
Exit Sub
Err_Bulletin_Board_labels_Click:
MsgBox Err.Description
Resume Exit_Bulletin_Board_labels_Click
End Sub
Private Sub Bulletin_Board_labels_Click()
On Error GoTo Err_Bulletin_Board_labels_Click
Dim stDocName As String
stDocName = "Bulletin Board Mailout Labels"
DoCmd.OpenReport stDocName, acPreview
Exit_Bulletin_Board_labels_Click:
Exit Sub
Err_Bulletin_Board_labels_Click:
MsgBox Err.Description
Resume Exit_Bulletin_Board_labels_Click
End Sub
Private Sub Command57_Click()
On Error GoTo Err_Command57_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Command57_Click:
Exit Sub
Err_Command57_Click:
MsgBox Err.Description
Resume Exit_Command57_Click
End Sub
Private Sub Command58_Click()
On Error GoTo Err_Command58_Click
Dim stDocName As String
stDocName = "Bulletin Board Mailout Labels"
DoCmd.OpenReport stDocName, acPreview
Exit_Command58_Click:
Exit Sub
Err_Command58_Click:
MsgBox Err.Description
Resume Exit_Command58_Click
End Sub
View 5 Replies
View Related
Mar 11, 2006
I was wondering if it was possible to do this, currently if I need to add a new record, I have to add it all in the tables section, this works fine but would be easier if it could be done through the switchoard somehow.
View 4 Replies
View Related
Nov 21, 2006
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
View 10 Replies
View Related
Jun 26, 2013
I have two options on the main switchboard page and when I click on the second option it goes to a secondary page that gives me 3 options with the third option being to return to the main screen. When I select that option it does go back to the main screen but then on the main screen it shows the return to main screen option as well and when I select it.... it says " There was an error reading the switchboard items table." But I want the main screen to only show the original two options only.
View 1 Replies
View Related
Sep 12, 2014
How to make a form open with data from a table based on a date and time in the/a table?
View 7 Replies
View Related
Apr 8, 2007
Hi.I'm new to Access. I'd like to know how can I choose which table/form will open when I open the MS Access file from my desktop? And can I change it in the future? I have Office 2007.Regards,Kirret
View 2 Replies
View Related
Oct 11, 2005
I have never seen something like this. I am not able to open any table in Access ... Every time I clicked on table I have message "Unknown"
Does anybody have idea why I have this problem???
View 5 Replies
View Related
Mar 12, 2007
Hi, I have a form called Edit Column, which contains two text boxes: ID and Description. The user types something in these two boxes and presses a button, and this button should take the value of ID and edit description for that particular ID in the table "Map". Here is the code I have written for it:
Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Set r = d.OpenRecordset("Map")
r.MoveFirst
If r! = Me.Text1 Then [I]('Text1 is the text box where the user enters an ID)
Do While Not r.EOF
r.Edit
r![Description] = Me.Text3
r.Update
r.MoveNext
Loop
MsgBox "Successful", vbInformation
Else
MsgBox "This column does not exist in the Store", vbCritical
End If
Thanx in Advance
View 1 Replies
View Related
Aug 29, 2006
Is there any way that anyone knows to have a table open on startup? I am not using a form, because the nature of this database is easier to use with a table. And I can't use Excel because I need reports out of the data.
Having said that, I have some users who may be partially Access-illiterate, and it would be easier to have them work on a table that opened for them. Any clues?
Lisa
View 4 Replies
View Related
Feb 17, 2005
I have created a combo box with the values I need from a table. Once I select the correct record from the drop down box I'd like to be able to open the table with just that one record being displayed. Thanks for your help.
View 3 Replies
View Related
Jul 26, 2005
the wizard does not have a button to open tables...i have been using this code to open forms...what needs to be changed in order to make it open tables?
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "intakeMatrix"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub
View 1 Replies
View Related
Aug 26, 2005
Dear All:
I would like to use a command button on a form to open a table. The name of the table is called "MAJORCODE"
Any suggestions?
Many thanks,
Dion
View 5 Replies
View Related
Sep 12, 2014
I have a query that lists all tables within my access database.what i want it to be able to click the table name from the query list.for example my query list is:
Rawdata
Outcomes
Reporter
Tracker
how would I click on Tracker and open in up the tracker table? is it something like
stdocname = "tablename"
docmd.opentable, stdocname, opentable, acnormal , ," [tablename] = " & me.tablename?
View 3 Replies
View Related
Jun 27, 2013
I want to be able to open a Table as Read Only, so that a user can browse etc., but neither alter nor enter data - I want them to use the Forms for that. How then, using VBA code, do you open a Table as Read Only?
View 14 Replies
View Related
Jun 27, 2006
i have a form that uses a text box to search through my bookings, and when the user double clicks on the record in the listbox it loads that record in my main booking form..
this works fine. the problem is this..
i will search and find a record using the text filter.. i will double click on the record and it loads in the booking form.
i then close the booking form, and the search form is still open in the background..
if i then click on another record in the search form, i get this message..
runtime error 3008, the table bookings is already opened exclusively by another user... etc
below is the code in my search form, is there anyway it can be edited to make sure this doesnt happen.
Option Compare Database
Option Explicit
Private Sub QuickSearch_DblClick(Cancel As Integer)
DoCmd.OpenForm "newBOOKINGS", , , "[bookingid] = " & Me![QuickSearch].Column(0)
End Sub
Private Sub Search_Change()
Dim vSearchString As String
vSearchString = Search.Text
Search2.Value = vSearchString
Me.QuickSearch.Requery
End Sub
Private Sub QuickSearch_AfterUpdate()
DoCmd.Requery
Me.RecordsetClone.FindFirst "[bookingid] = '" & Me![QuickSearch] & "'"
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
MsgBox "Could not locate [" & Me![QuickSearch] & "]"
End If
End Sub
View 3 Replies
View Related
Jul 2, 2007
I have a Front End Database and a Back End Database.
Certain tables in the BE are linked to the FE.
Once or twice a day I need to run Make Table Queries in the FE, but I am unable to do so if someone else has the BE open.
Best solution would be greatly appreciated
Many thanks
John
View 8 Replies
View Related
Mar 21, 2005
I have a form that is connected to a table - when I open the form it loads the first record in the table. How can I make it open a blank form, ready to add a new record?
View 1 Replies
View Related
Feb 4, 2005
Some of the things that bring me screeching halt really surprise me. I swear, this sounds like it should be so easy....
What I need to do is check, when the user clicks on a button, whether a specific table that is going to be modified/deleted later in the click code is already open. If it is open, I will msgbox the user to close the table first and exit the sub.
Any ideas?
All help, as always, is much appreciated!
John
View 4 Replies
View Related
