I cant get AbsolutePosition to work!!

[haruki]

Im using a access MDB file.

When im trying to show current record like

lbl.caption = "Record " & db.OpenRecordset("Info").AbsolutePosition & " of " & _
db.OpenRecordset("Info").RecordCount

it wont work. the absolute position

error:
operation not supported for this type of object.

[techgnome]

Let's see.... how can I put this? Simply put, you are doing it wrong. That's why it doesn't work.

.OpenRecordset does just that, it opens a recordset. You need to assign it to a Recordset variable _FIRST_ before you try to access the properties like that.

set myRecordset = db.OpenRecordset("Info")
lbl.caption = "Record " & myRecordset.AbsolutePosition & " of " & _
myRecordset.RecordCount

Once you have opened the recordset, then and only then will the RecordCount and AbsolutePosition work.

Tg

[haruki]

Set rsInfo = .OpenRecordset("Info", dbOpenDynaset)
Form1.Label1.Caption = rsInfo.AbsolutePosition + 1 & " / " & rsInfo.RecordCount

Will only work when I use dbOpenDynaset. I have no idea what it does, but I looked through som sources in pscode and people are using it.

What does it do? Because it wont work without it.


And another question.

Private Sub Cmd_Delete_Click()
    With rsInfo
        If rsInfo.RecordCount > 0 Then
            .Delete
            Form1.Label1.Caption = .AbsolutePosition + 1 & " / " & .RecordCount
 
                Else
                MsgBox "No More Records"
        End If
    End With
End Sub

When deleting it gets wacked. It looks like 0 / 4 instead of 3/4 if I've deleted record previous 4 / 5.

Also when I load the projekt the recordcount is 1, I have to put getrows or
movenext moveprevious to get it to work. movelast works too, but not move first. then it looks like 1/1

Any ideas on this?