---

Hej Steffen

Det er stadig det samme, den går i stå ved

Set rst = db.OpenRecordset("tabel")

Jeg kan som sagt godt få det til at virke, hvis jeg tester det på en ny
form.

Hilsen Kim Roth

Steffen Beck <srd@srd.dk> skrev i en
nyhedsmeddelelse:dM8D7.40$5N3.1130@news.get2net.dk...
> Vil du vise din messagebox det antal gange der er poster i recordsettet ?
> RecordCount er ikke opdateret før alle posterne i recordsættet er åbnet,
> dvs. du skal prøve noget ala :
>
> Public Function antal()
> Dim i As Integer
> Dim db As Database
> Dim rst As Recordset
> Set db = OpenDatabase("c:\database.mdb")
> Set rst = db.OpenRecordset("tabel")
> If rst.RecordCount > 0 Then rst.MoveLast
>
> På dette tidspunkt vil rst.RecordCount angive det faktiske antal ikke
> slettede poster i recordsættet, også hvis der ikke er poster, men man skal
> være opmærksom på at det går lidt ud over ydeevnen
>
> For i = 1 To rst.RecordCount
> MsgBox rst.RecordCount & " antal poster i databasen"
> Next
> End Function
>
> MVH
>
> Stef
>
> >
> "Kim Roth" <kim-roth@privat.dk> wrote in message
> news:3bdc897f$0$728$edfadb0f@dspool01.news.tele.dk...
> > Hej NG
> >
> > Er der en som kan forklare, hvorfor denne sætning ikke virker, når jeg
> > bruger den i en MDI form, men hvis jeg tester den på en alm. form1, er
der
> > ingen problemer. Jeg bruger en Data1 kontrol på begge mine forme??
> >
> > Public Function antal()
> > Dim i As Integer
> > Dim db As Database
> > Dim rst As Recordset
> > Set db = OpenDatabase("c:\database.mdb")
> > Set rst = db.OpenRecordset("tabel")
> > For i = 1 To rst.RecordCount
> > MsgBox rst.RecordCount & " antal poster i databasen"
> > Next
> > End Function
> >
> > Hilsen Kim Roth
> >
> >
>
>