Tælle antal forkomster på liste i formular

Lav en ubundet tekstboks Og indsæt dette:
="Der blev fundet " & Antal([Titel]) & " Titler"

Hej rosco
Tak for indlægget, jeg kender godt det du forslår, det er ikke lige det jeg leder efter, det er et must at det er forkomster på Liste2 jeg skal tælle og ikke antal poster fra tabellen

mvh Anders

Hvordan funger din liste?

Okay
Liste2 for data fra tblTitler, den har to kolonner ID,Titel, ID er nøglen og er derfor skjult. Nedenstående kode returnere alle titler som har status af dansk:

Function FiltrerDansk()

Dim SQLDansk As String


SQLDansk = "Select * From fsOversigtTitler Where Nationalitet = 'Dansk'"

Form_fmOversigtTitler.Liste2.RowSource = SQLDansk

End Function

Der er pt 400 poster i tblTitler med forskellige nationaliteter ovenstående kode returnere faktisk 184 poster på Liste2, jeg vil så gerne tælle Antal ID på Liste2 og returnere det i en ubunden tekstboks.

Anders

Hvad med at lave optællingen i forespørglen?

Function FiltrerDansk()

Dim SQLDansk As String


SQLDansk = "Select * From fsOversigtTitler Where Nationalitet = 'Dansk'"

Form_fmOversigtTitler.Liste2.RowSource = SQLDansk

YourNewField = Form_fmOversigtTitler.Liste2.Listcount

End Function

Kunne være en måde at gøre det på, men tænkte at man måske kunne bruge et eller andet med DlookUp, jeg er ikke så skrap til disse DlookUp syntakser

Hej Terry
Tester også lige dit forslag, vender hurtigt tilbage

Each time you change the RowSource of your listbox you will need to refresh the contents of your UNBOUND textbox.

I cant see which forms each control is on but you should be able to reference them no matter which form you are on

Hej Terry
Jeg har nu testet dit forslag, det virker perfekt, det var dette med ListCount jeg ikke kunne få øje på, det var jo egenligt meget enkelt da det kom til stykket. Points er på vej til dig.

rosco>> Tak for dine indlæg, og  god weekend til alle

mvh Anders

Selv Tak :o)

selv tak og god weekend :o)