How to count number of rows in a subform?

[pdesh3]

I have created a form where one text box and two command buttons named Search and Clear are present. Under all these fields I am also including a subform which displays all the values stored in Patient table.

When I enter any word in the name text box and click enter then the values in sub form only display the details of the patient whose first name or last name matches with the given name. When button Clear is hit ( in future I am planning to make it cancel button , so that to cancel the operation ) textbox becomes empty.

I want to count the number of rows that result from the above operation.
I mean all the rows which are displayed in the subform.

If the particular patient exists in that Subform I want to implement a functionality where, when I click on the particular patient's row in sub from it should open Form which contains the details of that particular patient.

It would be great if someone can help me regarding this .....

Thanks,
Pdesh3

[JConsulting]

I have created a form where one text box and two command buttons named Search and Clear are present. Under all these fields I am also including a subform which displays all the values stored in Patient table.

When I enter any word in the name text box and click enter then the values in sub form only display the details of the patient whose first name or last name matches with the given name. When button Clear is hit ( in future I am planning to make it cancel button , so that to cancel the operation ) textbox becomes empty.

I want to count the number of rows that result from the above operation.
I mean all the rows which are displayed in the subform.

If the particular patient exists in that Subform I want to implement a functionality where, when I click on the particular patient's row in sub from it should open Form which contains the details of that particular patient.

It would be great if someone can help me regarding this .....

Thanks,
Pdesh3

first part

Private Sub Form_Current()
Dim rs As Object
Set rs = Me.subfrm1.Form.RecordsetClone  'where subfrm1 is your subform
Me.MyCount = rs.RecordCount   ' where MyCount is your textbox
End Sub
 

second part

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MyFormName"
    stLinkCriteria = "ID=" & Me.myID
    stDocName = "FormOneClone"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 

J