{"id":569,"date":"2013-02-15T02:00:33","date_gmt":"2013-02-15T02:00:33","guid":{"rendered":"http:\/\/regina-whipp.com\/blog\/?p=569"},"modified":"2016-07-08T22:44:32","modified_gmt":"2016-07-09T02:44:32","slug":"custom-record-count","status":"publish","type":"post","link":"https:\/\/regina-whipp.com\/blog\/?p=569","title":{"rendered":"Custom Record Count…"},"content":{"rendered":"

There are times you want to display a Record Count on your Form.\u00a0\u00a0Or, maybe,\u00a0you want to use your own Navigation Buttons<\/a> but how to get the Record Count to display?\u00a0 Here are two options…<\/p>\n

\"CardOfCards\"<\/a>

Click to see entire Form<\/p><\/div>\n


\ntxtPage<\/strong> is the name of the unbound TEXT field between the Navigation Buttons<\/a>.\u00a0 card(s)<\/span><\/strong> is what they are.\u00a0 You can change that to *ticket(s)<\/span><\/strong>*, *paper(s)<\/span><\/strong>* or whatever it is you are counting.\u00a0 In the Form’s On_Current event place…<\/p>\n

 <\/p>\n

 <\/p>\n

Private Sub Form_Current<\/strong>()<\/p>\n

\r\nOn Error Resume Next\r\n\r\nIf Me.RecordsetClone.RecordCount = 0 Then\r\n   Me.txtPage = ""\r\n   DoCmd.CancelEvent\r\nElse\r\n   With Me.RecordsetClone\r\n     .MoveLast\r\n   Me.txtPage = Me.CurrentRecord & " of " & .RecordCount & " card(s)\r\n   End With\r\nEnd If\r\n<\/pre>\n
End Sub<\/p>\n
\u00a0OR<\/strong><\/h4>\n
\"ContractPageOfPages\"<\/a>
Click to see entire Form<\/p><\/div>\n
Create a unbound TEXT box on your form, mine is txtRecordNos, and copy everything after txtRecordNos into the Control Source for the TEXT box (Figure 1)…<\/p>\n
\r\ntxtRecordNos = IIf([CurrentRecord]>(Count(*)),'New Record',(\u2018Contract ' & [CurrentRecord] & ' of ' & Count(*)))\r\n<\/pre>\n
\"Figure
Figure 1<\/p><\/div>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
There are times you want to display a Record Count on your Form. Or, maybe, you want to use your own Navigation Buttons but how to get the Record Count to display? Here are two options…<\/p>\n
Click to see entire Form<\/p>\n
 txtPage is the name of the unbound TEXT field between the […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5,63],"tags":[64,31,21],"class_list":["post-569","post","type-post","status-publish","format-standard","hentry","category-access-tips","category-database-design","tag-access-tips","tag-forms","tag-vba","odd"],"_links":{"self":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/569","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=569"}],"version-history":[{"count":25,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/569\/revisions"}],"predecessor-version":[{"id":1273,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/569\/revisions\/1273"}],"wp:attachment":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=569"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=569"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=569"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}