Office: (Office 2007) Anzahl der angezeigten Datensätze

Hallo,

nein, das ist nicht der Datentyp, das ist das Format. Bitte schaue nach dem Datentyp.
Das 2. Argument von DCount ist eine Domäne (Tabelle/Abfrage) und kein Formular. Hier muss also der Tabellenname hin.
Und beim Kriterium fehlt das Vergleichsfeld.

 

Nochmal zum Thema "fehlende Hilfe":
ich habe zwar kein 2007-er Office, aber bei der 2003er Version muss man die VBA-Hilfe explizit auswählen, sonst wird sie nicht installiert.
Überprüfe mal deine Office-2007 Installation. Siehe dazu das Bildchen.

 

Hallo Klaus,

der Datentyp der Verknüpfung von Hauptformular zu Unterformular ist Datum/Uhrzeit. Das Feld heißt DatumKurs.

Wenn ich es richtig verstehe kann DCount nur auf eine Tabelle oder Abfrage ausgeführt werden?

Die Abfrage für das UFo heißt qryKurs und hat diese SQL:
SELECT tblIsin.WPKN, tblIsin.Isin, tblIsin.Art, tblIsin.Aktiv, tblKurs.DatumKurs, tblKurs.Kurs, tblIsin.ID, tblIsin.Bezeichnung
FROM tblIsin INNER JOIN tblKurs ON tblIsin.ID = tblKurs.IdF
ORDER BY tblIsin.WPKN;

Mit
Debug.Print DCount("Isin", "qryKurs")
erhalte ich als Ergebnis 98770, das sind alle Datensätze.

Mit
Debug.Print DCount("Isin", "qryKurs", "Aktiv = true")
wird das Ergebnis auf 91580 eingeschränkt.

Im UFo werden entsprechend 41 oder 38 Zeilen angezeigt.

Ich habe eine Abfrage qryTest erstellt, SQL:
SELECT tblIsin.Isin, tblIsin.Art, tblIsin.Aktiv
FROM tblIsin;

Mit
Debug.Print DCount("Isin", "qryTest")
erhalte ich 41
und mit
Debug.Print DCount("Isin", "qryTest", "Aktiv = true")
entsprechend 38.
Das sind die richtigen Ergebnisse.

Für die Anzeige im Unterformular werden 2 Filter verwendet:
Code:

und
Code:

Kann man DCount unter Berücksichtigung der Filter direkt ausführen, oder muss man für DCount eine eigene Abfrage erstellen, der man dann die gleichen Filterkriterien übergibt?

Das wäre dann ein recht großer Aufwand um die Anzahl der Zeilen im UFo zu ermitteln. Oder geht es einfacher? Eventuell sehe ich den Wald mal wieder vor lauter Bäumen nicht?!?

 

Hallo Elmar,

im Office-2007 gibt es keine Hilfe-Dateien auf der Installations-CD.

Trotzdem vielen Dank für Deine Mühe

PS

Kann mir keiner etwas mehr zu DCount sagen? *frown.gif*
Geht das nur über eine eigene Abfrage oder kann man die Filter in DCount einbinden?
Alleine bekomme ich das nie auf die Reihe.

 

Anzahl der ZeilenDatensätze im Ufo:
Code:

maike

 

Das kann nicht sein.
Ggf. ist es keine Original-CD, die Dateien nützen Dir auch nichts, es muss die Installationsroutine gestartet werden.

 

Hallo Ratoncito!

Maikes Lösung ist in der ganzen Diskussion anscheinend untergegangen.
Wobei sie auch dann funktioniert, wenn das UF mit dem HF verknüpft ist.
Ergänzen möchte ich noch die Syntax, wenn vom HF aus die Anzahl der Datensätze im UF ermittet werden soll:

Me!DeinUF.Form.Recordset.MoveLast
Me!DeinUF.Form.Recordset.RecordCount

Richtig gesetzte Punkte und Rufzeichen sind Vorausetzung für diese Art der Ermittlung.

Wolfgang

 

Hallo Maike,
Hallo Wolfgang,

vielen Dank für die Hilfe, leider bekomme ich immer noch eine Fehlermeldung. *frown.gif*
Code:

Laufzeitfehler '3251':
Operation wird für diesen Objekttyp nicht unterstützt.

Das Formular frmKurs ist mit dem Unterformular sfmKurs0 über die Felder DatumKurs verknüpft.

 

Code:

ist eine ungültige Anweisung. Das zählt ja nur und übergibt nichts. Mögliche Übergaben wären

• Debug.Print Me!sfmKurs0.Form.Recordset.RecordCount
• MsgBox Me!sfmKurs0.Form.Recordset.RecordCount
• Dim x As Long
  x= Me!sfmKurs0.Form.Recordset.RecordCount
• Me!DeinFeld = Me!sfmKurs0.Form.Recordset.RecordCount

 

Hallo,

vielen Dank, jetzt klappt es. *Smilie

 

Dann schließe bitte diesen Thread.

 

Hallo Elmar,

Doch, leider ist es so. Es ist eine Original-CD.
Die Fehlermeldung zu F1 ist:
Beim Ausführen von Help Viewer ist ein unerwartetes Problem aufgetreten. Der Vorgang kann nicht fortgesetzt werden.

Deswegen habe ich mir schon einmal den Wolf gegoogelt. Fazit: Die Offline-Hilfe ist wohl nicht mehr Bestandteil der Office-CD und kann irgendwo runtergeladen werden. Der Help-Viewer muss entweder installiert oder aktiviert werden.

Damals führten alle gefundenen weiterführenden Links auf ungültige Seiten oder enthielten andere Programme. Ich habe dann irgendwann aufgegeben.

Falls da jemand mehr darüber weiß...
Bin für jeden Tipp dankbar *Smilie

Ist aber ein anderes Thema und mein eigentliches Problem ist gelöst, daher möchte ich mich bei allen für die Hilfe bedanken und schließe das Thema.