Résultats dans Labels, Zones de Texte ou MsgBox.

Option Compare Database
Option Explicit

Sub InfosLblMsg(TypeAffich As Boolean)
'TypeAffich : Dans ce cas -1 Pour Label ou 0 pour MsgBoxLbl

    On Error GoTo Err_Infos
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim IntNbFou As Integer    ' variable donnant le Nb de fournisseurs
    Dim IntNbPro As Integer    ' variable donnant le Nb de produits
    Dim IntNbLit As Integer    ' variable donnant le Nb de litiges
    Dim StrSyntFou As String   ' variable de synthèse en fonction du nombre de fournisseurs
    Dim StrSyntPro As String   ' variable de synthèse en fonction du nombre de produits
    Dim StrSyntLit As String   ' variable de synthèse en fonction du nombre de litiges
    Dim StrRecap As String     ' variable récapitulative du texte à afficher dans le Label ou MsgBox.

	Set oDb = CurrentDb

    'Nous comptons le nb d'enregistrements de la table fournisseurs
    Set oRst = oDb.OpenRecordset("Qry_NbFournisseurs", dbOpenSnapshot)
    'Nous appliquons le résultat affiché dans la colonne1 à la variable IntNbFou
    IntNbFou = oRst.Fields(0)

    'Nous comptons le nb d'enregistrements de la table produits
    Set oRst = oDb.OpenRecordset("Qry_NbProduits", dbOpenSnapshot)
    'Nous appliquons le résultat affiché dans la colonne1 à la variable IntNbPro
    IntNbPro = oRst.Fields(0)

    'Nous comptons le nb d'enregistrements de la table litiges
    Set oRst = oDb.OpenRecordset("Qry_NbLitiges", dbOpenSnapshot)
    'Nous appliquons le résultat affiché dans la colonne1 à la variable IntNbLit
    IntNbLit = oRst.Fields(0)

    'Nous définissons le texte qui s'affichera dans la ligne de résultat "Fournisseur"
    Select Case IntNbFou
        Case Is = 0      'Si la valeur est égale à 0
           StrSyntFou = "Aucun fournisseur n'est enregistré."
        Case Is = 1      'Si la valeur est égale à 1
           StrSyntFou = "1 fournisseur est référencé. "
        Case Is > 1      'Si la valeur est supérieure à 1
           StrSyntFou = IntNbFou & " fournisseurs sont référencés."
    End Select

    'Nous définissons le texte qui s'affichera dans la ligne de résultat "Produits"
    Select Case IntNbPro
        Case Is = 0      'Si la valeur est égale à 0
           StrSyntPro = "Aucun produit dans le Plan de Vente."
        Case Is = 1      'Si la valeur est égale à 1
           StrSyntPro = "1 seul produit enregistré dans le Plan de Vente."
        Case Is > 1      'Si la valeur est supérieure à 1
           StrSyntPro = "Nous avons " & IntNbPro & " produits dans le Plan de Vente."
    End Select

    'Nous définissons le texte qui s'affichera dans la ligne de résultat "Litiges"
    Select Case IntNbLit
        Case Is = 0      'Si la valeur est égale à 0
           StrSyntLit = "Aucun litige n'est à signaler."
        Case Is = 1      'Si la valeur est égale à 1
           StrSyntLit = "Nous avons 1 litige en cours."
        Case Is > 1      'Si la valeur est supérieure à 1
           StrSyntLit = "Nous avons " & IntNbLit & " litiges en cours."
    End Select

    'Nous récapitulons maintenant le contenu complet de ce que nous voulons afficher
    StrRecap = " Actuellement :" & vbCrLf & "   - " & StrSyntFou & vbCrLf & "   - " & StrSyntPro &  & "   - " & StrSyntLit

    'Nous pouvons maintenant attribuer à notre Label ou MsgBox le contenu de notre variable "StrRecap"
    Select Case TypeAffich
        Case Is = -1       'met à jour le Label
           Form_Frm_Accueil.Lbl_Infos1.Caption = StrRecap
        Case Is = 0
           MsgBox StrRecap    'Ouvre la MsgBox avec le même résultat
    End Select

    'Nous fermons les connexions (dans le cas d'une utilisation DAO)
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing

Exit_InfosLblMsg:
    Exit Sub

Err_Infos:
    MsgBox Err.Description
    Resume Exit_InfosLblMsg

End Sub

Sub InfosTxt(TypeAffich As Integer)
'TypeAffich : Dans ce cas -1 Pour Zone de texte ou 0 pour MsgBoxTxt

    On Error GoTo Err_InfosTxt
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim StrNmArt As String     ' variable nom article.
    Dim IntNbArt As Integer    ' variable qté vendue.
    Dim StrSynt As String      ' variable résultat obtenu.

    Set oDb = CurrentDb

    'Nous créons la requête qui va déterminer le Top15 des produits les plus vendus.
    Set oRst = oDb.OpenRecordset("Qry_TopProduits", dbOpenSnapshot)

	'Nous attribuons à la variable "StrNmArt" le résultat de la colonne 1 de la requête 
    'et à la variable "IntNbArt" le contenu de la colonne 2.
	StrNmArt = Nz(oRst.Fields(0), "")
    IntNbArt = Nz(oRst.Fields(1), 0)

    'Nous déterminons les résultats.
    Select Case StrNmArt
        Case Is = ""   'S'il n'y a pas d'enregistrement
           StrSynt = "Aucune vente enregistrée."
        Case Else
           'Crée une boucle qui va déterminer les résultats sous la forme : 
           '"    - Nb unités pour : NomDuProduit" (+ retour chariot + saut à la ligne pour résultat suivant).
	      StrSynt = ""
	      While Not oRst.EOF
                 StrSynt = StrSynt & "    -  " & oRst.Fields(1) & " unités" & " pour : " & oRst.Fields(0) & vbCrLf
                 oRst.MoveNext
              Wend

    End Select
    
    'Comme Source de la Zone de Texte ou comme contenu de la MsgBox_Txt, nous mettons un titre + le résultat de la boucle.
    Select Case TypeAffich
        Case Is = -1    'met à jour la Zone de Texte
           Form_Frm_Accueil.Txt_Infos2.ControlSource = _
           "=" & """ Le top 15 des quantités vendues est le suivant :" & vbCrLf & vbCrLf & StrSynt & """"
        Case Is = 0     'Ouvre la MsgBox_Txt avec le même résultat"      '
           MsgBox " Le top 15 des quantités vendues est le suivant :" & vbCrLf & vbCrLf & StrSynt
    End Select

    'Nous fermons les connexions
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing

Exit_InfosTxt:
    Exit Sub

Err_InfosTxt:
    MsgBox Err.Description
    Resume Exit_InfosTxt

End Sub

Option Compare Database
Option Explicit

Private Sub Cmd_Lbl_Click()
'Nous appelons la procédure d'ouverture de la MsgBox
Call InfosLblMsg(0)
End Sub
__________________________________________________________________________________________________________

Private Sub Cmd_Txt_Click()
'Nous appelons la procédure d'ouverture de la MsgBox
Call InfosTxt(0)
End Sub
__________________________________________________________________________________________________________

Private Sub Form_Open(Cancel As Integer)
'Nous appelons la procédure de remplissage du Label
Call InfosLblMsg(-1)

'Nous appelons la procédure de remplissage de la Zone de Texte
Call InfosTxt(-1)

'Nous mettons le Focus sur la Zone de Texte
Me.Txt_Infos2.SetFocus

'Nous mettons le Curseur au début de la Zone de Texte
Me.Txt_Infos2.SelStart = 0
End Sub
__________________________________________________________________________________________________________

Private Sub Cmd_Quit_Click()
On Error GoTo Err_Cmd_Quit_Click

    DoCmd.Quit

Exit_Cmd_Quit_Click:
    Exit Sub

Err_Cmd_Quit_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Quit_Click
    
End Sub