1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub Nodevis_Click()
Dim strSQL as String
Dim lgNumfact as long
' Insertion entète facture
strSQL = "INSERT INTO fac_entete ( nodevis, txtfacture, mttotal ) " & _
"SELECT dev_entete.nodevis, dev_entete.txtdevis, dev_entete.mttotal " & _
"FROM dev_entete WHERE nodevis = " & forms!frmdevis!nodevis &";"
CurrentDb.Execute strSQL, dbFailOnError
'Recherche du n° de la facture insérée portant le n° devis sélectionné
lgNumFact = DLookup("nofacture", "fac_entete", "nodevis=" & Forms!frmdevis!nodevis)
' Insertion lignes factures
strSQL = "INSERT INTO fac_lignes ( nofacture, nodevis, noligne, txtligne, mtfact ) " & _
"SELECT " & lgNumFact &", dev_lignes.nodevis, dev_lignes.noligne, dev_lignes.txtligne, dev_lignes.mtdevis " & _
"FROM dev_lignes WHERE nodevis = " & forms!frmdevis!nodevis &";"
CurrentDb.Execute strSQL, dbFailOnError
' Topage du devis pour ne plus le retraiter
strSQL = "UPDATE dev_entete set estTraite = True WHERE nodevis = " & forms!frmdevis!nodevis &";"
CurrentDb.Execute strSQL, dbFailOnError
End Sub |
Partager