Im using the following vba Code to try and populate a text box with multiple line based on selections from a list box.
Private Sub Precautions_AfterUpdate()
Dim Criteria As String
Dim ctl As Control
Dim Itm As Variant
Set ctl = Me.Precautions
For Each Itm In ctl.ItemsSelected
If Len(Criteria) = 0 Then
Criteria = ctl.ItemData(Itm)
Else
Criteria = Criteria & "," & ctl.ItemData(Itm)
End If
Next Itm
Me.description = Criteria
End Sub
Its working to the extent that it adds the options that are selected from the list box but I actually want it to put the 2nd column of the list box which is hidden into the text box. How do i edit this code to add column 2 rather than column 1 when an option is clicked?
Any help would be appreciated
Ive attached the database (sorry its very simple) Open form tester to see what i mean.
Hi all... and thanks for your help to this very frustrated moderate Access user. I have been using an example for cascading combo boxes in a timesheet form, but I simply cannot get it to do what I need.
I have a table called "Entry", with a form called EntryForm based on it. That table has the follwing fields:
Name Date Hours Set* cboSet Subset* cboSubset Item* cboItem
The fields with asterisks are the ones I am trying to create cascading combos for. I have a table called "Sets" which has the same fieldnames in it, which I am trying to use as the sources for these fields. The form has "cbo" in front of the names. I have attached my code in a document.
It looks like all this does is act like an Excel autofilter. Can someone help me with the sourcing for these fields and how I get the Entry table to populate as I make entries. All my code does is push me to edit the Sets table records.
I just recently started programming in MS Access. I have some forms with lots of combo boxes. I do not want users to type anything in the boxes, but to only select stuff that is contained in the drop down menus.I found this useful code and I am using it in my combo boxes on the key down event to do what I want.
Private Sub cmb_a_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0 End Sub
Private Sub cmb_b_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0 End Sub
Private Sub cmb_c_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0 End Sub
The issue is because I have so many combo boxes, is there a better way to rewrite the code so I don't have to repeat the same code in 20 places?
I'm trying to build an database for aircraft operators. I've got the basic tables structure and relationships but I'm stuck on building an search form to filter records by user input.I've got following controls on my form (unbound):
1. AircraftType (combo box) from tblAircrafts 2. CompanyName (combo box) from tblListOfAircraftsOperators 3. TeailNumber (text box) from tblAircraftOperators 4. AirportNameSearch (combo box) from tblAirports 5. PassengersNumber (text box) from tblAircraftOperators 6. ManufactureYear (text box) from tblAircraftOperators 7. SourceSearch (combo box) from tblInfoSource 8. CountrySearch (combo box) from tblCountry 9. CategorySearch (combo box) from tblAircraftCategory 10. EamilToOperator (text box) from tblAircraftOperators 11. InteriorPhoto (Bound object frame) from tblAircraftOperators 12. ExteriorPhot (bound object frame) from AircraftOperators
I need to enable users to search for aircrafts based on those criteria. As I mentioned I'm new to Access and I don't have any advanced coding skills. I have a query build to perform the search and this is the code I've managed to write so far:
Attached I have a database that I've been working on which has a form called "frmCriteriaSearch". It is based off of the qryCriteriaListBoxUpdate query. I am trying to get the listbox in the second tab of the results section to work. It queries fine for the checkboxes, but I cannot get the comboboxes to affect the query (unless a checkbox has already been selected)
I am trying to make a search option in my form header. Right now I have two unbound combo boxes (CboAccountsfilter and cboCourseName) that I can use to filter my records. Currently, I can use the drop down for CboAccountsfilter and a list of accounts will appear. When I select one, the corresponding Course Names will appear in cboCourseName. This works fine...Code below. I would like to take the filtering a step farther and add checkboxes to filter the data. I my form, there currently exist several check boxes (yes/no)...(Priority, Rep Top Target, Manager Top Target, ect). I would like to have the option to use a check box to filter. I.E if I had a checkbox in my header called PriorityFilter, if checked it would only bring up those records that met the two combo boxes criteria and was a priority.
Below is the code I have so far...it doesnt have anything for the checkbox because I am at a lost of how to get started.
Private Sub CboAccountsfilter_Change() Me.Requery Me.cboCourseName.Requery Me.Check178.Requery End Sub
I have a serious issue to solve and I would like to ask for your help, as I just don't seem to know how and where to start from.
I need to make a database that will have 2 tables, say tbl_item and tbl_offer. The items table will have different cardboard dimensions and other characteristics (width, height, color, photo, price etc) while the tbl_offer will have different combinations of clients' cardboard requests.
The workflow is:
A client comes and asks for:
- two pieces of cardboard of 120x100 cm - five pieces of cardboard of 135x90 cm - one piece of cardboard of 110x125 cm
I want to be able to enter the client's request in a form and the form will do 2 things:
1. Store the clients request as a record in the table tbl_offer (for current or future referrence) 2. Create a report (out of the above record) that will be printed out and given to the client (but I suppose that's easy...)
Now tbl_item has different types of cardboard (their code names) along with different dimensions and price for each, for example:
1. I don't know exactly how I can create a form (say frm_offer) that will give me the possibility to add many different cardboard types and save them as one offer to the tbl_offer. What I would like is to choose from a combobox (or any other similar function) the type (say 002) and by this selection a second combobox would be filled only with the available Width dimensions for this type (165, 140, 170). By choosing what I want from the width combobox, a third combobox would be available that would give me the available height dimensions for this width (if for example I chose Type 002 and Width 140, the last combobox would give me two choices, 105 and 130). After choosing the Height I want, I would fill in a text box of how many pieces the client wants and the form would also fill automatically the cost of all the pieces for that dimension (by taking the price/item from the tbl_item perhaps?). If 1 piece then it should say i.e. 18 for the 140x130 piece, if 10 pieces it should say 180. Finally, I want to add the photo of the cardboard automatically (pls note that same type of cardboards share the same photo) not at the form but at the report to be printed.
I have already looked in the Access FAQs section of the forum for the combobox techniques but I can't understand how I can apply them to three (or more) comboboxes plus the photo.
I can use Access only when little/no programming is required, and I am very much afraid that all the above will require a great deal of it, so I apologise in advance for my non-knowledge of programming :(
2. How do you think would be suitable to split all this data to tables? Is my thinking correct (2 tables, tbl_item and tbl_offer) or would you suggest something better? Will the tbl_offer get a lot of data that way? Mind you also that every once a year there is the need of updating the cardboards' prices (all will rise/fall at the same percentage) and, furthermore, we are talking for about approx. 100 different types of cardboards, each with about 15 different dimension combinations.
I am not sure if I had to post this message to the Tables section of the forum or here but I think here is better as the main problem is the form part.
Thank you all in advance and my apologies once again for the low level of my programming skills :(
I need a form that has multiple categories, 7, listed one after another vertically. I also need the categories divided in to 2 columns. I need to have 2 combo boxes, 1 each controlling the info for each column. Can I do this on 1 form. Suggestions would be appreciated.
I have a continous form that once the combo box filters are selected, shows the applicable records. Included in records, I've put a bound combo box that allows the user to fill in that particular field. This works with the first record but when you attempt to select the other records, all the combo boxes disappear. What am I doing wrong here??
I have two combo boxes on the form and print button. In one combo box showing numbers 1,2,3,4 and 5. Other combo box showing logical operator =,<,> User is going to select from one combo box logical operator and from other number "means class field". Print button prints the report. Report is based on the query. In the query in criteria line I put the code [FORMS]![MAINFORM]![CMB_CLASS] It works for one combo box. Problem is to get criteria from second combo box or concatenate the both criteria’s. In query criteria line it should show like <2 or =3 or what ever user is selecting.
Second problem is in the same line. Three text boxes and 2 combo boxes showing "OR" and "AND" For example in one text box user enters last_name and then he select "OR", second text box enter city and then he select "AND" from second combo box and third text box enter department. After selection he is going to click the print button to print the report.
I really appreciate if anyone knows the solution or they used this type of thing in there application.
Hi all! :D I'm trying to make a form to autofill with customer data (from a database), with 4 columns (= 4 customers). Each column contains on top a combo box and below 5 text boxes with address, phone etc. So i created a form and placed a combo-box (from wizard) with the option "Find a record on my form based on the value i selected in my combo box". The problem is that this one combo box controls all the text boxes. Even if i create an other one, it still controls all of them.
So i'd like to ask: How can i link a combo box, to autofill specific textboxes?:confused:
I have re-written this question as I think I managed to cause confusion!
(I really do need help!) My problem involves three tables. The first table is NAMES with an auto-number key field called NamesID.
The second table is a list of Dance Classes, called CLASSES again with an auto-number key field called ClassesID.
The third table is a list of MEMBERS in each dance class.
Obviously, the MEMBERS can belong to many CLASSES, and each of the CLASSES can consist of many MEMBERS.
My aim is to add a new record in MEMBERS by using a ComboBox containing records from the NAMES table.
On the form, I have a combo-box which shows me the list of CLASSES
(ComboClasses). I click on the class.
I then click on the NAMES combo-box, click on a name and want it to appear in the table of MEMBERS for the class shown in the CLASSES combo-box.
The problem
I am selecting the name using “ Select * From NAMES where Names.NamesID=[Forms]![FormName]![ComboNames] (supplied by supersubra) but how do I get the ClassesID into MEMBERS record.
At the moment, if I add a name that member appears in every class, or I have to manually insert the ClassID.
I have a form that we are creating to issue project numbers. We have about 80 different clients. I have set up a combo box for the client name, where we can choose the client from the drop down menu. We want the form to filter according to the client name that you choose. For example, if you pick Lawrence as the client name, the next combo box is the project name and I want it to only show the project names that have been assigned to Lawrence in the past. Can someone please help me on how to do this and if it is even possible at all? Thank you so much for your help!! I have been wrestling with this for about a week and a half now.
I made a form from a "CS-PG1-PG2" table. then i added a subform that contains these 3 fields plus some more information. What I'm trying to do is to insert in the main form 3 combo boxes:
CS (discount group): not to be linked/synchronized with the other two combos; PG1 (product group); PG2 (product group2): it must show the filtered results from PG1 combo box.
As long as I insert the CS combo box, everything is fine. Whenever i add the other two combo boxes, or just the PG1 combo box, then the two of them conflict and i get zero records.
All i want to do is to add these 3 combos and give an option to filter the results by CS or PG, plus give some sort of hierarchy order between the PG1 and the PG2.
cboWkLoc This selects workers city where employed This combo gets data from company table CboEmp This Selects Employee
I am trying to join these both combos so when I select City (e.g Reno ) its shows only employees working in Reno - This combo gets data from Purchases table
I have tried to work on the following code....
Private Sub cboWkLoc_AfterUpdate() Dim strSource As String strSource = "SELECT City " & _ "FROM Purchase " & _ "WHERE Employee = '" & Me.cboWkLoc & "' ORDER BY City" Me.cboEmp.RowSource = strSource Me.cboEmp = vbNullString End Sub
I have a form with a record source property set to a query which pulls the data by joining two tables. The form also has four navigation buttons (first, previous, next, last) and a ADD record, SAVE record, EDIT record, DELETE record buttons.
I also have a unbound combo box (control source iset to 'empty') in the form's header section and its record source property set to an SQL (SELECT DISTINCTROW tblProjts1.chrProjectName, tblProjts1.intProjectID FROM tblProjts1 ORDER BY tblProjts1.chrProjectName;). It's columns count is 2, bound column is set to 2 and column width is set to 3.1146";0".
In the edit button, I have the code "Me.AllowEdits = True" so that the user can edit the data.
Also, I have the following code on form's "on current" and "after update" events so that it will flip back to allow edit to 'NO' Me.AllowEdits = False
Also, I have the following code on the combo box's 'after update' event. Dim strSearch As String
'Find the record that matches the control Me.Requery Me.RecordsetClone.FindFirst strSearch Me.Bookmark = Me.RecordsetClone.Bookmark.
My Problem:
When I run the form and select a record from a combo box it populates the fields (all memo data type) in the form with correct linked record, ONLY when my allow edit property is set to 'YES'.
With allow edit set to 'NO', then when a tried to make a selection from a combo box it doesn't allow me to select any record. The combo box seems to be locked up and I can't select any record.
Does anyone come across such a problem with cbo box and 'allow edits' property in the forms.
I need to create a form or a subform that brings up a list of records based on criteria that a user chooses in multiple list boxes. Is this possible? I am pretty new to Access.
Am using a number of combo boxes as selection criteria for a report. The combo boxes are linked to a table, obviously there will be times when no criteria is required and will want to select "ALL" when left blank.
Please help. My inability to achieve this is very frustrating.
I have a tabular form based on a query, which returns a large number of records. I need users to be able to filter the records to display data relating to what they have entered in a number of combo boxes.
For example I have fields showing Product ID, Manufacturer ID, Purchase Order number and due date. Each of these fields has a corresponding unbound combo box where users can select values that appear in the table. I need to be able to filter the form based on what is in these combo boxes. I.e. Filler for a product ID to show all purchase orders numbers and due dates relating to that product ID or filter for a manufacturer ID and due date to show all Product IDs and purchase orders relating to that a manufacturer and date.
Ideally this would be achieved by pressing a command button.
The query, table and combo boxes are all built and work fine but I am unable to get the filter to work, I am using Access 97 and am not very familiar with visual basic. Any help would be appreciated.
I have set up a nice timesheet form now with lots of help on this forum.
I have a form with a subform(1) which has another subform(2). The form is NOT in Data Entry mode, so users can select their name from the main form, the period from subform(1), and then enter/edit timesheet records in subform(2). In subform(2), I have some combo and text boxes for each record. The first is cboProjectSelect. Column(2) of the selection made in cboProjectSelect is entered into tboProject. Additionally, the selection made in cboProjectSelect filters another combo, cboWorkstream. The records are displayed in datasheet view (I know I've been advised against this, but I've had to do this, because the users want to see all records as they enter their timesheets)
All this work beautifully....for the first record. For some reason, when you enter any subsequent records, it blanks out the values in the tboProject and cboWorkstream boxes for all records! If you click in any of them, the correct value appears, if you click away, it disappears.
The proper records are being entered in the relevant queries and tables, so everything is working fine. It's just annoying that the boxes go blank!
Any idea if there is a way to ensure the values don't disappear?
Can I use combo boxes placed in the detail area of a navigation form, above the sub menus but below the navigation? I am not able to get one to work properly . I can set it up but when I run the form, and try to pick an item from a list, it will not work...
I have a form with combo boxes that works beautifully, but I've been asked to add another feature to it. It requires adding a button that runs a query and displays the query results on the screen.The query code is:
Code:
SELECT DISTINCT Product.MSDS FROM Product INNER JOIN tblStoreProducts ON Product.[ProductKey] = tblStoreProducts.[ProductKey] WHERE (((tblStoreProducts.MaxUnits)<>0) AND (([Product.HazardKey])<>79)) GROUP BY Product.MSDS, tblStoreProducts.StoreKey HAVING (((Product.MSDS) Is Not Null)) ORDER BY Product.MSDS;
One of the existing buttons on the form has this code behind it:
Code: ' btnHMIS_Click Private Sub btnHMIS_Click() On Error GoTo Err If IsNull(Me.cboCompany) Then
[code]....
As you can see, the button is able to pass the parameters (which Company, and which Store within the company) to the report.
Code: ' btnMSDSSheetsPrint_Click Private Sub btnMSDSSheetsPrint_Click() On Error GoTo btnMSDSSheetsPrint_Click_Err
[code]...
How do I pass the StoreKey information into the query? Is it my query that's wrong?
I have designed a main form which have buttons for about 30 different companies name to open, each button opens an individual company form. Now the companies list is growing day by day so i want to create a combo box which select the company name and open the relevant company's form.
Do I need to create a table which lists all the companies and then add a combo box on a main screen which select the company name and open the form but i need a VBA code for that.
I'm attempting to filter my form with combo boxes. I've added the below code, but the if statement that checks if one of the combo boxes is null won't work. If the combo box is null or "", it's supposed to assign a wildcard to the variable. But it doesn't pass the test and goes straight to the Else statement. I've highlighted the if statement that keeps failing in red.
Code: Private Sub btn_Search_Click() 'create variables to store the combo box values Dim str_Country As String Dim str_Vendor As String Dim str_Survey As String
I have a main form with a sub form in continuous form view. The main form displays across the top and allows the user to enter the required 4 fields of info and then tab to the subform. Here each record is a line where the user has a number of text boxes to enter the required fields. There are 2 fields that are combo boxes that are limited to the lists - the first combo box is Observation and when the user selects their choice the 2nd combo box refreshes and gives them the choices of Categories within that Observation.
I am stuck on how to make the combo boxes "independent". Right now, if the user is in record 1 of the subform and selects an observation, the 2nd combo in that record refreshes and displays the records correctly of the categories available for that observation. Then the categories are "stuck" on whatever observation was selected in record 1 when record 2 is created. If in the 2nd record (or any other) the user selects a different observation, the categories in all records display the choices for that observation.
The categories need to be reflective of the observation within each record.
