Modules & VBA :: Creating A Search Form With Ability To Add Found Record To Table?
Aug 7, 2013
creating a VBA that will allow me to search for a record in Table A, and once the record is found, allow me the option to add that record to Table B. Is this possible to do if Table A and Table B are not formatted the same (i.e. one has more fields than the other)? In summary, creating a VBA that will allow me to search in one table and once the correct record is found, allow me the ability to add it to another table.
I need creating a just form that has an unbound textbox and a button for search record. For instance if the user enter the criteria in the textbox and the item matches the criteria in the search textbox. it will open up the form. It's like google website.......
The Setup: There is a clients table, a property table and a jobs table. Each client can have multiple properties and there can be multiple jobs done on each property.
The form: I created a form that uses a drop down to select the client, once the client is selected the subform shows the properties for that client. I can navigate through the properties to select any of the required properties and on this same subform, there is a button to open the jobs related to the property selected.
The problem: The form and subform work fine. The last form (the button that opens up the jobs) works ONLY IF there are records available. If there are no jobs for that property, it doesn't allow me to enter a new record. I'm pretty sure that the issue is because the jobs form has a query record source that uses all three tables linked (I'm pulling the clients name from the clients table and the property name from property table).
What I need is some vba coding to check if the recordset is empty and if it is then add this entry. Also, I'm not sure if this should add this code to the button or on the on_load of the jobs form.
i orginally thought i should do this in excel but i think when the dataset becomes larger and i want to eventually get it on the web - i thought its access i need?
i have created a mini dataset as an exmaple of what im trying to explain..i have in first column the objects, and columns after this are the elements needed to make the object (i have just labelled the element titles a b c etc - there will be LOTS of elements once i get the dataset created). so if i had a red blue green cream elements - a search would bring back both lights and lamps that i am able to make.
object A B C D E F G H lights red blue green cream lamp red blue green cream garage red blue green cream yellow brown purple pink house orange white green blue red black garden orange white green blue red garden house orange white green blue red
is there a way of creating a search lookup to this kind of information? a form which you type the criteria in and it brings back what you can make? if i was one element away from an object could I use a wildcard function to say, if you had black you could make a house?? etc
I have a problem with my database I have a combo box that will search for my record. Actually its working I input the specific number it goes to the specific record. But I want, if there no existing record in my database it will display a Messagebox that "No record Found" I try to put a code in a macro builder in a after update property field but nothing happened.
Expression code that it will display the msgbox if there's no record found.
the given code from macro builder is attached. I try to have an if else statement but I dont know how to not equal that giver conditional expression.
I have a form / subform. The form has a memo field. I have 10,000 plus records in the Form table. Each time I make a correction in two or more of the fields, I get the error: The Search Key was not found in any record error. For instance, I can even manually tie a many to many relationship in a join table without an error by adding a new record at the table level but I can't do this in the form. In neither place can I change the memo field more than once without this error. What resets it so I can make one more change is to Compact & Repair Database. A hassle and then some. :(
This happens after a) I update an access Memo field, and b) query the record for re-display.
The only way I've found to resolve the problem is to compact and repair the db, but does anyone know what might be corrupting the data in the first place? The submitted text included html tags.
I am having today is that after making my database into an accde and putting it in a shared location for someone else to run it. The Error search key was not found in any record appears. Then macros single step, stop all macros appears and what ever I press from here crashes the database and it wont open.
I have a split database where the front-end links to tables in two different back-end files. (access 2010).Then, there is a lookup field in back-end#1 that looks-up a field in back-end#2. It's all been working. But... The customer wants to be able to store multiple values in that lookup. I went into back-end#1 and changed that field to allow Multiple Values and saved it. When I opened the front-end and clicked on that table I got "the search key was not found in any record" no matter what I tried.I was able to go back and delete that lookup field and recreate it w/o allowing multiple values and it's working.Is there any way to accomplish what it is that they need, the multiple values?
I have a continuous form that I would like to filter with a combo-box in the forms header. The combo box is populated with the table's primary field [ID] which is an Autonumber. When I click the caret on the combo box, it provides a list of ID's but when I select one, I get this error message "Run-time error 3709, the search key was not found in any record". The code is:
Private Sub Combo 31_AfterUpdate() If Me.Combo31 & ""<> "" Then Me.Filter = "[ID]= '"& Me.Combo31 & "'" Else Me.Filter = "" End If Me.FilterOn = True End Sub
I try to delete a record and i get this error message "The search key was not found in any record". The key of the table is an autonumber but for some reason in these two records i want to delete has value = 0 .
I have a fairly complex database which contains a company table and a staff table along with approx 30 other smaller tables.
The staff records have a field called company which is linked in a one to many relationship to the CompanyId field in the Company table. This is an auto-number field and is up to 5467 currently.
I have enforced data integrity when this relationship was created. The users enter new staff members using a sub-form in the Company form.
A user created a new record for a company and while completing the task the text in all field went a bit crazy and appeared in symbols rather than text. The user shut down the database and restarted it.
Now when you open the company form the staff member appears with the correct company but does not appear anywhere else in the database with this company. The correct company id is 3416 but when I looked in the table the staff members record has an id of 36097146 or something similar. There are only 5467 companies in the company table. I tried to amend this figure and got and error which said "The search keys could not be found in any records".
I tried to delete the record and the same error appeared. When I clicked on the Help button of the error I got a message telling me that the error occurs when an ISAM seek operation fails.
Anybody know what is going on here and how I can delete this record or more importantly why this may have happened in the first place.
I have a query using Access 2003 accessing invoice information from a table linked from our point of sale system. The query runs perfectly displaying all info including dates if there are no specific dates indicated in the criteria. If I select a date in the criteria field I get the message "the search key was not found in any record". I used Access 97 for years and had no problem with this query. I recently changed to Access 2003 because we upgraded all computers to Windows 7. Is the search criteria format different in 2003 vs 97?
I have a split database with several attachment fields that work fine.
When I try to create a new attachment field in the BE, upon opening the FE, I get the following error: "The search key was not found in any record."
I have tried several ways: first create the attachment entry in the BE, then I can't open the FE. Create it first in the FE, leave it unbound and then create it in the BE - same error.
My database is in database where we do the editing and using Access for query reports.
Upon importing from External Data Link to the data source by creating a linked table: the table was created but running a query yields the above error.
I've been able to navigate a lot on my own, but there is one issue I cannot seem to resolve. I have 1 form and 1 table. I have the form set up so that you can enter data, and then press a button, and it will "save" and refresh the form for a new entry. However, I want to be able to pull that entry back up in the form, and fill out additional fields later on.The form is set to data entry = yes because I do want the form to open up as brand new each time.
To sum up my question. I want a text box and search button at the top of my form. When you type an ID number in the text box, and then press search, I want access to populate my form with the information in my data table associated with that ID number.
If I type in the number 1234 and hit search. I want my form to autopopulate with the data in the row for ID number 1234 (all the fields I have already populated). So by searching 1234, the name, phone, background info, etc that is populated in the row will appear.
I am trying to provide the user a custom search feature. They want to enter a keyword or phrase and search 3 memo fields and filter the form base on the records found. they also want to be able to search the whole phrase or any part of the phrase.
I have a like expression for any part of the phrase but I when I set it up for whole phrase it doesn't work. Even if I run a simple query and use
For example: There's an acronym the user is looking for : ACA
If I set my query up like this: [field1] like "*ACA*" or [field2] like "*ACA*" or [field3] like "*ACA*"
it not only finds records with that acronym but it also finds records where that combination is found in a word, for instance vacate.
I support a database for some users who don't find the built in search function (ctl+f) to be useful enough.
The main data entry form of the database has fields for subdivision, lot number and address, any of which they may use to find the record they want. They're requesting that I add two types for searching: * select sub and/or lot number as search criteria and have the selected record populate the screen * type in a freeform address and have the record populate the screen
I'm debating about what the best approach would be to do this. Should I have a command button which opens a pop up form with the fields? If so, what is the code I will need to take the data selected/entered on the popup, run a query and then populate the underlying form? I think I need to pass parameters but I'm inexperienced at this so I need some guidance.
Also thinking that if I do create a popup form that I'll use it in the open event on the data entry form as well.
My department and limited the users to only specific tables based on their need and role. However, users have expressed the need to view past work. I do not want to give them access to the table - I am thinking that there should be a way to create a report that shows the data, but how would I set up a search filter option so they can find the one record that they are looking for?
Help! A very strange record has materialised in my database. Consisting of characters like these: ༏｀䳾䬲No00:00:00佔㌳774400:00:0000:00:00N/AŸÞ呌ㅏＲ㋾〰YesYesNoYes00:00:0000:00:0000:00:0000:00:00YesYesYes00:00:00〶〹Ｓ叾䅔⁂佐䱏删乕丠塅⁔䅄⹙倠䕒䅐䭃匠呅唠⁐义佃剒000:00:00䍅䱔ｙ䓾 The database is linked to an excel spreadsheet which updates the database. When I try to delete the record I get a message;"The search key was not found in any record" I can't even overwrite the field with proper data either. Please can anyone please explain to me how this record has appeared (in simple terms - I am a very simple person) and how do I get rid of it?
Input box Search problem. I have been using the following to find a record in my frmMain using an Input Box:
Private Sub cmdClientIdSearch_Click() 'Searches for Client by ID number Dim rs As Object Dim strCriteria As String strCriteria = InputBox("Please enter Client ID" & vbCr & "Do not type leading zeros")
[Code] ....
It works great if I run it from a command button from frmMain. But, if frmMain is open and I run it from a command button on my switchboard, I get the following error message:
Run Time error 7951. You entered an expression that has an invalid reference to the Recordset Clone Property. I tried inserting a command to open frmMain in the first line, even before the two Dim statements, but I get the same result.
This problem won't go away. I've tried everything I know to get rid of this msg. The last record listed has ASCII type symbols in which look like boxes in many of the fields, and when I try to delete the record, that is when i get the msg. I've turned off the Pri key and tried to delete the record, no success. I've even added a new primary key in an attempt to allow record deletion. Anyone with experience pls advise. Thanks. NC1
