Supportnet / Forum / Datenbanken

Hallo, ich habe folgendes ACCESS-Problem: In einem ungebundenen Textfeld soll die Anzahl der Datensätze erscheinen, wenn der Datensatz einem bestimmten Wert entspricht. In EXCEL ist das Problem leicht über ZÄHLENWENN (Bereich)=xyz zu lösen. Ich möchte die Anzahl der Datensätze haben, wenn in einem Feld (Feldname=Status)z.B. "storno" steht. Ich hoffe, dass ich mein Anliegen nachvollziehbar geschildert habe und bedanke mich schon jetzt recht herzlich. Gert

Hallo
Hier ein Code dazu:

Private Sub Form_Current()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = Me.RecordsetClone
Me.Zähler = 0
If Not Me.NewRecord Then
    rs.Bookmark = Me.Bookmark
    If Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            If Me.Status = rs!Status Then
                Me.Zähler = Me.Zähler + 1
            End If
            rs.MoveNext
        Loop
    End If
End If
End Sub

Beim Formular-Ereignis "Beim Anzeigen" anwenden!

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
<sup>ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -</sup>

Hallo Piano,

danke für den code. Hat toll hingehauen.
Gruß Gert

Hi Gert,

Du kannst auch einfach in die Steuerelementeigenschaft Deines Textfeldes

=DCount("*";"TabellenName";"Status=" & Me!Status)

schreiben.

• Pivottabelle: Fehlermeldung "DIV/O!" bei Mittelwert
• Anzahl Texte summieren
• Access, Abfrage mit Anzahl bei gleichzeitiger Gruppierung