Numbering Entries In a Form

[blueraincoat]

Hi All
I have a form called frmPartsRequistion, this form is used for enter data to the tblPartsRequsition. On this form I want to add a subform to let user see the history. Since there may be many records in the subform, I want to number them to make the subform look better. I search on the internet and got the code as below:
Private Sub Form_Current()


On Error GoTo Err_Form_Current

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Bookmark = Me.Bookmark
Me.txtPosition = rst.AbsolutePosition + 1
Exit_Form_Current:
Set rst = Nothing
Exit Sub
Err_Form_Current:
If Err = 3021 Then
Me.txtPosition = rst.RecordCount + 1
Else
MsgBox Error$, 16, "Error in Form_Current()"
End If
Resume Exit_Form_Current

End Sub

The form shows like the picture attached, and it seems the code only run for one circle?
Could someone give some suggestion?
Thanks in advance

[RuralGuy]

Perhaps this link will be helpful: http://www.lebans.com/rownumber.htm

[blueraincoat]

thanks a lot rural, I'll try this out and let you know the result
it's 22:30 here, need some sleep......

[RuralGuy]

We'll stay tuned.

[blueraincoat]

It works! Thank you Rural!

Here comes another question, since I am going to use this form as a subform in another form, so when the other form is opened I do not want this subform loaded and show the query condition dialog box(attached picture). I tried cancel the open event in the subform, but it does not work.
My purpose is: make the subform invisible when the main form is loaded and then when user entered the primary key and click a button, the subform will show up.
I don't know how to make the query in the subform not work do you have any idea?
Thanks in advance.

[RuralGuy]

One issue per thread. Use this new issue to start a new thread and use the Thread Tools to mark this thread as Solved.

[blueraincoat]

Yeah OK
Acutally I made the subform based on the tbl instead of based on the query, and it work Ok.
Thank you Rural.

[RuralGuy]

Thanks for the update.