Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Ir al ultimo o nuevo registro

2,253 views
Skip to first unread message

Leandro

unread,
Jul 5, 2004, 2:33:03 PM7/5/04
to
que sentencia debo utilizar para ir al ultimo o nuevo
registro?

tengo el formulario1 (independiente) que tiene un
subformulario con formato hoja de datos.

lo que necesito es que al cargar el formulario1 lleve al
ultimo registro el subformulario.

gracias

Rosa Sanjuan

unread,
Jul 5, 2004, 2:45:21 PM7/5/04
to
No es lo mismo ir al ultimo registro (last) o nuevo registro
(new record).

ir al ultimo:
DoCmd.GoToRecord acForm, Me!subformulario.Form, acLast
ir a nuevo:
DoCmd.GoToRecord acForm, Me!subformulario.Form, acNewRec

Esto es la teoria, ahora bien no se donde vas a poner esto porque
puede dar error (por ejemplo si vas a ultimo y no hay ningun
registro). Lo mejor es poner antes
on error resume next

Saudos
Rosa

"Leandro" <anon...@discussions.microsoft.com> escribió en el mensaje
news:262e501c462be$819d3b50$a601...@phx.gbl...

Juan M Afán de Ribera

unread,
Jul 5, 2004, 2:54:31 PM7/5/04
to
Esta sería una manera de hacerlo:

Dim rst As Object

Set rst = Me.Subformulario.Form.RecordsetClone

If Not rst.EOF Then
rst.MoveLast
Me.Subformulario.Form.Bookmark = rst.Bookmark
End If

Set rst = Nothing

--
Saludos
Juan M. Afan de Ribera
[MVP Access]
http://www.mvp-access.com/juanmafan


"Leandro" <anon...@discussions.microsoft.com> escribió en el mensaje
news:262e501c462be$819d3b50$a601...@phx.gbl...

Juan M Afán de Ribera

unread,
Jul 5, 2004, 3:23:30 PM7/5/04
to
No había leído bien el enunciado y además me había complicado la vida (para
variar). Esta sería una forma de hacerlo, y como dice Rosa con el

On Error Resume Next
Me.Subformulario.SetFocus
' para ir al último registro
DoCmd.GoToRecord , , acLast
' para ir a un nuevo registro
DoCmd.GoToRecord , , acNewRec

si dejamos los valores por defecto (es decir, los argumentos en blanco)
funcionará bien para un subformulario, si no, no funcionará.

--
Saludos
Juan M. Afan de Ribera
[MVP Access]
http://www.mvp-access.com/juanmafan


"Juan M Afán de Ribera" <happy...@ya.com> escribió en el mensaje
news:%23t8XEGs...@TK2MSFTNGP12.phx.gbl...

Leandro

unread,
Jul 5, 2004, 4:09:46 PM7/5/04
to
ya funciona
gracias!!!!!!
genios!
>-----Mensaje original-----
>.
>

Leandro

unread,
Jul 5, 2004, 4:09:38 PM7/5/04
to
ya funciona
gracias!!!!!!
genios!
>-----Mensaje original-----
>.
>
0 new messages