Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
will Anzahl Datensätze, jedoch txtanzahl zu schnell berechne
zurück: Bsp Datenbank von Materialbeschaffung weiter: DoCmd.Close wieder rückgänging machen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lisa-Marie
Gast


Verfasst am:
30. Okt 2007, 09:11
Rufname:

will Anzahl Datensätze, jedoch txtanzahl zu schnell berechne - will Anzahl Datensätze, jedoch txtanzahl zu schnell berechne

Nach oben
       Version: Office XP (2002)

Guten Morgen.

Ich habe ein Formular in dem nach verschiedenen Kriterien gefiltert wird. Das klappt auch alles wunderbar.

In diesem Formular gibt es auch ein Textfeld, in welchem die Anzahl der gefilterten Datensätze stehen soll. Jedoch ist diese Zahl meist zu gering.

Z.B. ich lösche einen Filter und im Anzahlfeld steht 501 - drücke ich nochmal auf den Button Filter löschen, erscheint die korrekte Anzahl.

Ich nehme daher an, das mir das Programm die Anzahl zu früh berechnet, sprich Access hat noch garnicht alle betreffenden Datensätze ermittelt.

Was kann ich hier ändern?

Hier mein Code:
Code:
Private Sub Filtern()
    Dim strkrit As String
   
    If Not Nz(Me!KomAuftragsgeber) = "" Then
        strkrit = strkrit & _
                  " AND [Auftragsgeber] ='" & Me!KomAuftragsgeber & "'"
    End If
    If Not Nz(Me!komstandort) = "" Then
        strkrit = strkrit & " AND [Standort] ='" & Me!komstandort & "'"
    End If
    If Not Nz(Me!komsammelgruppe) = "" Then
        strkrit = strkrit & _
                  " AND [Sammelgruppe] ='" & Me!komsammelgruppe & "'"
    End If
    If Not Nz(Me!komverwertungsanlage) = "" Then
        strkrit = strkrit & _
                 " AND [Verwertungsanlage] ='" & Me!komverwertungsanlage & "'"
    End If
    If Not Nz(Me!KomMonat) = "" Then
        strkrit = strkrit & " AND  month([Datum]) = '" & Me!KomMonat & "'"
    End If
    If Not Nz(Me!KomJahr) = "" Then
        strkrit = strkrit & " And year([Datum]) = '" & Me!KomJahr & "'"
    End If
    'Zusammenfügen
    If strkrit <> "" Then
        strkrit = Mid(strkrit, 6)
        Me!UfoStammdaten.Form.Filter = strkrit
        Me!UfoStammdaten.Form.FilterOn = True
        Me!txtGewicht = DSum("Gewicht", "stammdaten", strkrit)
      Else
        Me!UfoStammdaten.Form.FilterOn = False
        Me!txtGewicht = DSum("Gewicht", "stammdaten", strkrit)
    End If
    'Anzahl gegfilterter Datensätze
    Anz_Ufo = Me!UfoStammdaten.Form.Recordset.RecordCount
    Me!txtAnzahl = Anz_Ufo
End Sub
PetraS
Software Entwickler


Verfasst am:
30. Okt 2007, 10:03
Rufname: Petra
Wohnort: Eifel


AW: will Anzahl Datensätze, jedoch txtanzahl zu schnell bere - AW: will Anzahl Datensätze, jedoch txtanzahl zu schnell bere

Nach oben
       Version: Office XP (2002)

Hallo Lisa-Marie,
hast Du schonmal daran gedacht
Code:
    Me!UfoStammdaten.Form.Count
zu verwenden?

Mit der Count-Eigenschaft können Sie ermitteln, wie viele Elemente in der angegebenen Auflistung geöffnet sind. Schreibgeschützter Long-Wert.

_________________
Gruß
PetraS
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Zeichenfolge in Text suchen und Anzahl ermitteln 3 Phantom 1276 06. März 2005, 09:28
stpimi Zeichenfolge in Text suchen und Anzahl ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: duplikatabfrage, löschen der doppelten datensätze.... 1 nebbio 1489 30. Jan 2005, 16:58
hommy duplikatabfrage, löschen der doppelten datensätze....
Keine neuen Beiträge Access Tabellen & Abfragen: Ermitteln Anzahl der Arbeitstage eines Monates 4 schnecke 5032 01. Dez 2004, 11:58
schnecke Ermitteln Anzahl der Arbeitstage eines Monates
Keine neuen Beiträge Access Tabellen & Abfragen: Kumulieren in Abfrage - nur gefilterte Datensätze 2 mrebhan 5318 20. Okt 2004, 23:56
mrebhan Kumulieren in Abfrage - nur gefilterte Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1614 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: datensätze suchen 13 mr@ 1514 13. Sep 2004, 10:21
meyster datensätze suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit bestimmter Anzahl von Datensätzen PRO Kategorie 0 olivermk 486 10. Aug 2004, 18:44
olivermk Abfrage mit bestimmter Anzahl von Datensätzen PRO Kategorie
Keine neuen Beiträge Access Tabellen & Abfragen: anzahl der wochentage 4 drachenfliega 598 06. Aug 2004, 10:39
drachenfliega anzahl der wochentage
Keine neuen Beiträge Access Tabellen & Abfragen: 24 felder aus 1 DS in 24 versch. Datensätze kopieren. 3 Mirko 593 30. Jul 2004, 13:55
Willi Wipp 24 felder aus 1 DS in 24 versch. Datensätze kopieren.
Keine neuen Beiträge Access Tabellen & Abfragen: Summen über mehrere Datensätze bilden 5 Matti_71 1497 03. Jul 2004, 12:38
Willi Wipp Summen über mehrere Datensätze bilden
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze suchen und löschen. 4 Psus82 6651 24. Jun 2004, 16:57
Psus82 Doppelte Datensätze suchen und löschen.
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Formel zur Abfrage doppelte Datensätze 2 sklein2405 2827 24. Jun 2004, 09:22
Willi Wipp Suche Formel zur Abfrage doppelte Datensätze
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln