Recent content by brucerwalker

So I can just replace the existing code with the code you provided? Thank you very much for your help and suggestions. Since I am a beginner at this, I greatly appreciate it!

The form searchrequest is the one to open, and the drop down with part number is where my problem is.

I was able to create a new database and have attached it to this post.

The security on the database will not allow me to use compact and repair. When I do that it kicks me back out to the login screen. So when I zip it, the size is just over 3 MB. I may have an original untouched copy of it

It is a copy, it is not split and it is an accdb. file. So far I have not been able to reduce it down to the max 2 MB file size the website will accept.

It Is possible. How would I get it to you?

When I run the query it says Syntax error in JOIN operation.

When I run debug.print query, this is what is in the immediate window; SELECT Request.*, Customer.Name, Programs.ProgramName FROM REQUEST, CUSTOMER, PROGRAMS INNER JOIN TEST ON ( Request.RequestID = Test.RequestID ) WHERE Test.PartNumber = '236889-02' and Request.CustomerID =...

Paul, Both data types are number. As I said previously I am a beginner at this, so I am not sure what you mean in your second statement by putting down the VBA ad opening a query object. Are you saying I should create a query that pulls the data by part number and then convert into VBA? I could...

Yes end sub is at the end of the code. I must have missed it when I copied and pasted the code in here. Sorry. So I changed the code as was suggested. Code is below. 'Field Parts If (Not IsNull(Me.ComboSearchPart)) Then query = query & " INNER JOIN TEST ON ( Request.RequestID = Test.RequestID...

The complete sub is on the first page of this post. I will check against what you just sent. Thanks for your help!

So should the cod look like this; 'Field Parts If (Not IsNull(Me.ComboSearchPart)) Then query = query & " INNER JOIN TEST ON ( Request.RequestID = Test.RequestID E End If query = query & " WHERE Test.PartNumber = '" & Me.ComboSearchPart & "')" and Request.CustomerID = Customer.CustomerID...

I understand that . I was following up on Jdraw's last question. Then what would you change in the code to eliminate the join and have the code run as it should? All the other 5 selection parameters are chosen through drop downs and all work as they are supposed to, but I am not sure why the...

Okay I added the space between " Where and ran it again. Below is what was in the immediate window; SELECT Request.*, Customer.Name, Programs.ProgramName FROM REQUEST, CUSTOMER, PROGRAMS INNER JOIN TEST ON ( Request.RequestID = Test.RequestID AND Test.PartNumber = '236889-01') WHERE...

Here is what was in the immediate window; SELECT Request.*, Customer.Name, Programs.ProgramName FROM REQUEST, CUSTOMER, PROGRAMS INNER JOIN TEST ON ( Request.RequestID = Test.RequestID AND Test.PartNumber = '40243.44AF36BD1')WHERE Request.CustomerID = Customer.CustomerID and Request.ProgramID...