Search results

That fixed it, works GREAT. Thanks for all your help.:)

Attached is an abbreviated version to keep the file size small.

The line space issue was more from cut and paste. Used the following code, but list box still blanks out. Private Sub Toggle9905_Click() On Error GoTo Toggle9905_Click_Err strSource = "SELECT [All Comp].Part Number, [All Comp].Description, [All Comp].Supplier, [All Comp].Cost, [All...

One would assume logically that would work, seemed to obvious once stated. Revised the code to; Private Sub Toggle9905_Click() On Error GoTo Toggle9905_Click_Err DoCmd.ApplyFilter "", "[All Comp]![Part Number] Like ""*-05*""", "" strSource = "SELECT [All Comp].Part Number, [All...

The row source for the form and list box is a relation query combining two tables. The code for the row source for the list box is; SELECT [99-05 Comp].[Part Number], [99-05 Comp].Description, [99-05 Comp].Supplier, [99-05 Comp].Cost, [99-05 Comp].By, Suppliers.Approved, Suppliers.[Rating...

See code below; Private Sub Toggle198_Click() On Error GoTo Toggle198_Click_Err DoCmd.ApplyFilter "", "[All Comp]![Part Number] Like ""*-05*""", "" strSource = "SELECT [Part Number] " & _ "From [All Comp] " & _ "WHERE [All Comp]![Part Number] Like...

The code worked, but when applied, it filters the list box but blanks out all the columns except the first column. This allows me to only see the first column. Is there a way to change the code so all columns of the list box are shown.

Not sure how to make that work with a button to apply a filter and one list box. List 195 is what I need filtered when Toggle 133. I have; Private Sub Combo55_BeforeUpdate(Cancel As Integer) End Sub Private Sub Detail_Click() End Sub...

I have a form with data fields and a list box, data is coming from a query. When I add a toggle button to apply a filter to the data on the form, the data in the fields are filtered, but the list box still shows all the data items. How do I use a toggle button or something on the form that...

New to the site, looks like a place where I might be able to get answers to what some may consider easy questions.