#28 : VBA Access G.Stock - Lister et Imprimer Les Règlements Factures

Objectif : Lister et Imprimer Les Règlements des Factures

Dans cette partie (#28) , on va ajouter à notre Projet (G.Stock) , un formulaire "F_ListeReglements"  comme indiqué ci-dessus,cet interface nous  permet de lister les Règlements effectués par des clients, donc sur la source de données dans la feuille de propriété du formulaire , on va écrire la requête SQL suivante : 

Remarques : on peut utiliser l’assistant pour générer cette requête

ensuite  on va créer un Etat/Rapport "E_ListeReglements" qui nous permet d'afficher cette liste.

⤿ Dans ce cours,sur le Rapport "E_ListeReglements" , on va utiliser un événement un peu particulier qui s'exécute pour chaque ligne pour la Section Détail de l’État , l'événement est "Détail_Format" ainsi : 

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim db As Database
Dim rs As Recordset
Dim strRefFactures
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Req_Reglements WHERE idReglement=" & idReglement, dbOpenDynaset)
If Not rs.EOF Then rs.MoveFirst
strRefFactures = ""
While Not rs.EOF
strRefFactures = strRefFactures & "- " & _
Left(rs("CodeFacture"), 8) & " / " & _
rs("LibModeReglement") & " / " & _
Format(rs("MontantRegle"), "0.00") & " MAD" & _
vbNewLine
rs.MoveNext
Wend
Me.RefsFactures = strRefFactures
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

👉 Pour plus de détail, Regarder la Vidéo de ce Cours

🔗 Télécharger le Code Source  G.Stock V1.25

***********************

***********************