Bonjour a tous,

J'ai recopie du code SQL derriere un bouton sur VBA...
Pas de soucis les boutons repondait correctement jusqu'a ce que je rajoute du code toujours en copie de SQL...

L'insertion est trop longue et me renvoie la copie du code sur la prochaine ligne...
Separee les deux lignes marchent bien!

Je pense donc avoir un probleme de syntaxe en fin de la 1ere ou en debut de la 2eme ligne...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    If Me![Selection1] = 1 Then
        Forms![CompteExploitation].RecordSource = "SELECT DISTINCTROW Style.StyleCustomer, Order.OrderNrCustomerFull, Order.CancellationDate, InvoiceOwn.OwnInvoiceDate, InvoiceOwn.OwnFiscalYear, InvoiceOwn.InvoiceRankOwn, InvoiceOwn.OwnFiscalYear, InvoiceOwn.OwnInvoiceDate, Sum(DatabaseCustomerDiscountOutDetail.DiscountOutPercent) AS SumOfDiscountOutPercent, InvoiceOwn.OwnInvoiceAmountDelivered, Style.Customer, Style.Department, Style.Buyer, Style.Commercial, DatePart(""m"",[OwnInvoiceDate]) AS [Month], InvoiceOwn.OwnInvoiceExclu, CreditNote.CreditNoteAmountEx, InvoiceSupplier.SupplierInvoiceAmountExc, InvoiceForwarder.ForwarderInvoiceAmountExc, InvoiceTransit.TransitInvoiceAmountExc, InvoicePartner.PartnerInvoiceAmountExc, DebitNote.DebitNoteAmountEx, Order.QuantityModified, Order.Supplier, " _
& "[OwnInvoiceExclu]-([OwnInvoiceAmountDelivered]*[SumOfDiscountOutPercent]/100)-[CreditNoteAmountEx]+[DebitNoteAmountEx]-[SupplierInvoiceAmountExc]-[ForwarderInvoiceAmountExc]-[TransitInvoiceAmountExc]-[PartnerInvoiceAmountExc] AS [Amount], ([OwnInvoiceExclu]-[DiscountOutAmount]-[CreditNoteAmountEx]+[DebitNoteAmountEx]-[SupplierInvoiceAmountExc]-[ForwarderInvoiceAmountExc]-[TransitInvoiceAmountExc]-[PartnerInvoiceAmountExc])/[OwnInvoiceExclu]*100 AS [Percent] " _
                                                    & "FROM ((((((((Style INNER JOIN [Order] ON Style.StyleSystem = Order.StyleSystem) INNER JOIN InvoiceOwn ON Order.OrderRef = InvoiceOwn.OrderRef) INNER JOIN InvoicePartner ON Order.OrderRef = InvoicePartner.OrderRef) INNER JOIN InvoiceSupplier ON Order.OrderRef = InvoiceSupplier.OrderRef) INNER JOIN InvoiceTransit ON Order.OrderRef = InvoiceTransit.OrderRef) INNER JOIN InvoiceForwarder ON Order.OrderRef = InvoiceForwarder.OrderRef) INNER JOIN CreditNote ON Order.OrderRef = CreditNote.OrderRef) INNER JOIN DatabaseCustomerDiscountOutDetail ON Style.Customer = DatabaseCustomerDiscountOutDetail.Customer) INNER JOIN DebitNote ON Order.OrderRef = DebitNote.OrderRef " _
                                                    & "GROUP BY Style.StyleCustomer, Order.OrderNrCustomerFull, Order.CancellationDate, InvoiceOwn.OwnInvoiceDate, InvoiceOwn.OwnFiscalYear, InvoiceOwn.InvoiceRankOwn, InvoiceOwn.OwnFiscalYear, InvoiceOwn.OwnInvoiceDate, InvoiceOwn.OwnInvoiceAmountDelivered, Style.Customer, Style.Department, Style.Buyer, Style.Commercial, DatePart(""m"",[OwnInvoiceDate]), InvoiceOwn.OwnInvoiceExclu, CreditNote.CreditNoteAmountEx, InvoiceSupplier.SupplierInvoiceAmountExc, InvoiceForwarder.ForwarderInvoiceAmountExc, InvoiceTransit.TransitInvoiceAmountExc, InvoicePartner.PartnerInvoiceAmountExc, DebitNote.DebitNoteAmountEx, Order.QuantityModified, Order.Supplier," _
& "[OwnInvoiceExclu]-([OwnInvoiceAmountDelivered]*[SumOfDiscountOutPercent]/100)-[CreditNoteAmountEx]+[DebitNoteAmountEx]-[SupplierInvoiceAmountExc]-[ForwarderInvoiceAmountExc]-[TransitInvoiceAmountExc]-[PartnerInvoiceAmountExc] AS [Amount], ([OwnInvoiceExclu]-[DiscountOutAmount]-[CreditNoteAmountEx]+[DebitNoteAmountEx]-[SupplierInvoiceAmountExc]-[ForwarderInvoiceAmountExc]-[TransitInvoiceAmountExc]-[PartnerInvoiceAmountExc])/[OwnInvoiceExclu]*100 AS [Percent] " _
                                                    & "HAVING (((Style.StyleCustomer) Not Like ""dusc*"") AND ((Order.OrderNrCustomerFull) Is Not Null) AND ((Order.CancellationDate) Is Null) AND ((InvoiceOwn.OwnInvoiceDate) Is Not Null) AND ((InvoiceOwn.OwnFiscalYear)=""08"") AND ((InvoiceOwn.InvoiceRankOwn)=1)) " _
                                                    & "ORDER BY Style.Customer;"
Merci d'avance pour celui ou celle qui se donnera la peine d'eclaircir ma lanterne...