20. november 2005 - 13:16Der er
12 kommentarer og 1 løsning
Tælle antal poster der returneres på et dynamisk filter
Hej Eksperter
Jeg en mainform på denne form er der indsat en subform "frmkalenderoversigtsub" på min mainform er der diverse tekst og combobobokse der dynamisk generer et filter på subform alt efter hvad der vælges af kritrier, jeg benytter den dynamisk filterfunktion fra www.makeiteasy til dette, alt dette virker fint.
På min mainform har jeg så yderligere 4 ubunde tekstbokse "txtantal, txtledig, txtoptaget, txtreserveret".
jeg har et felt i min subform "frmkalenderoversigt" som er navngivet "kalenderstatus" dette felt kan indeholde 3 værdier Ledig, Optaget, reserveret.
Og nu til spørgsmålet: Når jeg genere et filter på subformen benytter jeg kaldet GetFilter ved klik på en knap altså Form_frmkalenderoversigt.Filter = GetFilter
1. I txtantal vil jeg gerne have skrevet antal poster det dynamiske filter har returneret.
2. i txtledig vil jeg gerne have skrevet det antal poster der har status "Ledig"
3. I txtoptaget vil jeg gerne have skrevet det antal poster der har status "Optaget"
4. I txtreserveret vil jeg gerne have skrevet det antal poster der har status "Reserveret"
Hvis jeg feks vælger årstallet 2006 og januar returnere filtrert 31 poster dette skal så skrives i txtantal ud af de 31 poster kan der så være et x antal poster med de forskellige status som beskrevet ovenfor.
Nogen der har et forslag til hvordan dette kan gøres
Ja jeg kan tælle posterne med med RecordsetClone.RecordCount, men det gælder kun for det totale antal poster filter har returneret,problemet opstår med status´kriterierne
Hej terry, denne virker perfekt, nu mangler jeg bare at får det totale antal poster for filter i txtantal, kan du se hvor i koden det skal placeres og hvordan det skal skrives:
Function CountPoster() Dim rs As Recordset Dim i As Integer
Set rs = Form_frmkalenderoversigtsub.RecordsetClone
Form_frmkalenderoversigt.txtledig = 0 Form_frmkalenderoversigt.txtoptaget = 0 Form_frmkalenderoversigt.txtreserveret = 0 Do Until rs.EOF
If rs("kalenderstatus") = "Ledig" Then Form_frmkalenderoversigt.txtledig = CLng(Form_frmkalenderoversigt.txtledig) + 1 If rs("kalenderstatus") = "Optaget" Then Form_frmkalenderoversigt.txtoptaget = CLng(Form_frmkalenderoversigt.txtoptaget) + 1 If rs("kalenderstatus") = "Reserveret" Then Form_frmkalenderoversigt.txtreserveret = CLng(Form_frmkalenderoversigt.txtreserveret) + 1
Form_frmkalenderoversigt.txtledig = 0 Form_frmkalenderoversigt.txtoptaget = 0 Form_frmkalenderoversigt.txtreserveret = 0 Do Until rs.EOF
If rs("kalenderstatus") = "Ledig" Then Form_frmkalenderoversigt.txtledig = CLng(Form_frmkalenderoversigt.txtledig) + 1 If rs("kalenderstatus") = "Optaget" Then Form_frmkalenderoversigt.txtoptaget = CLng(Form_frmkalenderoversigt.txtoptaget) + 1 If rs("kalenderstatus") = "Reserveret" Then Form_frmkalenderoversigt.txtreserveret = CLng(Form_frmkalenderoversigt.txtreserveret) + 1
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.