Search results

Hi all! I have an Access Database that I am using to track the difference in product codes between two different external databases. I export the codes from both and import to their own table. I then run two queries, one to show what is missing from one and another to show what is missing...

I got it figured out! Thank you for your help!

That did it! Thank you so much!

Hi, Sorry for the confusion. The first code is below. This code works if I manually change the [Product Product Type] field but doesn't work when you navigate through the records and it changes automatically. I do not want the user to change the [Product Product Type] field. It is actually...

I would like to be able to remove the filter to show ALL records. So any suggestions on how to get the first code set to work without using the linked master/child fields?

Yes. I could not get the first code to work without that.

Hello all! I have a filter on a subform based on a value from the main form. Code for this filter is: Private Sub Product_Type_AfterUpdate() Me.Central_Structure_Product_List.Requery Dim strType As String Dim strFilter As String If Not IsNull(Me.[Product Product Type]) Then strType = "='"...

Yes but I swear it threw an error. I must have had an extra quotation mark or a missing one somewhere. Thank you! :)

Hi All, I am trying to add an additional filter criteria to the below. This is a selection drop-down to filter on [Product Product Type]. I want it to also filter the main form to show only those records where [ActionCmb] is null. I have gone round and round and just cannot get it to work...

This helped a ton! Thank you!

I am using the below code to filter a subform based on the main form field of [Product Product Type]. The subform will filter based on the field [Product Type]. If I manually change the dropdown on the main form it will filter the subform. I do not want the user to have to do this as they...

:confused: Hello everyone! I have the below code on a subform. The search works fine IF the item is on the list. However, if the item is not on the list, it gives a 2185 error. WHY?! And how do I fix it? When I debug it highlights the Me.Searchbox.SelStart = Len(strSearch) line. TIA...

I am a believer of Debug now! Thanks!

Thank you! It didn't work but it did lead me down the right path. Turned out a different set of codes on the On_Current was doing all the work. Once I blocked that and moved this code to On_Current it worked. I did use your tricks to clean it up though. Thanks again!

I am going nuts with this. No errors and it filters perfectly on the Product Group but it will not filter on Product Type. Help! :banghead: The goal is to filter a subform [Central Structure Product List] based on given values for Product Group and Product Type. I have another code on both...

I am trying to figure out a way to use the DMax method to auto assign numbers to items in a list. I have a list of items and each time we receive one of these items it should have a number that follows along with numbers for that item...I know this is confusing! Basically I want ItemA to...

Thanks to both responders. This is why I love to post these questions here. You make me rethink how I am using the database. Plog, I am going to go with your table suggestion. Once I read your post it was very obvious and something I would have done had I done the Area Assignments from the...

This is mainly a formating question: I have the following wordy, messy code in a database. Code works great but I know there is a better way to write it. Can anyone offer some shortcuts for this code? Thanks! Private Sub Form_Close() Dim SQLA1 As String Dim SQLA2 As String Dim SQLA3 As...

I am trying to set up an alternative for the default Not In List Message. What I would like is for the item typed into the [Item Name] field of the Purchase Order Detail to be added to the [Inventory List] Form (in the [Item Name] field) and then for the [Inventory List] to be opened to that...

I finally figured this out...this is what I used. Private Sub Item_Name_BeforeUpdate(Cancel As Integer) 'Create Recordset of items on order list and then check if new item is already listed Dim Msg As Integer Dim cnn1 As ADODB.Connection Set cnn1 = CurrentProject.Connection Dim ToBeOrdered...