Database Form Query

[KeithG]

Looks like you are on the right track.

 

[mogul0212]

I had posted what I had done up until your recent posting with changes to the query to remove the duplicates. I deleted that post because I didn't want to confuse you as I try to combine what you gave me to what I've added for search criteria in the form and VBA code if that makes sense.

 

[mogul0212]

KeithG

Ok, here's my up to date database file with all the criteria set up I want except the subtable "Individual Tool Information" criteria. I noticed in your most recent post with the "Vendor" as a criteria, the search results produced included other records that didn't have that vendor I chose listed under it. The "Individual Tool Information" table would have no records in it. Such as "Gladu" as a vendor, even though there is only 5 individual tools listed, it came back with 7 response, the first and last "Individual Tool Information" table coming back empty. And when I looked up that info in the table by hand, the first and last records weren't "Gladu" tools.

I'm not going to worry about that search function problem yet. I'd rather work on getting rid of the duplicates in the drop down boxes I have in my new up to date one I've posted here.

I just wanted to post this to show you what I've done so far taking what you've given me. If you could provide a bit of guidance with the Group query thing I would greatly appreciate it. I want to learn as much as I can about this process.

Thanks again.

 

[mogul0212]

KeithG

I'm totally confused on the "group by" total menu. I can't seem to be able to add that function to an existing query.

The "Total" option isn't there in any of my queries? How did you do that?

 

[KeithG]

Go into the quiries dising view and click the button that looks like a captial E. You should notice another row added to the query desing grid called total choose group by from the drop down box.

 

[mogul0212]

Go into the quiries dising view and click the button that looks like a captial E. You should notice another row added to the query desing grid called total choose group by from the drop down box.

Oh ok, got it.

Now each drop down menu needs it's own query? Why is that?

 

[KeithG]

Because they each show differant data.

 

[mogul0212]

Because they each show differant data.

ok, once I have a query for each drop down menu, and have Total - Group By selected.

What do I need to do next?

And then how do I filter the drop down menus to not display the duplicate entries?

 

[KeithG]

Make your queries for the combo boxes. Then go into the form and change the combo boxes Row Source to the approriate query.

 

[mogul0212]

Make your queries for the combo boxes. Then go into the form and change the combo boxes Row Source to the approriate query.

Ok, Let me try that. Any coding needed for the filtering?

 

[mogul0212]

Oh, never mind, once you change the Row Source, it does the filter

Just so I know how that work, how does changing the Row Source to that query remove the duplicates?

 

[mogul0212]

Ok, I know this next questions has to be simple. But how could I create a button to "clear" all of the selected criteria in the form to start a new search without having to manually delete each criteria?

 

[KeithG]

Because that query does not return duplicate values.

 

[KeithG]

Add a button with code on the Click_Event for each control on the form

me.[ControlName].value=""

 

[mogul0212]

Oh ok, that's simple enough.

Is there any way to remove the navigation bar at the bottom of that search form?

 

[mogul0212]

hmmmm

now I got it to clear the form.

But now the "submit" button doesn't produce any records?

What did I do?

 

[mogul0212]

Here's my file. I have no idea what I did to cause this.

I swear all I did was add that button and the lines in the On_click event procedure

 

[mogul0212]

Here's a copy of the file without adding the code. This allows the search to work.

 

[mogul0212]

If you add this line of code.


Private Sub ClearForm_Click()

Me.[cmbNCTool].Value = ""
Me.[cmbNCDivision].Value = ""
Me.[cmbToolMaterial].Value = ""
Me.[cmbProfile].Value = ""
Me.[cmbToolType].Value = ""
Me.[cmbProfileType].Value = ""
Me.[cmbBoardThick].Value = ""
Me.[cmbMinorD].Value = ""
Me.[cmbShankD].Value = ""
Me.[cmbMaxCut].Value = ""
Me.[txtNotes].Value = ""
Me.[txtDesc].Value = ""
Me.[chkUsedArksCtyVeneer].Value = ""
Me.[chkUsedCorbinFoil].Value = ""
Me.[chkUsedFFallsVeneer].Value = ""
Me.[chkUsedFFallsFoil].Value = ""
Me.[chkUsedVbrgVeneer].Value = ""
Me.[chkUsedVbrgWood].Value = ""

End Sub

The search gives a blank "Tooling Information" form when you click on the "Search" button. Even if you delete the above code. Clicking on the "Search" button still opens a blank "Tooling Information" form.

Hope this gives you enough background info to try help me.

Thanks again for all your work.

 

[KeithG]

The search gives a blank "Tooling Information" form when you click on the "Search" button. Even if you delete the above code. Clicking on the "Search" button still opens a blank "Tooling Information" form.

Do you have any criteria picked or are the boxes all blank?