I am wanting to preempt data in list boxes
listbox1
Fruit
Vegetable
listbox2 (If Fruit Is Selected)
Apple
Banana
Orange
listbox2 (If Vegetable Is Selected)
Potato
Peas
Carrot
If Fruit is selected in Listbox1 - Then Listbox2 should have the options
Apple
Banana
Orange
If Vegetable is selected in Listbox1 - Then Listbox2 should have the options
Potato
Peas
Carrot
I am designing a nomination form (web database so no vba macros can be used).
The form has 3 combo boxes: cboStaffName, cboLevel, cboNominee.
The form is bound to the tblSubmit table where the submissions are populated.
I used a select statement:SELECT Staff_List.Staff_Name FROM Staff_List; to populate the combo box for the Staff Name selection.
This is the select statement to populate the job level combobox:
SELECT Staff_List.Level, Staff_List.Staff_Name FROM Staff_List WHERE (((Staff_List.Staff_Name)=[forms]![frmtest]![cboStaffName]));
The select statement to populate the combobox for the nominee combobox:
SELECT Staff_List.Staff_Name FROM Staff_List WHERE (((Staff_List.Level)=[forms]![frmtest]![cboLevel]));
The problem is that the staff_name in the first combobox is still found in the nominee combobox which should not be because a staff cannot nominate self. There is a field in the Staff_List called YesNo that should be activated for each staff that is selected so that the select statement on the nominee combobox can be updated accordingly to remove items with the field "Active"
How to get the checkbox selected for each corresponding staff.
Sample of the database has been attached.
I've been working on this application for a long time, and my combo box always behaved well before, but today I click on the combo box, the list drops down, but I can't select anything. I've also tried typing the item on the list into the combo, which normally works, but I'm not being allowed to type anything there.
View 6 Replies View RelatedIs there an easy way to store a multiselect list box selection?
View 1 Replies View RelatedI have a list box, List3, in a form, which is populated from a query. The list populates correctly.I added a command button which I want to open a new edit form with the selected record from the List3 control.I used this code on the DoubleClick event - it opens the form EditEquipment, but the form does not have the relevant record, ItemID, open in it. It's an autonumber field and primary key. Is there something I now need to do in the EditEquipment OnLoad event or something like that?
Private Sub Command5_DblClick(Cancel As Integer)
If Len(Me.List3 & "") > 0 Then
DoCmd.OpenForm "EditEquipment", acNormal, , _
"[ItemID] = '" & Me.List3 & "'"
End If
End Sub
i want to see the product image in my database as per my selection from listbox in "frm_MainForm" but it shows error no 2220. database file is attached.
It does show the image when i add it to the form "frm_PruductMaster" and search in "frm_MainForm" but only until i restart application. after restarting application it again shows error 2220. But it shows image name in the error. (i have tried with .bmp and .jpg as well).
I am trying to resolve a problem with selecting multiple records.
I have a table called T_user and bound form called F_user.
This form displays all 3 fields from that table.
When I want to add a new user, I enter a name and select a department.
Some of the users work for few departments, so here is the question:
How to select multiple departments for one user?
The department field in F_user is set to LISTBOX, and the multi select option in properties is set to SIMPLE.
I can select multiple departments, but as we know it won't save in the table, it will leave it as NULL value.
How can I save the record then? In another form I need to select users from specific department, so lets say A.Smith, need to be visible in those few selected ones.
I have seen this [URL] .....
form this post [URL] .......
but unsure how can I make it work on my form.
I've created a database to track training courses. I'm having issues with selecting multiple trainers. I set up my table to lookup a "List" on the trainer column. I've entered 2 records into my form and it displays 6 records. See attach image.
View 3 Replies View RelatedI'm building a customer form using a list box of summary customer info on the left side of the form (CustId and Names) and customer details on the right hand side. I want the details shown on the right to be those for the customer selected in the list box on the left. I'm having problems getting the details to update when a different record in the list box is selected or clicked.
I originally set the data source for the detail records to the base customer table but couldn't work out how to update them when the list box was clicked!
I then tried creating a query with the select clause conditional on the list box (CustId = Me.qryContactDetails) and set the data control source for the detail record to the query (=[qryContactDetails]![FirstName]). The query works as expected but the field in the form just shows '#Name?'.
I tried adding a field requery on the List31_Click() event using Me.[FieldName].ReQuery but that didn't seem to change anything
I have a form whereby a user for my database can be created. The fields required are listed below:
Payroll ID
Forename
Surname
Location
Manager
The last two fields are related to two other tables; tblLocation and tblManager, which are related to one another.Each location (there are three) can have more than one manager, however, a manager can be associated with only one location.I would like whomever is creating the user to only be able to select a Manager that works at a particular location, currently, I can select LocationID 1 and ManagerID 3, but ManagerID 3 works at LocationID 2.
How can I base the 'Manager' field in my form on the previous field's selection, e.g. 'Location'.Also would need to restrict the order in which the form's fields are enter, i.e., 'Location' before 'Manager'.
I am using this code to filter a List Box based on a Date range and a Combo Box selection:
Code:
Private Sub Combo139_AfterUpdate()
Dim StrgSQL As String
StrgSQL = "SELECT [User Name], [Date Of Request], [Description of Problem], Status, Sub_Job FROM QRY_SearchAll " & _
"WHERE [Date of request] BETWEEN #" & CDate(Me.txtStartDate) & _
"# AND #" & CDate(Me.txtEndDate) & "#;"
StrgSQL = StrgSQL & " WHERE Sub_Job = Combo139"
Me.SearchResults.RowSource = StrgSQL
Me.SearchResults.Requery
End Sub
However, It is not working. when I click the Combo box the List Box comes up blank.
I have a Form that links to a List Box which pulls from a combined (concatenated?) list. The list it is pulling from appears as follows: SELECT [Rank]+" "+[Last Name]+", "+[First Name] AS Expr1 FROM [T_Personnel Information]; My issue is that the Field in the Form that pulls from the Field in the Table defaults to the first name on the list when left blank, where as I want it to default to a blank value unless I select a name from the list.
View 1 Replies View RelatedI have a form with 2 list boxes, part number and modification. There is a subform containing another list box that is supposed to show the part information (bpn,vendor,status,etc.) that corresponds to the selected part number/modification in the parent form list boxes.
The part info list box has multiselect enabled and what i want to is be able to select multiple line items and press a button which then sets all of the selected line items status to "Request Removal". This is my code for the button:
Private Sub removeButton_Click()
Dim varItem As Variant
With Me.acbModList
For Each varItem In .ItemsSelected
MsgBox (Me.Status.Value & Me.[Part Number].Value)
Me.Status = 6
Next
End With
End Sub
The msgbox was for debugging purposes. Here's my issue; the for each actually does iterate through each selected item but the value for the line item doesn't change along with it. For example, when I selected 3 items, the msgbox will pop up 3 times but each time will have the same information (first item in the table) even when that item isn't selected.
My next issue is that I am receiving an error message with "Me.Status = 6" stating "You cant assign a value to this object". 6 refers to the id of the status i want to set it to.
Situation: 3 tables. Manufacturers, Countries & Provinces/States. 1 Form for data entry in Manufacturers.
Countries table contains ID, Country and CountryCode fields. i.e. 47, Great Britain & GB
Provinces/States table contains ID, Province/State and CountryCode. as in 1, Alaska and US.
In the form the country is easily selected from a list refering directly to the Countries table.
Problem: How to make a list in the form from which the user can simply select the province for the country that has previously been selected. And not a list with all teh provinces and states from every country in the world. (This would be a really really long list...)
I am new to Access(and self taught) so bear this in mind when you view my DB. (Any suggestions are appreciated)I am using Access 2003.
I have included a sample DB. What I need this to do is when you use the Fill Selection Form You can choose mulitple selection in the list box. When you click Done those you selected will show up in the right hand side subform where you can add quantities. I want this info to be stored as one "Fill". It would also be nice if while you are selecting in the list box a calculated field shows you the total weight you have chosen.
Can anyone help???? :confused:
Hi There
i have a list box on a form, which from a query provides four columns
the first column is the bound column and is the reference ID,
the second column is the reference
the third column is the reference type ID
the fourth column is the reference type
depending on the reference type, the reference is edited on a different form
how do i / can i code it that when i double click the list box, the correct form opens to edit the reference details with the reference ID as the linkcriteria,
i am okay with the linkcriteria, but not with the code for the correct form to open
thanks in advance
I have a form that contains a list box with 11 separate options. Within this list is the option named "None". My desire is to have a message box displayed when any option is selected other than "None". I have searched various threads, however I have been unsucessful nailing down my issue. Thanks in advance for the assistance.
View 1 Replies View RelatedA few weeks ago I had a post in which I asked how a user could type in the text value of a list of selections in a list box, and arrive to that selection.
Such as if they type in "A" then "B", it goes to "Abby" rather than "Aaron" then "Ben". It was answered that this was not possible in MS Access with a list box, so after that I basically told the users I would look into it more.
I have finally cleared off my desk and arrived back to this small issue.
I thought of the idea to add a Drop-Down Combo Box to the form. I could use the functionality built into the Drop-Down Box to allow them to type in the person they are looking for in the List. Then click a button labeled "Find" and it would take them to the correct person in the list box. They could then function as before.
I just could not figure out the code to put behind my "Find" button. I am not sure if you can do a "Goto record" against a List Box, or a "Find record" against a list box.
Has anyone run into this issue, and if so, was there a way to work around it?
Thank you,
T.J.
So I have a list box on a form from which users can select which fields to display in a query... There is a default set of fields to display, which at the moment is hardcoded in the associated VBA (far from ideal). I was wandering if there is a specific way to open a list box with a number of values selected by default?
Many thanks in advance,
Bogzla
I have an unbound list box that gets its data from a query. I have a button that grabs the selected item(s) from the list box and puts them in a text box. The code for the button is:
Dim nsrow
Dim mystring
Me.List40.SetFocus
If Me.List40.ItemsSelected.Count > 0 Then
For Each nsrow In Me.List40.ItemsSelected
mystring = mystring & Me.List40.Column(2, nsrow) & ", "
Next nsrow
End If
If Right(mystring, 2) = ", " Then
mystring = Left(mystring, Len(mystring) - 2)
Else
End If
DESC = mystring
How do I make it so that when the item is selected and is in the text box, it prevents the user from clicking that same item again from the list box? The best way I think is to remove the item from the List box once it's in the text box but I don't know the code to do it.
Please Help!
I have a list box that pulls data from a form. It pulls ProjectID and ProjectName. I want to be able to select one of the ProjectName(s) from the list and have it take me to a form for that ProjectName. I have one form for all the ProjectName(s), and want to be able to simple select one of the ProjectName(s) from the list and have access bring me to the right page of the form. Please Help! Thanks!
View 4 Replies View Relatedhow can I retreive the value (and not the index order with listIndex) from a list box? I have a list-box based on a parameter query and I want to retreive only the selected record (in the list box) data from that query.
View 2 Replies View RelatedI have a form where I add a new event, and it gets added to a list box in another form, I was intending to select the most up-to-date record within the list box but it seems to keep selecting the old latest record and not the new record that ive added. I had tried to select the first record but then move to the last record hoping it would refresh but that still doesn't work.
This is the code I used below:-
Quote:
'Select last event record added to event list box
Me.lstPatientEvents = Me.lstPatientEvents.ItemData(Me.lstPatientEvents.L istCount - 1)
lstPatientEvents.Selected(lstPatientEvents.ListCou nt - 1) = True
I have a list box that is filled from a table with names of individuals. What I would like to do is when one of the names is selected it will take it off the list and do this for all the names in the list until all are removed then will reset and have the names avaialble once again. Is this possible and if so how can it be done? Thanks.
View 5 Replies View Relatedso i have two listboxes that have the values i want for the query parameters. I slightly modified one code i found so that i can query using one of them, however i cannot figure out how to get the second listbox to put criteria into another field. The working code i'm using is:
Private Sub Command_Click()
On Error GoTo Err_Command_Click
On Error GoTo Err_Handler
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String
For Each varItem In Me.PartyBox.ItemsSelected
strCriteria = strCriteria & "counterparties.counterparty =" & Chr(34) & Me.PartyBox.ItemData(varItem) & Chr(34) & " Or "
Next varItem
strCriteria = Left(strCriteria, Len(strCriteria) - 4)
strSQL = "SELECT counterparties.[Counterparty Entity], Fund.[Fund Name], products.Product, combine.[Available?] " & _
"FROM products INNER JOIN (Fund INNER JOIN (counterparties INNER JOIN combine ON counterparties.[Counterparty ID] = combine.[company id]) ON Fund.[Fund ID] = combine.[fund id]) ON products.[Product ID] = combine.[product id] " & _
"WHERE " & strCriteria
CurrentDb.QueryDefs("1").SQL = strSQL
DoCmd.OpenQuery "1"
Exit_Handler:
Exit Sub
Err_Handler:
If Err.Number = 5 Then
MsgBox "Must Make A Selection First", , "Make A Selection First"
Exit Sub
Else
MsgBox Err.Number & " " & Err.Description
Resume Exit_Handler
End If
Dim stDocName As String
stDocName = "combqry"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command_Click:
Exit Sub
Err_Command_Click:
MsgBox Err.Description
Resume Exit_Command_Click
End Sub
I am trying to be able to search by Product and counterparty.
Any help is greatly appreciated, thanks!
I have searched the forum and just can't find an answer. I'm hoping someone can point me in the right direction.
I have a main form with a combo box that links to a table called tblSTC. There are however hundreds of records to choose from. To make the serach more simple for the user there is a button next to the combo called 'Search', When the user presses this a new form pops up with a text box and a list box (the list box contains all records in tblSTC). As the user starts to enter text into the textbox an AfterUpdate event limits the records displayed in the list box to match the criteria of what has been entered in the text box.
When the user identifies the entry he/she wants to select from the list box, I want the functionality of being able to double click the entry, the popup form close and the selection populated in the combo box.
I know that this is probably just simple code using the List Box double click event. I am however unsure how to go about it. Do I need to use some kind of Insert statement??