Affichage des articles dont le libellé est Qery based on combox to show all records. Afficher tous les articles
Affichage des articles dont le libellé est Qery based on combox to show all records. Afficher tous les articles

Qery based on combox to show all records

mercredi 4 mars 2015

Hi everybody,



I have bee stuck on this for two weeks now.



I am traying to have a query sort out my invoices by year but also to have the possibility to show all invoices.



I have one table "INVOICE" where I have a column "YEAR" calculated with DatePart function from the invoice date.



On my form "INVOICE LISTING", I want to have a combox "Combo957" selecting the year. I have forced the "ALL" selection to the combox using a UnionQuery.



My problem, I cannot get the query to work. I have tried many ways, the closest I can get is :



IIf([Forms]![Invoice Listing]![Combo957]="ALL",([Invoice].[Year])<Year(Date()),[Forms]![Invoice Listing]![Combo957])



If I select the year from the combo, it works, if I select "ALL" nothing is shown.



here is the full SQL



SELECT DISTINCTROW Companies.Company, Companies.City, Companies.Country, Sales.Brand, Sales.Type, Sales.Date, Sales.QuoteNo, Sales.Delivered, Sales.Account, Sales.Branch, Invoice.InvoiceNumber, Invoice.InvoiceDate, Invoice.CustOrderNumber, Invoice.PaymentTerms, Invoice.DueDate, Invoice.NetAmount, Invoice.TotalAmount, Invoice.Tax, Invoice.PaiementRCVD, Invoice.Overdue, Invoice.Month, Year([Invoice]![DueDate]) AS DueYear, [Invoice]![month] & " - " & [Invoice]![Year] AS InvoiceMonth

FROM (Companies INNER JOIN Sales ON Companies.CompanyID = Sales.CompanyID) INNER JOIN Invoice ON Sales.SaleID = Invoice.SaleID

WHERE (((Invoice.Year)=IIf([Forms]![Invoice Listing]![Combo957]="ALL",([Invoice].[Year])<Year(Date()),[Forms]![Invoice Listing]![Combo957])))

GROUP BY Companies.Company, Companies.City, Companies.Country, Sales.Brand, Sales.Type, Sales.Date, Sales.QuoteNo, Sales.Delivered, Sales.Account, Sales.Branch, Invoice.InvoiceNumber, Invoice.InvoiceDate, Invoice.CustOrderNumber, Invoice.PaymentTerms, Invoice.DueDate, Invoice.NetAmount, Invoice.TotalAmount, Invoice.Tax, Invoice.PaiementRCVD, Invoice.Overdue, Invoice.Month, Year([Invoice]![DueDate]), [Invoice]![month] & " - " & [Invoice]![Year]

HAVING (((Companies.Company) Like [Forms]![Invoice Listing]![ComboCompany]) AND ((Sales.Branch) Like [Forms]![Invoice Listing]![ComboBranch]))

ORDER BY Invoice.InvoiceDate DESC;



I would be very grateful if someone can help .



Phil

Qery based on combox to show all records

Labels