Discussion:
Ir al ultimo o nuevo registro
(demasiado antiguo para responder)
Leandro
2004-07-05 18:33:03 UTC
Permalink
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
2004-07-05 18:45:21 UTC
Permalink
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
Post by Leandro
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
Juan M Afán de Ribera
2004-07-05 18:54:31 UTC
Permalink
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
Post by Leandro
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
Juan M Afán de Ribera
2004-07-05 19:23:30 UTC
Permalink
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
Post by Juan M Afán de Ribera
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
Post by Leandro
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
Leandro
2004-07-05 20:09:46 UTC
Permalink
ya funciona
gracias!!!!!!
genios!
-----Mensaje original-----
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
Post by Juan M Afán de Ribera
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
Post by Leandro
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
Post by Juan M Afán de Ribera
Post by Leandro
ultimo registro el subformulario.
gracias
.
Leandro
2004-07-05 20:09:38 UTC
Permalink
ya funciona
gracias!!!!!!
genios!
-----Mensaje original-----
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
Post by Juan M Afán de Ribera
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
Post by Leandro
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
Post by Juan M Afán de Ribera
Post by Leandro
ultimo registro el subformulario.
gracias
.
Loading...