Modules & VBA :: Record Selection From List Box
Oct 18, 2013
I have a form that allows me to change the information for a list of personnel. On this form I have a list box that displays all the personnel in the list. There should never be more than 12-15 people in this list so it's an effective way of selecting records, however I can't figure out how to make the form select the record that is tied to that person from the list.
In VBA I've tried creating an "On Click" command for the list that, when a name is selected, is brings up the corresponding record. I thought I could use a DoCmd.FindRecord but I guess I don't quite know what I'm doing. I didn't want to use SQL to limit the records to just the one that matched I wanted to keep it simple if possible.
Code:
Private Sub Personnel_List_Click()
DoCmd.FindRecord Personnel_List, , True, , True
End Sub
The Personnel_List box is tied to the Personnel_Table, and the table only displays the names available.
View Replies
ADVERTISEMENT
Mar 25, 2015
I have 1 combo box contains 2 columns look-up directly from the properties(Not VBA)
Now i want to select record from the list
Example: i want to select PM-1234-1111 so i dont want to type starting letter PM to select but i want to type 234 or 123 or somewhere in the middle or end to filter that contained text in all the items is it possible?
Any Property settings or any VBA code?
View 1 Replies
View Related
Apr 6, 2014
I 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
View 1 Replies
View Related
Jul 21, 2005
I have a form with a drop down list, when the user selects an option and press a button. I would like to add the value of the drop down list to a table as a new record.
Thx :mad:
View 2 Replies
View Related
Dec 11, 2014
I am using access 2010
I am trying to get my list box to filter based on the selection of a combo box.
My Combo box cboOrgRole is on my main form and is bound to OrgRoleID - on form - frmOrgEntry
The unbound list box lstRoleList is in a tabbed subform - frmPersonnel
This is my data pull for lstRoleList
Code:
SELECT tbl00PersonRole.PersonRole, tbl01Orgs.OrgRoleID
FROM tbl00PersonRole INNER JOIN tbl01Orgs ON tbl00PersonRole.OrgRoleID = tbl01Orgs.OrgRoleID
WHERE (((tbl01Orgs.OrgRoleID)=[Forms]![frmOrgEntry]![OrgRoleID]));
This is the code I have on cboOrgRole AfterUpdate
Private Sub cboOrgRole_AfterUpdate()
Me.frmPersonnel.lstRoleList.Requery
End Sub
I have also tried Recalc - both throw a Compile error: Method or data member not found
My goal is to be able to select the role of the organization, (General Contractor, Architect, Engineer, or Client) and have it list the available titles for the specific organization type.
My "00" tables are library tables
View 12 Replies
View Related
Nov 21, 2013
Upon the results which populate my list box what I am trying to do is allow the user to select various values from the list box and then hit a button which deletes the values from the table. My code is currently:
Code:
Private Sub Del_TsCorrection_tbox_Click()
Dim lngID As Long
Dim strSQL As String
[code]...
But it doesn't delete, infact it doesn't do anything. The list box values are still in the list box and if I look in the table they are still there also.
View 10 Replies
View Related
Jun 18, 2013
I'm using Access 2007.
So far I have a Multi Select enabled list on which the user selects the serial numbers they want. They then click the "Report" button which will trigger a query based on the selected serial numbers to create a report on those serial numbers.
I have the code for the multi-select list working already. It creates a string of comma separated values that are the serial numbers which are selected in the list. Somehow I need to pass this string to my query so it can use it as a filter.
Here is some of my code:
Code:
Option Compare Database
Option Explicit
Private Sub Form_Current()
Dim oItem As Variant
Dim bFound As Boolean
[Code] ....
Here's my current query in SQL:
Then finally how to I get the query to execute and create a report based on all of this?
View 11 Replies
View Related
Oct 27, 2014
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.
View 4 Replies
View Related
Jan 12, 2015
My table has a yes/no field and about 10 records. I have created a form for the user to select which of the records he wishes to use - the records are displayed in a continuous form with a check box for the yes/no field. The user is to select one record by checking the check box in the record.
I know this should be obvious, but I can't see it. How can I make it so the user can only select one of the records (when he clicks on one, that one is yes and the others revert to no?
View 4 Replies
View Related
Jun 28, 2013
When we browse through records in a subform we store the records in the database.When we want to delete a records for example the third record from the five records always the first records will be deleted. How can we delete the records where the cursor is at? When we are at the third record and press the delete button the third record from the list in the subform should be deleted.
Code:
Option Compare Database
Dim FocusBln As Boolean
Private Sub Identificeer()
Me.[Datum Aangemaakt].Visible = True
Me.[Datum Aangemaakt].SetFocus
If Me.[Datum Aangemaakt].Text = "" Then
[code]...
View 11 Replies
View Related
Jan 6, 2015
I'm making a database that so I can log calibration information about equipment every year.I have 2 tables:
The Equipment details table
The Calibration record table
ID Number is shared between the 2 tables so a calibration record can be linked to its' details.
For Example (simplified sample data):
Equipment Table
ID Item Unit Type
104 Thermometer DegC PT100
Calibration Table
ID Cal Point 1 Test Equipment Unit Under Test Date
104 20 21 22 06/01/15
What I want is a button on a form that creates a new blank record in my Calibration record table with the ID number already entered based on what record I selected in a combo box linked to my equipment table. I really don't know where to start.
View 2 Replies
View Related
Apr 21, 2014
My table:
tblHeatTreatment
- HeatTreatmentID - PK
- HeatTreatmentDesc - Text
- HeatTreatmentDetails - Memo
My form has a listbox (lstHeatTreatments - Multi-Select disabled) that displays Heat Treatment descriptions and an unbound textbox (txtHTDetails) that I would like to have display the corresponding memo field when a description is selected from the listbox.
This is my code so far:
Code:
Private Sub lstHeatTreatments_AfterUpdate()
Dim myConnection As ADODB.Connection
Dim myRecordSet As New ADODB.Recordset
Dim mySQL As String
Dim selectedRequirementKey As Long
Set myConnection = CurrentProject.AccessConnection
Set myRecordSet.ActiveConnection = myConnection
[Code]....
When I run the code I get an error:
Quote:
Run-time error '-2147352567 (80020009)':
The Value you entered isn't valid for this field
When I debug, it highlights:
Code:
Me.txtHTDetails = myRecordSet.Fields
View 3 Replies
View Related
May 20, 2013
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
View 12 Replies
View Related
Aug 12, 2014
My main form has a union query as it's record source. This displays a list of items for which the user uses this form to apply a category for each of the items. This relationship of item to category is stored in a temporary table. I have a subform with a list box that shows the current selections and is based on the temporary table. The linking of the master and child is based on the "description" field. I would like the user to be able to select one of the items in the list and have the main form go to that record. (the list box has multiselect set to none).
View 14 Replies
View Related
Jun 18, 2014
I have a list box that my client goes through with vbKeyDown and vbKeyUp. When he finds the correct record he wants to do vbKeyReturn and capture the checktype code and description and have them placed in a check which is another form that is open. The following code does not work:
Private Sub List3_KeyDown(KeyCode as integer, Shift as Integer)
If KeyCode = vbKeyReturn Then
Forms!frmChecks![TRA{CODING =
Me.CurrentRecord.Column(1)
Forms!frmChecks![TRA:CODEDESC] =
Me.CurrentRecord.column(2)
DoCmd.Close adForm, "frmCheckType", acSaveNo
KeyCode = 0
End If
View 2 Replies
View Related
Sep 22, 2013
I have the listbox named "payment_date", which shows recordset specified by following code:
Code:
Private sub Form_Current()
Dim que As String
que = "SELECT [date] FROM payments WHERE id Like '" & Me!myid & "*' ORDER BY [date] desc;"
Me.payment_date.RowSource = que
End Sub
I need my listbox to show recordset with record count like this:
3.date
2.date
1.date
View 4 Replies
View Related
Aug 31, 2013
I would like continuous subform as a list box in my file. Now when click fields on my form the entire record will not be highlighted. In the sample I have found from the net when click on each field in the form entire row will be highlighted. So I try to using function in the sample for my own but it does not work and when I click on each field just that field in 1 second will be highlighted and entire row will not be highlighted.
Private Sub P_ForceHighLight()
On Error Resume Next
Dim ct As Control, ct1 As Control
DoCmd.Echo False Set ct1 = ActiveControl
For Each ct In Me.Detail.Controls ct.SetFocus
[Code] ....
View 1 Replies
View Related
Feb 22, 2005
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:
View 1 Replies
View Related
Dec 15, 2005
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
View 3 Replies
View Related
Jun 20, 2005
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 Related
Feb 7, 2006
A 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.
View 2 Replies
View Related
Jul 17, 2006
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
View 1 Replies
View Related
Nov 18, 2004
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!
View 6 Replies
View Related
Dec 14, 2004
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 Related
Jan 14, 2005
how 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 Related
May 6, 2005
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 Related
