Envoyé par
DMboup
1 - il ya des contrôles à mettre en place notamment pour vérifier que total débit = total crédit
Que penses tu de la macro suivante:
Private Sub bc_verifier_Click()
Dim totDebit As Currency
Dim totCredit As Currency
Dim critere As String
critere = "[ecriture]=" & Forms!ecriture!numEcr
totDebit = DSum("[debit]", "mouvement", critere)
totCredit = DSum("[credit]", "mouvement", critere)
If (totDebit <> totCredit) Then
MsgBox ("Ecriture incorrecte")
Else
MsgBox ("Ecriture correcte")
End If
End Sub
2 - Une fois l'égalité vérifiée, le mouvement doit être validée provisoirement (transféré dans un brouillard)
3 - Une deuxième vérification par les personnes autorisées va transférer le mouvement dans une zone oû la modification sera interdite.
4 - S'il ya erreur après validation du brouillard, c'est une écriture de régularisation qui sera passée.
Partager