if rst.bof = true and rst.eof = true then ' no records
lngCount = 0
end if
Bob Peterson
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mrsgoudge
Sent: Tuesday, July 24, 2012 12:37 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Error 3021
Good morning! I am getting Error 3021 "No current record" with the
MoveFirst line of the following code when I try to use Filter by Form.
How would I work around this?
Thanks!
Connie
' Provide a record counter for using with custom navigation buttons
(when not using ' Access built in navigation)
'http://www.databasedev.co.uk/navigation-record-count.html
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
With rst
.MoveFirst
.MoveLast
lngCount = .RecordCount
End With
'Show the result of the record count in the text box (RecordNbr)
If Me.NewRecord Then
Me.RecordNbr = "New" _
& vbNewLine & " OF " _
& vbNewLine & lngCount
Else: Me.RecordNbr = Me.CurrentRecord _
& vbNewLine & " OF " _
& vbNewLine & lngCount
End If
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar