Opening sibform at the last record.

[BorisGomel]

Hello ,

I have a main from named RequestChecks with two list boxes on it named ListDateii and ListDateiii .Also , there are two subfroms named OperatingAccountII and Operating AccountIII. tHE list boxes have master-child bound relation to the subforms .If user scroll ListDateii and highlight the date , the subfrom shows the resord associated with this date . And the same with ListDateiii. If it is possible, when a user opens the main form RequestChecks, the list boxes show only the date of the last record and consequently the subrofms show the last record.
I put the below code in main form load events

ListDtaeii.SetFocus
ListDtaeii.ListIndex = List0.ListCount - 1
ListDtaeii.Selected(List0.ListCount - 1) = False
ListDtaeiii.SetFocus
ListDtaeiii.ListIndex = List0.ListCount - 1
ListDtaeiii.Selected(List0.ListCount - 1) = False

It doesn't work.
Seond my attemp -I put the code in form current
Private Sub Form_Current()
Dim rs As Recordset
Set rs = OperatingAccountII.Form.RecordsetClone
If rs.RecordCount Then
rs.MoveLast


MySubForm.Form.Bookmark = rs.Bookmark
End If

And doesn't work neither.

I really appareciate your help in advance.
Thank you,
The Best Regards.
BorisGomel

[June7]

Google: VBA move to last record in subform
Review http://bytes.com/topic/access/answer...record-subform