Modules & VBA :: Grabbing Values From Search List Box
Jun 30, 2014
I was able to create a very user-friendly pop-up search form : {URL] .....
I would like to take it a step further... Now, I would like to grab the selected record ID from within one of the list box columns and use it in my SQL statement (to copy the record into a new one). Is there any way to reference a highlighted record value within a list box recordset directly and/or any workarounds?
I know one would be to grab the ID and insert it into the text box, just don't know what the coding references would be for this.
Hopefully this is an easy one. I've got a table with (for example) a list of books sold (field 1) and the price they each sold for (field 2). There are duplicates in both field 1 and field 2. I'd like to create a new table that has each book's name exactly once, and the maximum value it sold for. How can I do that?
In my database I have 4 tables for a small painting and decorating business.
These are: tblCustomers, tblOrders, tblStock, tblPayments.
I have a form based on tblOrders to add new orders when they come in from customers.
In this form there are 3 important fields: "CustomerID" (Lookup to tblCustomers), "StockID" (Lookup to tblStock) and Quantity (Entered by user).
However, I want a calculated field that will be worked out automatically when the user is entering these details. The calculated field should go to tblStock and grab the "Cost" field.
However the main problem is specifying what price it will grab from the table. I want it to get the "Cost" where "StockID" = (the stock ID selected in the lookup). I then want to multiply the price by the quantity which the user has entered.
The control source should be worded something like: = ([tblStock]![Cost] where [StockID] = StockID)*Quantity
but that isn't valid.
Could anyone point me to a piece of VBA or some way to get around my problem? Many thanks for any help, Stephen
My boss wants me to program in visual basic, instead of using queries, a calculation between times, which values are gotten from a table. How do I perform a calculation between two fields from a table in code and what functions are there to calculate the amount of difference in minutes between times in visual basic? THANK YOU SO MUCH IN ADVANCE!
i have got the bellow code that filters a listbox which is based on a query, from a textbox. The code works fine and it Filters, but if i put in too many characters that do not exsit in the data( so it cant display any results) i get an error saying Run time error 2105 - You cant go to the Specified record? how i can catch this error so it does nothing apart from display a blank listbox with no error?
code:
Private Sub txtSearch_Change() Me.lstShowSupplier.Requery DoCmd.Requery Me.txtSearch.SetFocus If Not IsNull(Len(Me.txtSearch)) Then Me.txtSearch.SelStart = Len(Me.txtSearch) End If End Sub
I have a combo box which gets its values from sql server using a query which is called "get_query_reason", which works fine. Now I want to update combo box values based on a user selection, st string. Have written the code, but does not work:
Dim qDef As QueryDef Dim Query As String Dim st As String Dim rs As Recordset st = "SOV" Set qDef = CurrentDb.QueryDefs("get_query_reason")
I have a table in msaccess which i would like to use as a search term to search values in another table. What i wanted to do is search the table with attributes and save all found attributes to a new table with its primary id.
Search_Keyword_Table Id ---- Search_keyword 1 ----- Size - S 2 ----- Size - M 3 ----- Size - L 4 ----- Size - XL
Im trying to delete values from a table based on the selected values of a listbox. The listbox values have a hidden column which related to the ID on the table to which I am trying to delete from (if that makes sense).
If I use the following code:
Code: Set ctl = Me.Results_listbox For Each varItem In ctl.ItemSelected CurrentDb.Execute "Delete * FROM Table1 WHERE Table1.ID = " & ctl.ItemData(varItem) Next varItem
I get an error stating Object doesn't support this property or method.
I am trying to use a list-control on a form to let the user select multiple values. I have understood that this requires some VBA-code to step through the selections in the list, since the "multivalue-selection" is set to "Extended".
When I try to execute the code I have (found and have tried to adjust), then I get the error message "Object required". The "ListCount"-paramater always only results in a ZERO-value, when i step through the code:
Function cmdOpenQuery_Click() On Error GoTo Err_cmdOpenQuery_Click Dim MyDB As DAO.Database Dim qdef As DAO.QueryDef Dim i As Integer Dim strSQL As String
I have a form which has a combobox called Task_Ref which looks up values in a table column.
I would like to be able to set the tickbox value of tickbox called P1 to True if the combobox contains the word "test", each entry on the combobox selection may vary such as:-
Test number 1 Yesterdays Test
As long as the word "Test" appears I would like the above to happen?
I was thinking of something along the lines of:-
If InStr(Task_Ref.Value, "Test") > 0 Then P1.Value = True Else P1.Value = False End If End Sub
I have two third-party library programs that allow you to type in an ISBN and the software searches, say Amazon, and grabs particular missing data: author, cover jpg and summary etc, and imports the info to the program. I'd like to replicate this process with Access. If I can type in an author, title or ISBN to Access, I'd like it to search Amazon to gather and input the missing data to my assigned fields. Is this possible? Or am I stuck to typing in the information separately.
Not sure if this is possible but I have in my db a linked ODBC connection to a table. I use a Oracle 8 login to access the linked table. My question is can I capture the user login in ID somewhere in my table to show who is logged in? Thanks...
I have a report that is generated daily that is a TXT file that is also the has the same file name each morning. One section out of this file is needed in a database that compiles and sends out reports to our customers. This section of the TXT file is variable in length, but is always preceded and ends with a specific text string that I can search for. It is also formatted in columns that are always the same width.
I currently have to hand enter this section into the database every morning. Not the easiest of tasks... I would like to get this automated.
I have a form that has a subform on it. The main form shows a category of furniture and has custom navigation buttons and a search text box for asset numbers and command button that runs the search. The subform shows the asset numbers associated with that furniture category, sometimes there is only one asset number, in other cases there could be 60. There is a scroll bar to scroll through the asset numbers when there are too many to see in the initial window.
The buttons all work as they should except when I search for an asset number that is part of a category that has too many asset numbers to show in the main window. When this happens the "previous" and "next" navigation buttons do not take you to the previous or next record. All of the other buttons on the form work though - you can go to the first, or the last record, and you can search for a new asset.This is the code for the search:
Code:
Private Sub cmdAssetSearch_Click() Dim rs As Object If IsNull(Me.TextAsset) Or Me.TextAsset = "" Then MsgBox "Please type in an asset number to search for.", vbOKOnly Me.TextAsset.SetFocus
[code]....
I've also attached a picture of what I mean when I say there are more asset numbers than what the window shows.
I have a table called Bear Sighting, A form called Search by observer.. A list box, containing all the observer names. I would like to be able to search through the database table 'bear sightings' and display only the sightings by the observer that I have clicked on... I would like to display them 2 different way at the same time... once in a list box and then again see them at the bottom of my form, displayed as records that you would see in the design view of my table... any can help, that would be great... I am not too familiar with the program so I will need specific details if you could thanks...
I created a list box from the patient info with the following
Last Name First Name Social Security Date of birth Account Number
I created a text box above the list box to search records but dont know how to link the two
Also created Option buttons
Last Name First Name Social Security Date of Birth Account #
So if i need to search by last name i click on the last name option box and type the last in the search text above the list box and so forth any ideas.
I have a list box pulling information from a table. It include fields for last name, first name, primary number, secondary number, and id; of course with different names. I display first and last name, but the rest are hidden. What would be ideal is if I could begin typing someones first or last name in the text box and it would just start either narrowing the list, like in itunes, or would start skipping down the list and would be highlighted. For example. If I was searching the number for walmart, i could go to the text box and type "wal" and it might highlight "wallace, james"; and if I added and "m" to that, it would skip down to "walmart".
I would settle for autofill and click a search command button when I'm done, and it takes me to that entry in the list box. I copied some code off the internet. Don't know if it'll work, but here is what I got.
Private Sub txtSearch_AfterUpdate() Dim srchstrng As String srchstrng = Me.txtSearch.Value SQL = " SELECT Phone.last_name, Phone.first_name FROM Phone_" WHERE (((Phone.last_name) Like '*" & srchstrng & "*'));" Form.RecordSource = SQL DoCmd.RunCommand acCmdRefreshPage End Sub
I have the following dataset in a table called NR_PVO_120. How do i pick out a number (which can change but let's say, 6) of UNIQUE OtherIDs without excluding any OtherIDs under any fax numbers?
So, if you pick OtherID from Row7 you then also must pick OtherIDs from rows 8 and 9 because they have the same fax number. Basically, once you pick an OtherID you're then obligated to pick all OtherIDs that have the same fax number as the one you picked.
If the number requested (6 for this example) isn't possible then "the closest number possible but not exceeding" would be the rule.
For example, if you take OtherIDs from rows 1-10 you will get 6 unique OtherIDs but row 10 shares a fax with rows 11 and 12. You either need to take all 3 (but that will raise the unique count to 8, which isn't acceptable) or skip this OtherID and find one with a fax that has no other OtherIDs and that isn't on the result set already. My result of 6 UNIQUE OtherIDs will need to contain ALL OtherIDs under any fax the existing OtherIDs are connected to.
So one solution is to take rows 1-6, 26. Another is to take rows 1-4,10-14.
There will be many possibilities (the real dataset has tens of thousands of rows and the number of people requested will be around 10K), as long all OtherIDs connected to all faxes on the result set are part of the requested number (6 in this case) any combination would do.
A few notes.
1.Getting as close as possible to the requested number is a requirement.
2.Some OtherIDs will have a blank fax, they should only be included as a last resort (not enough OtherIDs for the requested number).
This is for a fax campaign, we need to make sure no fax number is faxed twice, that all people connected to that fax number are contacted under one fax sent.
I have been searching the forum for this scenario but could not find similar case, which is as follows: I have a Search Form with many Text and Combo boxes, linked to search criteria in a query. There is also a sub-form showing the search results. I am trying to replace one of the combo boxes on the form, with a List Box, so I can make multiple selections. For example instead of showing only "buy" transactions via the combo, I want to see both "buy" and "sell" transactions, which I believe could be done via a List Box.
For the combo box I have the following: In the Field section I have: [TransactionType]=[Forms]![frmSearchTransHist]![cboTransType] Or [Forms]![frmSearchTransHist]![cboTransType] Is Null
For Criteria I have - "True"
So, my question is what should I put on the query in order to make it work with a list box.
I also want to give credit here to Jon K who has an example of database with combos and texts - very helpful example! http://www.access-programmers.co.uk/forums/showthread.php?t=103312
When you use a combobox to search values in the form - and someone searches for a value that isn't there - the form just defaults to the first entry. Is there a way of putting a message box that says "This is a new patient" (or something like that). The NotInList event doesn't work - any ideas??
I have used John Big Bootys Dynamic Search Form, however to search on the fields I want I have created a query which has mutiple tables and when I get a duplicate value in the search box, i.e. in Client, there are 2 client "A"s and when I click on one it automatically chooses both.From here I want to create a double click event to open that records in a form, but I can't if it defaults to both records.
Is it possible to make a form where you have two textboxes to search a table and show the search results in a list under the textboxes? Also making the list items clickable?
