Code:
Private SubBtnOkReleve_Click()
DoCmd.RunSQL"INSERT INTO TbReleve ( NomCourtier, DateRel, NoRel )SELECT[Formulaires]![FmTbReleve]![TxNoCourtier] AS NomCourtier,[Formulaires]![FmTbReleve]![TxDateRel] AS DateRel,[Formulaires]![FmTbReleve]![TxNoRel] AS NoRel;"
DoCmd.RunSQL"UPDATE RqCommission SET RqCommission.DateReleve =[Formulaires]![FmTbReleve]![TxDateRel] WHERE(((RqCommission.NomCourtierC)=[Formulaires]![FmTbReleve]![TxNoCourtier]) AND(RqCommission.RefReleve)=[Formulaires]![FmTbReleve]![TxNoRel]);"
DoCmd.RunSQL"UPDATE RqDepense SET RqDepense.DateFact =[Formulaires]![FmTbReleve]![TxDateRel] WHERE(((RqDepense.NomCourtierD)=[Formulaires]![FmTbReleve]![TxNoCourtier]) AND(RqDepense.RefReleve)=[Formulaires]![FmTbReleve]![TxNoRel]);"
IfMe.DepFixe = True Then
DoCmd.RunSQL"INSERT INTO TbDepense ( NomCourtierD, RefReleve, TypeDepense, Ecriture,Montant, TPS, TVQ, Exempte, DateFact )SELECT[Formulaires]![FmTbReleve]![TxNoCourtier] AS NomCourtierD,[Formulaires]![FmTbReleve]![TxNoRel] AS RefReleve, 'FLP Exchange' asTypeDepense, 'Facture' as Ecriture, 0 as Montant, 0.05 as TPS, 0.09975 as TVQ,False as Exempte, [Formulaires]![FmTbReleve]![TxDateRel] AS DateFact;"
DoCmd.RunSQL"INSERT INTO TbDepense ( NomCourtierD, RefReleve, TypeDepense, Ecriture,Montant, TPS, TVQ, Exempte, DateFact )SELECT[Formulaires]![FmTbReleve]![TxNoCourtier] AS NomCourtierD,[Formulaires]![FmTbReleve]![TxNoRel] AS RefReleve, 'Marketing CHD' asTypeDepense, 'Facture' as Ecriture, 0 as Montant, 0.05 as TPS, 0.09975 as TVQ,False as Exempte, [Formulaires]![FmTbReleve]![TxDateRel] AS DateFact;"
End If
DoCmd.Close
End Sub