wrong display of absolute position and recordcount

[nkechifesie]

I want my form to display the absolute position and the recordcount of the records in the database but it keeps shoing me -1 for both . Why?
this is the code

Private Sub MnuOVehType_Click()
Load FrmTypeEntry
For i = 1 To 4
    FrmTypeEntry.cmdControl(i).Enabled = True
Next i
For j = 0 To 3
    FrmTypeEntry.cmdNavigate(j).Enabled = True
Next j
FrmTypeEntry.TxtType.Locked = True
FrmTypeEntry.TxtType.Text = RsVehType("txtVEHTYPE")
 FrmTypeEntry.Label1.Caption = "VEHICLE TYPE " & RsVehType.AbsolutePosition & "of" & RsVehType.RecordCount
End Sub
 

[Killer42]

Just a couple of thoughts...

• RecordCount is often simply 0 (no match) or 1 (one or more matches) until you move to the end of the recordset to force the Jet engine to count them. You might try doing MoveLast...MoveFirst somewhere before accessing the RecordCount, just to see what happens.
• I'm not familiar with AbsolutePosition, but my guess would be that it's the "absolute" position within that recordset, not within the table. I don't think Access keeps any unique record position or record number - you have to do that yourself by using an autonumber field.

Well, hope this doesn't lead you too far astray. :)

[Andrew Thackray]

You can only get the record count and absolute position if you open the recordset using adopenkeyset or adopendynamic as the cursor type. The other cursor types don't populate the recordset until requested so the recordcount & absolute position are not known and always appear as -1

[nkechifesie]

RESOLVED

Thank you all for your suggestion. I set the cursor location to aduseclient and it works.