1.6k Aufrufe
Gefragt in Datenbanken von bollerkohl Mitglied (175 Punkte)
Hallo Leute,

wie kann ich in einem UF die Anzahl von Buchstaben (J) berechnen lassen.

Hier die Fakten:

UF heißt: Monitoring Unterformular1
die Felder wo die "J" stehen heißen: Begrüßung, Identifikation, BSM und ENG.

Ich habe ein ungebundenes Feld "Anzahl_J"

Kann mir jemand auf die Sprünge helfen...

Danke VG

3 Antworten

0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo,

Ich würde diese Aufgabe nach Datenimport Excel mit Zählenwenn() durchführen lassen, da mit dieser Funktion ein ganzer Bereich nach einem Suchbegriff gezählt werden kann.

Direkt in Access sehe ich standardmäßig so eine Möglichkeit nicht (außer vielleicht mit VBA).


Gruß

Paul1
0 Punkte
Beantwortet von lorf55 Mitglied (699 Punkte)
Hallo,
so als idee (ich habe es nicht getestet).
Im Hauptformular könntest du bei Auswertung des Unterformulars
alle Controls des Unterformular1 mit
Dim J_Anzahl
On Error Resume Next 'nicht alle Controls haben ein Value-
Member
J_Anzahl = 0
For each ctl in Forms("Monitoring Unterformular1").Controls
if ctl.Value = "J" then
J_Anzahl = J_Anzahl +1
end if
Next
Anzahl_J.Value = J_Anzahl
durchgehen und die Anzahl der
"J" ermitteln lassen.

Wenn du das nicht hinkriegst, kannst du auch in jedem Textfeld,
dass ein "J" enthalten könnte eine Ereignisprozedur im
"NachAktualisierung"-Ereignis aufrufen, dass in einem Array des
Unterformulars jeweils ein Element auf 1 setzt, wenn ein "J" im
Textfeld steht, und sonst eine 0. Im Hauptformular zählst du dann
einfach diese Feldelemente zusammen. Ein Array deshalb, weil du
sonst, wenn du einfach alles in einem Feld "Anzahl_J" kumulierst
Probleme kriegst, wenn jemand mehrmals hintereinander "N" oder
mehrmals "J" eingibt. Na gut, bei 4 Feldern gehen auch 4 Integers,
die man im Hauptformular zusammenzählt.

Gruß
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo,

Habe ein nachvollziehbares einfaches Konzept mit folgenden Inhalten erstellt:

ENTWURFSANSICHT-ABFRAGE (Basis für Unterformular, jedoch die Berechnungsfelder Ausdr1 bis Ausdr5 werden nicht in das Unterformular übernommen)

Ausdr1: Wenn([Feld1]="J";1;0)
Ausdr2: Wenn([Feld2]="J";1;0)
Ausdr3: Wenn([Feld3]="J";1;0)
Ausdr4: Wenn([Feld4]="J";1;0)
Ausdr5: [Ausdr1]+[Ausdr2]+[Ausdr3]+[Ausdr4]

ENTWURFSANSICHT-UNTERFORMULAR:

Ungebundenes Textfeld:
=Summe([Ausdr5])

ENTWURFSANSICHT-HAUPTFORMULAR:

Ungebundenes Textfeld:
=Tabelle1_Abfrage_Unterformular.Formular!Text10

Befehlsschaltfläche: "Unterformular gesamt“

>Format
>Hyperlink-Adresse: "Anzahl.mdb“
>Hyperlink-Unteradresse: "Form Tabelle1 Abfrage Unterformular“

http://p.aon.at/u/772405/?key=C944RYPTMWH2&share=32972

Gruß

Paul1

[sub]Excel > Access > MS-Office 2003
MS Windows XP Professional SP3
ECDL-Syllabus Version 4.0[/sub]
...