Daniel Ulbrich
Home > Visual Basic > VBA > Access > Beschreibung Abfragen mit Anzahl Datensätze
Menü
Login-Formular
Letzte Änderung:
August 29. 2008 23:58:13
en

Beschreibung Abfragen mit Anzahl Datensätze

Die folgende Funktion fügt für die Abfragen eine Beschriftung (analog zur Eingabe in den Eigenschaften der Abfrage -> Beschreibung) mit der Anzahl der durch die Abfrage zurückgegebenen Datensätze an.

Public Function Beschr_DS_Abfragen()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
On Error GoTo next_
Set db = CurrentDb()
For Each qdf In db.QueryDefs
    If qdf.name Like "*~sq*" Then GoTo next2:
    setze_Property qdf, "Description", ""
    If qdf.ReturnsRecords Then
        Set rs = db.OpenRecordset(qdf.SQL)
        rs.MoveLast
        If rs.RecordCount > 0 Then
            DoEvents
            DoCmd.Echo True, qdf.name & ": Aktualisiere Anzahl Datensätze..."
            setze_Property qdf, "Description", rs.RecordCount & " Datensätze"
        End If
    End If
    next2:
Next
DoCmd.Echo False
Exit Function
next_:
    DoCmd.Echo True, qdf.name & ": Keine Aktualisierung möglich!"
    setze_Property qdf, "Description", ""
    Resume Next
End Function

Public Sub setze_Property(objekt, Eigenschaft, Wert)
Dim prop As Property
Dim db As DAO.Database
Dim tdf As TableDef
For Each prop In objekt.Properties
    If prop.name = Eigenschaft Then
        X = 1
        Exit For
    End If
Next
If X = 1 Then
    If Wert = "" Or IsNull(Wert) Then
        objekt.Properties.Delete Eigenschaft
    Else
        objekt.Properties(Eigenschaft).Value = Wert
    End If
ElseIf X = 0 And Wert <> "" Then
    Set prop = objekt.CreateProperty(Eigenschaft, dbText)
    prop.Value = Wert
    objekt.Properties.Append prop
End If

End sub

© 2006-2008 Daniel Ulbrich | Alle Rechte vorbehalten | Impressum
Powered by CMSimple | Template Design by NMuD