How to reach the last record in a subform ?

On Sat, 30 Aug 2003 19:03:50 +0200, "Alain Guichaoua" <_@wanadoo.fr >
wrote:

mysubformcontro l.form.recordse tclone.movelast

-Tom.

Good evening to all

Here is my problem :

I have a form with a subform. They are linked.

When I open the form I would like the subform to reach its last
record.

I tried the method docmd.gotorecor d aclast but i did not
succeed.

Thank you for your help.

On Sat, 30 Aug 2003 10:20:34 -0700, Tom van Stiphout
<to*****@no.spa m.cox.net> wrote:

Sorry, that previous post ran away from me. Here is the full code:
dim rs as dao.recordset
set rs = mysubformcontro l.form.recordse tclone
rs.movelast
mysubformcontro l.form.bookmark = rs.bookmark
set rs=nothing

-Tom.

On Sat, 30 Aug 2003 19:03:50 +0200, "Alain Guichaoua" <_@wanadoo.fr >
wrote:

mysubformcontr ol.form.records etclone.movelas t

-Tom.

Good evening to all

Here is my problem :

I have a form with a subform. They are linked.

When I open the form I would like the subform to reach its last
record.

I tried the method docmd.gotorecor d aclast but i did not
succeed.

Thank you for your help.

On Sat, 30 Aug 2003 19:03:50 +0200 in comp.databases. ms-access, "Alain
Guichaoua" <_@wanadoo.fr > wrote:

Good evening to all

Here is my problem :

I have a form with a subform. They are linked.

When I open the form I would like the subform to reach its last
record.

I tried the method docmd.gotorecor d aclast but i did not
succeed.

Just stick to putting one record in the subform - voilla :-)

In the main form:
Private Sub Form_Current()
Dim rs As Recordset
Set rs = MySubForm.Form. RecordsetClone
If rs.RecordCount Then
rs.MoveLast
MySubForm.Form. Bookmark = rs.Bookmark
End If
rs.Close
Set rs = Nothing
End Sub
--
A)bort, R)etry, I)nfluence with large hammer.

(replace sithlord with trevor for email)

> I have a form with a subform. They are linked.

When I open the form I would like the subform to reach its last
record.

I tried the method docmd.gotorecor d aclast but i did not
succeed.

And yet another approach:

'************
Dim frm as Form
'Set reference to "subform"
Set frm = Me.MySubformCon trolName.Form

'Goto last record in subform
If frm.RecordsetCl one.RecordCount > 0 Then
frm.SelTop = frm.RecordsetCl one.RecordCount
End If
'************

--
Bruce M. Thompson, Microsoft Access MVP
bt******@mvps.o rg (See the Access FAQ at http://www.mvps.org/access)

NO Email Please. Keep all communications

within the newsgroups so that all might benefit.<<

Thank you Tom and Trevor, it works well.

Have a nice week-end

--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/photodim

Thank you to you too, Lyle; It is really nice to get many
solutions. I want to reach the last record (the one before a new
one) as in your exemple.

Bye !
--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/photodim

If the subform were showing ten records, would this show the last ten, with
the last one selected?

Yes.

--
Bruce M. Thompson, Microsoft Access MVP
bt******@mvps.o rg (See the Access FAQ at http://www.mvps.org/access)

NO Email Please. Keep all communications

within the newsgroups so that all might benefit.<<

"Bruce M. Thompson" <bthmpson@big_N OSPAM_foot.com> wrote in
news:vl******** ****@corp.super news.com:

Thank you to you too, Lyle; It is really nice to get many
solutions. I want to reach the last record (the one before a new
one) as in your exemple.

Uh ... as in my example, actually. <chuckle>

I'm very happy to confirm that it's Bruce's example.

<chuckle>

<chuckle>

--
Lyle

Comments interspersed.

"Lyle Fairfield" <ly******@yahoo .com> wrote in message
news:Xn******** *************** *******@130.133 .1.4...

"Bruce M. Thompson" <bthmpson@big_N OSPAM_foot.com> wrote in
news:vl******** ****@corp.super news.com:

If the subform were showing ten records, would this show the last ten,
with the last one selected?
Yes.
More specifically, when the recordcount *is* 10 - and the last record is the
Current record.

Hmmmm ... I'll try my question again.

If frm.recordcount is >10
Okay, there is a slight difference from that which I reported in what will be
visible in the subform control because I used exactly 10 records.
and

frm shows 10 only records
.... frm *exposes* only 10 records (just to make sure we are on the same
wavelength).
and record 1 is selected
In the current event, which is where my example code was supposed to be entered,
there is a current record, not a selected record, but that may not be what you
are trying to say.
what happens when this code is run:

frm.SelTop = frm.RecordsetCl one.RecordCount

?

Here in Canada only the last record is shown (and a "new" blank record if
appending is allowed).
Here in the US using Access 2000 on WinXP, when .Recordcount > 10, on Sunday,
the 31st of August, 2003, I see 9 records exposed (and a "new" blank record, if
appending is allowed). You may obtain different results. <g>
or am I missing something?
? <eg>
a kludge that could be used to display the last n records (where n =
number of records displayed in frm) and select the last is:

With Me
.SelTop = .RecordsetClone .RecordCount - _
(.InsideHeight - .FormHeader.Hei ght - .FormFooter.Hei ght) / _
.Detail.Height
.SelTop = .RecordsetClone .RecordCount
End With

Cool. Thanks, Lyle. :-)

--
Bruce M. Thompson, Microsoft Access MVP
bt******@mvps.o rg (See the Access FAQ at http://www.mvps.org/access) NO Email Please. Keep all communications

within the newsgroups so that all might benefit.<<