Counting of records in subform causes a problem

[neelsfer]

If i use the code below to get the number of records in a subform , and i also use DoCmd.RunCommand acCmdRefresh to refresh screen, then the application stops working (the cursor never stops working). Any suggestions please?I have an unbound textbox (txtRecordNo3)in subform and another one on mainform to see no of records.

Private Sub Form_Current()
On Error GoTo Form_Current_Err
' Provide a record counter for using with
' custom navigation buttons (when not using
' Access built in navigation)
 
  Dim rst As DAO.Recordset
   Dim lngCount As Long
 
 Set rst = Me.RecordsetClone
 
 With rst
     .MoveFirst
  .MoveLast
   lngCount = .RecordCount
   End With
 
'Show the result of the record count in the text box (txtRecordNo)
 
 Me.txtRecordNo3 = lngCount
 Set rst = Nothing
Form_Current_Exit:
    Exit Sub
 
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

[colintis]

First thing there's no need to place .MoveFirst and .MoveLast as they seem pointless.

Second, if this part of the code is written within the main form, then u'll need to point out more specifically to the textbox in the subform
Me.SubformControlName.Form.TextBox
OR:
Me!SubformControlName.Form!TextBox

[neelsfer]

i removed the above code as it worked until you refresh the form.
Then I struggled with =count(*) etc and nothing worked. Then i read on allenbrowne.com that it is one of the Access 2007 bugs.
Eventually this code worked in Access 2007 to add a record count

=DCount("[any fieldname]","query name")

i then linked this to the main form to display number of records

[Rabbit]

The .MoveLast is necessary to get a correct record count.