Record number 345 of 574>
Record number 3,5 of 5,4>
>WITH ThisForm > IF EOF() > .lblRecCount.Caption = ; > "At End of File. " + ; > TRANSFORM(ALLTRIM(STR(RECCOUNT())), "9,999,999") + ; > " records." > ELSE > .lblRecCount.Caption = ; > "Record # " + ; > TRANSFORM(ALLTRIM(STR(RECNO())), "9,999,999") + ; > " of " + ; > TRANSFORM(ALLTRIM(STR(RECCOUNT())), "9,999,999") + ; > " records." > ENDIF > .Refresh() >ENDWITH >
IF EOF() .lblRecCount.Caption = ; "At End of File. " + ; TRANSFORM(RECCOUNT(), "9,999,999") + ; " records." ELSE .lblRecCount.Caption = ; "Record # " + ; TRANSFORM(RECNO(), "9,999,999") + ; " of " + ; TRANSFORM(RECCOUNT(), "9,999,999") + ; " records." ENDIF .Refresh() ENDWITH