Anzahl Artikel mit in der Meldung im Textfeld anzeigen

[JuergenRa]

Moin zusammen,

ich habe eine Übung in der ich eine Meldung anzeigen muss.
Die Meldung: Von der Kategorie: (Kategoriename) sind (Anzahl Artikel der jeweiligen Kategorienamen) Artikel vorhanden.
Im Anhang ist die Datei.
Es soll das Grüne Feld sein mit Roter Schrift wie im Anhang.
Kann mir da einer weiterhelfen.

Gruß Jürgen

[JuergenRa]

Hallo zusammen,

mit dieser Prozedur hat es funktioniert.
Private Sub Form_Current()
    Dim katName As String
    Dim anzahlArtikel As Integer
    Dim rs As DAO.Recordset
    Dim sql As String

    ' Kategoriename aus dem aktuellen Datensatz
    katName = Me.Kategoriename

    ' Anzahl der Artikel für die aktuelle Kategorie
    sql = "SELECT COUNT(Artikel_Nr) AS Anzahl FROM Artikel WHERE Kategorie_Nr = " & Me.Kategorie_Nr
    Set rs = CurrentDb.OpenRecordset(sql)

    If Not rs.EOF Then
        anzahlArtikel = rs!Anzahl
    End If
    rs.Close
    Set rs = Nothing

    ' Meldung im Textfeld aktualisieren
    Me.txtMeldung = "Von der Kategorie: " & katName & " sind " & anzahlArtikel & " Artikel vorhanden."
  End Sub

bis bald Jürgen