1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
'Controle saisie, SI OK écrire dans les tables controle
If fnControleSaisie = True Then
sReponse = MsgBox("Etes-vous sûr de vouloir soumettre le rapprochement saisie ? Une fois soumis vous n'aurez plus accès au rapprochement", vbYesNo, "Soumettre le rapprochement")
If sReponse = vbYes Then
'Insérer dans les tables controles
'Insérer dans RAP ENTETE controle
Application.CurrentDb.Execute "INSERT INTO [Rap - Entete Controle] SELECT * FROM [Rap - Entete] WHERE ref_numero= " & ref_number.Value & " and ref_nom='" & ref_name.Value & " ';"
'Insérer dans Rap - Ligne Comptable Controle
Application.CurrentDb.Execute "INSERT INTO [Rap - Ligne Comptable Controle] SELECT * FROM [Rap - Ligne Comptable] WHERE ref_numero= " & ref_number.Value & " and ref_nom='" & ref_name.Value & " ' and numero_ligne_comptable='" & Forms![heading]![Line_accountant sous-formulaire1].Form![ref_ligne].Value & "';"
'Insérer dans Rap - Transaction Controle
Application.CurrentDb.Execute "INSERT INTO [Rap - Transaction Controle] SELECT * FROM [Rap - Transaction] WHERE ref_numero= " & ref_number.Value & " and ref_nom='" & ref_name.Value & " ' and Transaction_numero='" & Forms![heading]![Deal_ss_form].Form![Ref_transaction].Value & "' and nom_evenement='" & Forms![heading]![Deal_ss_form].Form![lstNom_Evenement].Value & "' and application='" & Forms![heading]![Deal_ss_form].Form![lstNomAppli].Value & "';"
'Supprimer l'enregistrement des tables locales
On Error GoTo Err_Suppression
DoCmd.RunCommand acCmdDeleteRecord
'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
End If |
Partager