Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensätze zählen (Unterformular)
zurück: Geburtstagsvorschau weiter: Dropdownfelder 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
dfo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Feb 2004, 10:20
Rufname:
Wohnort: Wien

Datensätze zählen (Unterformular) - Datensätze zählen (Unterformular)

Nach oben
       

Hallo

weist jemand vielleicht wie man Datensätze im Unterformular zählen kann??

Ich suche nämlich nach einer Loesung für VBA.

Gruß

dfo
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Feb 2004, 10:26
Rufname:


AW: Datensätze zählen (Unterformular) - AW: Datensätze zählen (Unterformular)

Nach oben
       

hallo dfo,
versuchs mal wie folgt:
steuerelement in uf mit
Code:
=DomAnzahl("*";"tab oder abfrage des uf")
bzw vba für ereignis
Code:
    Me!feld = DCunt("*", "tab oder abfrage des uf")
hoffe, es hilft dir weiter.
über eine rückmeldung freut sich
henzian
dfo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Feb 2004, 10:53
Rufname:
Wohnort: Wien

Danke - Danke

Nach oben
       

Hallo

Danke für die Antwort aber das hab ich schon versucht!

Es sollte so sein das im Unterformular die anzahl der Positionen ermittelt wird und um 1 erhöht wird. Aber wenn man jetzt im Hauptformular auf einen neuen Datensatz hinzufügt, sollten der Wert der Positionen zurück gesetzt werden!!!

Gruß

dfo
Willi Wipp
Moderator


Verfasst am:
11. Feb 2004, 11:34
Rufname:
Wohnort: Raum Wiesbaden

Re: Datensätze zählen (Unterformular) - Re: Datensätze zählen (Unterformular)

Nach oben
       

Ho dfo,

hier der versprochene Code:
Code:
Private Sub Form_Current()
    If Not IsNull(Me!DeineIdHauptformular) Then
        Me!AnzUfo = Me!DeinUnterformular.Form.RecordsetClone.RecordCount
      Else
        Me!AnzUfo = 0
    End If
End Sub
Den musst Du fuer das Hauptformular unter der Eigenschaft Beim Anzeigen (Current) einfuegen.
Auf dem Hauptformular muss ein Textfeld AnzUfo bestehen.
Wenn die Anzeige auch bei der Neuanlage bzw. beim Loeschen von DS im Unterformular aktuell sein soll,
musst du sie auch bei den entsprechenden Ereignissen z.B. Beim Loeschen (Delete) setzen:
Code:
Private Sub Form_Delete(Cancel As Integer)
    Dim str     As String
    Dim vAnswer As Variant
   
    str$ = "Sollen der DS gelöscht werden?" & vbCrLf & vbCrLf & _
           "Abbrechen des Löschvorganges mit [Abbrechen]"
    vAnswer = MsgBox(str$, vbYesNoCancel + vbQuestion, "Löschabfrage")
    If vAnswer = vbCancel Then
        Cancel% = True
      Else
        Me.Parent!AnzUfo = Me.Parent!AnzUfo - 1
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
11. Nov 2008, 16:02
Rufname:

AW: Datensätze zählen (Unterformular) - AW: Datensätze zählen (Unterformular)

Nach oben
       Version: Office 2003

Hallo

Ich hab eine Frage dazu.
Was meint man mit DeineIdHauptformular ?

gruß Schnitzelfreddy
Willi Wipp
Moderator


Verfasst am:
13. Nov 2008, 02:22
Rufname:
Wohnort: Raum Wiesbaden


Re: Datensätze zählen (Unterformular) (II) - Re: Datensätze zählen (Unterformular) (II)

Nach oben
       

Hi Gast,

damit ist der Primaerschluessel des Hauptformulars, bzw. die Verbindung von HFo und UFo gemeint.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Filtere alle Datensätze ab der 3 Stelle die nicht PC heißen? 7 centerguide 1303 18. Mai 2005, 11:39
centerguide Filtere alle Datensätze ab der 3 Stelle die nicht PC heißen?
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze zusammenfassen 1 Tatanka 1122 29. Apr 2005, 14:52
jens05 Datensätze zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage in Unterformular 2 kassandra 1211 09. März 2005, 11:15
kassandra Parameterabfrage in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular über Kombinationsfeld aussuchen... 1 DJ1337 924 14. Feb 2005, 13:53
lothi Unterformular über Kombinationsfeld aussuchen...
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular öffnen 1 mike1967 1023 10. Feb 2005, 08:53
MirkoK Unterformular öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 915 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: multiplizieren zweier verschiedener Datensätze 3 Stara 914 13. Jan 2005, 20:36
Skogafoss multiplizieren zweier verschiedener Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze anzeigen? 3 MichaelB 1123 19. Okt 2004, 12:45
lothi Anzahl der Datensätze anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1616 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: leere Datensätze löschen 3 umbroboy 2667 07. Okt 2004, 16:51
Skogafoss leere Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: datensätze suchen 13 mr@ 1515 13. Sep 2004, 10:21
meyster datensätze suchen
Keine neuen Beiträge Access Tabellen & Abfragen: 24 felder aus 1 DS in 24 versch. Datensätze kopieren. 3 Mirko 594 30. Jul 2004, 13:55
Willi Wipp 24 felder aus 1 DS in 24 versch. Datensätze kopieren.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe