I have a form that contains 2 combo boxes, one that lists the Wards in the Area and the other contains the types of groups. I can generate a report listing a specific group in the Ward but need to be able to list a specific group in every Ward. I have added "All" to the Ward combo box along with the code in the row query
SELECT [tblWards].[WardID], [tblWards].[Ward] FROM [tblWards] UNION Select 0 ,"All Wards" From [tblWards] ORDER BY [Ward];
When select all Wards from the Combo box and run the report I get no results.
I have a form with two cascading comboboxes where the first selection is the alphabet and the second selection is a person's name. (the alphabet is a coding system but not assigned based on a person's name) I used one table based on example 2 of this website: fontstuff. com/access/acctut10.htm
What I want to do is add columns to the table such as organization, purpose, etc. then have them in the form as textboxes that update as soon as the second combo box is selected. Is this possible with just one table or do I need to go a different route?
I'm very new to access so I'm not sure about the correct way to go about this. I have a table with a 'category' column, a form which hides the category column, and a combobox to filter the category, let's say R, C, and F.
What I want accomplish is to have the value of the comobox applied to the hidden 'category' column when a user enters a new record into the form.
Is there I way I can get an instance to the record as it's being entered and modify the data using VB? Or would I have to write a sort of pop() function and have it run afterInsert and then modify it that way? Can I even alter the table using VB like this?
I am trying to use a combobox called Manufacturer to select which table the combobox called Model gets it's rowsource from using the code below.
Code:
Private Sub Manufacturer_AfterUpdate() If (Me.Manufacturer.Value = "Siemens") Then Me.Model.RowSourceType = "Table/Query" Me.Model.Recordset = "SeimensTable" Me.Model.RowSource = "SELECT Model FROM SeimensTable" Else If (Me.Manufacturer.Value = "Samsung") Then Me.Model.RowSourceType = "Table/Query" Me.Model.Recordset = "SamsungTable" Me.Model.RowSource = "SELECT Model FROM SamsungTable" End If End If End Sub
But when I run the form and select Manufacturer. Combobox Model remains empty. tell me what I'm doing wrong?
I have form containing 8 comboboxes. On click on command button i want to set the item/caption/selection of combobox. How should I do that? Button has OnClick event built in VBA. What would be the code?
On my main form I have a subform which holds two table values. [Roles] & [TrainLevel] example of this looks like this:
Plant Manager - T1 Assistant - T2
and so on for about 12 rows with different roles, each with different training levels.
This subform is then based on a query: [qryRoleEventWithRoles] which also looks at all the other selections, selected on the main form.
eg. User selects a training course on the main form, this then changes the subform and shows what level of training each role requires training in, T1, T2 etc..
All this has been working fine for months, almost a year. Each selection on the subform is based on using two combo boxes [Role] & [TrainingLevel] these are both setup on the subform and using the autonumber field, RolesID and TraininglevelID from two separate tables.
Like I say, this has been working fine. Now, all of a sudden, they've stopped working and telling me I can't change the valve because there bound to an autonumber value. or something like that.
Ok, here's something I think I've done dozens of times, successfully. Now I can't get it to work.
I have a Parent Form with three Subforms (based on 3 separate, linked, tables).
I have a combo box on the parent form which looks up a piece of EQUIPMENT by its unique ID and the other two forms display equipment DETAIL and SERVICE HISTORY related to that equipment. It works just great until I use the ParentForm's navigation buttons. The two Subforms change to display the information relevant to other pieces of equipment, but the combo box continues to show the original look up.
Row Source Type = Value List RowSource = 1;test1;2;test2;3;test3;4;test4;5;test5;6;test6;7; test7;8;test8;9;test9;10;test10;11;test11;12;test1 2 ColumnCount = 2 ColumnWidths = "0cm;8cm" Bound Column = 1
For some reason unknown to me, although the combobox does drop down when entered, the values are not visible until selected, then the selected item is visible in the combobox, but still isn't visible in the drop-down list.
i have 2 tables (clients, frequencies) where in table "clients" i have a column to store ID of "frequencies" table (id, description).
in my form "FClient" i display data stored in table "clients" and i have a combobox that should display the "frequencies" descriptions, but with a frequency selected by default...in fact the one that has its ID stored in table "clients". i'm able to display all frequencies descriptions but i don't know how to easily select and then display, as default, the frequency stored in table "client"
I'm trying to filter the options in a combo box based on two criteria. The first criterion is another combo box on the same form, for a cascading combo effect. This criterion works fine, no problems at all. The second criterion is a query. So the combo box should display only those values that match both the upstream combobox AND the results of the query. What's really frustrating is that this combobox works just fine in my development dbase. It only stops working when I move it into my active dbase. Anyway, here's the SQL for the combobox rowsource:
SELECT DISTINCT Size2.SizeID, Size2.XYdim FROM (Shapes INNER JOIN (qrySignsInInventory INNER JOIN Size2 ON qrySignsInInventory.SizeID = Size2.SizeID) ON Shapes.ShapeID = Size2.ShapeID) INNER JOIN Signs ON Shapes.ShapeID = Signs.ShapeID WHERE (((Size2.SizeID)=[qrySignsInInventory].[SizeID]) AND ((Size2.ShapeID)=(SELECT Signs.ShapeID FROM Signs WHERE Signs.SignID = [Forms]![frmUsedDropdown]![cmbSignID])));
I've hilighted the criterion that isn't working. Also, I'm not getting any errors or anything, it's just that the results aren't being filtered. I've triple-checked the references for the active dbase, and I've checked the results of the query. Everything should be working.
So I have a Form (frmPositions) with a subform attached (fsubPosSkill).They are linked through Position ID frmPositions Record Source is qryPositionNeeds
Code: SELECT tblPositionNeeds.PositionNeedsID, tblPositionNeeds.PositionID, tblPositions.Position, tblPositionNeeds.NeedsID, tblNeeds.NeedStatus FROM tblPositions INNER JOIN (tblNeeds INNER JOIN tblPositionNeeds ON tblNeeds.NeedID = tblPositionNeeds.NeedsID) ON tblPositions.PositionID = tblPositionNeeds.PositionID;
It has two texts boxes on it [PositionID] and [NeedID]
I have a form (named Example) to create reports by selecting fields from tables or queries. there is a option box (name is KynkSec) with two options (Table, Query) and a combobox named as KynkTurSec.I want to change the data source of combobox either table or query. By afterupdate, that combobox is requering the listbox "ListKynkAlan" and I can see fields of selected table or query. (That is my dream))Unfortunately I can not do that. Combobox is showing only tables or both of tables and queries. But not only query.
Here is str source of my combobox:
SELECT MsysObjects.Name, MsysObjects.Type FROM MsysObjects WHERE (((MsysObjects.Type)=1) AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys")) OR (((MsysObjects.Type)=5) AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys")) ORDER BY MsysObjects.Name; That is showing both of tables and queries.
And I wrote a code for KynkSec option box;
Private Sub KynkSec_AfterUpdate() ' Populate rowsource of KynkTurSec Dim strSQL As String On Error GoTo HandleErr Select Case KynkTurSec
Case 1
strSQL = "SELECT MsysObjects.Name FROM MsysObjects" _ & WHERE(((Left$([Name], 1)) <> "~") And ((MsysObjects.Type) = 1) And ((Left$([Name], 4)) <> "Msys")) Order BY(MsysObjects.Name)
Case 2
strSQL = "SELECT MsysObjects.Name FROM MsysObjects" _ & WHERE(((Left$([Name], 1)) <> "~") And ((MsysObjects.Type) = 5) And ((Left$([Name], 4)) <> "Msys")) Order BY(MsysObjects.Name) Case Else End Select
[code]...
But this code is not working and giving a warning messsage "Sub or function is not defined"..So How can I change the source of combobox, either table or Query?
I have a combobox which lets you select from a list of pseudonyms. Each pseud belongs to an author; authors can have multiple pseudonyms and exactly one main pseudonym. This is the table structure (picture of relationships attached below):
The combobox list shows all the pseudonyms and then stores the corresponding AuthorID. At the moment, the pseudonym displayed in the combobox (once a selection has been made) is simply the first alphabetically for that particular author: for instance, if a story has AuthorID = 5, and Author 5 goes by anon, anonymous, and unknown, the combobox for that story will display "anon".
How can I make the main pseudonym (tblAuthor.MainPseudID = tblPseud.PseudID) be displayed instead?
Control source is tblStory.AuthorID
Row source:
Code: SELECT tblPseud.AuthorID, tblPseud.Pseud, tblAuthor.MainPseudID FROM (tblAuthor LEFT JOIN tblPseud ON tblAuthor.AuthorID = tblPseud.AuthorID) LEFT JOIN tblStory ON tblAuthor.AuthorID = tblStory.AuthorID ORDER BY tblPseud.Pseud;
User pick a record from a list and are able to doubleclick that record which will open another form with that record's ID. If the field is Null, then another form opens allowing the user to create a new record. The part that doesn't work, is if that record that was in the combo, gets deleted from somewhere else. Then the ID is still being shown in the combo (that's OK but it's no longer null), so double clicking the field does not bring up the correct Create New record form.
What I would like to have is something similar to the NotInList message that states something like, "That record has been deleted". This is what I have so far,If not in list
Code:
Private Sub APID_NotInList(NewData As String, Response As Integer) MsgBox "Please select an ... or double-click this field to add a new entry to the list." Response = acDataErrContinue APID = Null End Sub
On double clicking the combo
Code: Private Sub APID_DblClick(Cancel As Integer) Dim stDocName As String Dim stLinkCriteria As String
I have a form based on a table with just sales quotes and dates. I am using the salesquote as a combo box to select corresponding records in a subform.
Code: Private Sub cboSalesquote_AfterUpdate() Me.Filter = "[salesquote]=" & cboSalesquote Me.FilterOn = True End Sub
Works fine. But not the mgr says his users get confused when they are making changes in the subform which record they are changing so they want when they select a record from the combo box and the records appear in the subform; they want the combo box to go blank. I am not sure how to do this because if I reset the combo box to go blank; the subform records will go blank as well.
I have a requirement that will need three cascading combo boxes - the second box should only display the contents that match or are relevant to the first combo box, etc.The title of the YouTube video is:
Microsoft Access pt 9 (Cascade Combo Box)
It seems the first and second combo boxes cascade and works fine. However, the third combo box remains blank after the second combobox selection has been made.
I have three tables: Customer, CustomerSubOrg, and PORs. I have setup lookup fields that are using Primary keys for two of the tables (CustomerSubOrg and PORs). However, I ensured that the primary key fields display as the "Names" of each instead of the numbers. I also ensured I went back and changed their data type to "Text" instead of "Number" so the text appears (which seems to have worked for box #2).
How to get the third combobox to display its contents? I've attached some additional screen shots below. I know the problem is within the second combobox -- perhaps the query needs some adjustment?Unfortunately I cannot attach images yet since I am now. But I basically created two queries and used them each for the second and third combobox.The comboboxes on the form:
Customer Sub Organization POR
The Suborg query looks like this:
Table: CustomerSubOrg First Column: From field SubOrg From table CustomerSubOrg
Second Column: From field CustomerID From table CustomerSubOrg Criteria [Forms]![frmMain]![cboCustomer]
The POR query looks like this:
Table: PORs
First Column: From field PORName From table PORs
Second Column: From field SubOrgID From table PORs Criteria: [Forms]![frmMain]![cboSubOrganization]
Why wont the contents from the third combobox appear?
I'm working on a db that will track students for a summer camp. One of my fields in my student records (CamperInfo) is "School". Currently, the field is set up as a combobox in the CamperInfo Subform in the FamilyInfo form. I would like the combobox to be able to add schools if the school is not listed by a pop-up when the "add school" (or whatever) is selected.
Code:
Private Sub School_AfterUpdate() On Error GoTo Err_School_AfterUpdate Dim strForm As String If Me.School = "Schools" = True Then strForm = "Schools" DoCmd.OpenForm Me.School Err_School_AfterUpdate: MsgBox Err.Description End If End Sub
As you might have guessed, it doesn't work. no errors, it just doesn't do anything. I added the "Schools" data.
I have a main form that identifies a Client File: frmClientFile (Single Form)
On the main form is a subform for Cases: subfrmCases (Continuous form)
Also on the main form below the Cases subform is a tab control that contains additional subforms to view/update different aspects of a case: subfrmCaseClients (Continuous Form).
The way this operates is that the user first chooses a file using a combobox on frmClientFile.
The subfrmCases is linked to the main form (using the caseFileID) and filters correctly.
The subfrmCaseClients is then linked using some hidden text fields on the main form (using caseFileID, CaseID) and this filters correctly.
On subfrmCaseClients is a combobox (cboClientID) that I need to requery based upon the Case Row selected on subfrmCases.
I have tried numerous combinations of options to force the requery by trying to apply a macro on the following:
OnCurrent, OnSelectionChange, OnChange and AfterUpdate events to no avail.
If I hit F5 to refresh the entire page the combo box gets updated as expected.
How do I get the Requery to work programatically? Is this even possible?
I am trying to use a combo box to refresh a subform. I am working with Access 2007 as my front end and SQL 2014 on the back end. On my main form called frmDealers I have an unbound combobox where the user selects a dealer and then text boxes are populated with address and phone number. I have it unbound because I don't want the user to make changes to the dealership at this point. On the subform I have people that work at the dealership. That form is called sfrmDealerContacts. The subform could have multiple contacts for each dealership. The subform is bound to a query called qryDealerContacts. I have it bound to a query because I want email hyperlinks in the table too. I tried searching the forum and found this thread number 279791.
After searching I added:
Form_sfrmDealerContacts.Form.RecordSource = "SELECT * FROM dbo_DealerContact WHERE DealerID = " & Me![cboDealerName].Column(1)
But this brings up an input box so I must have something wrong. My code is:
Let's say, I'm updating a record, and I have a combo-box that says transfer and another combo-box that states "where to?" - or words to those effect.
Each record has a field for credit value and a field for debit value.
When I've finished entering the current record, I want to run code that fires the event, so, copies all the data from one record, to create a new record, BUT...
1) changes the "where to" from the old record to "From" in the new record. 2) changes either the credit or debit value, to the opposite in the new record?
I would like to do this from a sub-form. I can copy a whole record, no problem, but can't seem to change field values.
My form is a profile of a dog and contains a Dog_ID. The ComboBox is a list of dogs names and shows all the females I want it to show all the females less the female that it is being linked with.
I have a DB for clients that contains all kinds of info. It is getting bigger and harder to keep track of things by their ID number. The problem I am running into is that ComboBoxes and Lookups can only bind 1 column. My DB is based on Categories, then Sub-Categories, then Sub-Sub-Categories. I have done this because there is multiple criteria for each customer.
For Example, I have a Customer = ID; Location = Location_ID; Employee = Employee_ID so everything is tied to the ID, but on my phone list I need to have a list of Employee's that show the name that is tied to ID and Employee_ID.
ID is unique to each customer but I have duplicate Employee_ID for example Customer 1 has Employee 1 and Customer 2 has Employee 1, so when I use the ComboBoxes or Lookups I get Customer 1 - Employee 1 for Customer 2 - Employee 1 if I bind to Employee_ID, if I switch that to ID it is completely messed up. Now I don't care if the table stores a number, but I would like the form to display the name.
I am trying to get my forms to display a name and not an ID number and when you enter new information you can select a name and not a number.
I have an unbound form with a combo box and a bound subform on it.
I am using the combo box to get a value to filter (and display) records in the subform.
My code is:
Private Sub cboSessions_AfterUpdate() On Error GoTo cboSessions_AfterUpdate_Err Me.SSubform.Visible = True 'subform was initially invisible Me.SSubform.Form.FilterOn = True Me.SSubform.Form.Filter = "[LinkID]=" & Me.cboSessions Me.SSubform.Form.Requery cboSessions_AfterUpdate_Exit: Exit Sub cboSessions_AfterUpdate_Err: MsgBox Err.Description, vbCritical, "PROGRAM ERROR" Resume cboSessions_AfterUpdate_Exit End Sub
The subform is initially invisible to stop it showing all records.
This works fine AFTER the first selection(!) - the first Update of the Combo Box just doesn't filter the subform??
I have tried putting code in the main form's On Load Event - allocating a value to the Combo Box and running cboSessions_AfterUpdate but that does not work either.
