Access y VBA - ir a un registro determinado

ir a un registro determinado

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84801
Fecha de impresión: 27/Marzo/2026 a las 02:09

Tema: ir a un registro determinado

Publicado por: toldeman
Asunto: ir a un registro determinado
Fecha de publicación: 07/Noviembre/2019 a las 11:33

Buenos dias, hace dos años abri un hilo en este mismo foro pero al final no supe interpretar la solucion apotada por el maestro Mihura.

He intentado hacerlo de nuevo leyendo mas detenidamente el hilo, pero me da error.

http://www.mvp-access.com/foro/ira-un-registro-determinado_topic82930.html?KW=" rel="nofollow - http://www.mvp-access.com/foro/ira-un-registro-determinado_topic82930.html?KW=

tengo este codigo en un modulo:

Public Sub rua()
numcontador = "A1615"
PosicionarForm (numcontador)
End Sub

Y este otro en el subformulario que pretendo que me ponga el foco en el registro que le indique.

Public Function PosicionarForm(numcontador As String)
  
    Me.Requery
    With Me.RecordsetClone
        .FindFirst "referencia = 'a1615'"
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        End If
    End With
End Function

El error se produce cuando intento ejecutar el procedimiento sub.

NO SE HA DEFINIDO SUB O FUNCTION.

Una vez que consiga llamar a la funcion, no se si esta hara lo que pretendo.

Muchas gracias de nuevo y disculpen las molestias.

Respuestas:

Publicado por: xavi
Fecha de publicación: 07/Noviembre/2019 a las 18:43

¿Desde dónde llamas al procedimiento "rua"?

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: toldeman
Fecha de publicación: 07/Noviembre/2019 a las 18:52

Hola Xavi.
Le llamo desde un módulo, pero si lo llamo desde el formulario principal me da el mismo error, si le llamo desde el subformulario me funciona pero solo me muestra el subformulario.
La idea es que desde el formulario principal me vaya al registro elegido y que se actualize con la relación que tienen el form principal y el subform.
Relación de uno a varios.
Gracias.

Publicado por: toldeman
Fecha de publicación: 11/Noviembre/2019 a las 12:09

Buenas.

Despues de dar muchas vueltas, he conseguido mi objetivo.

Pongo el codigo que he utilizado:

Public Sub Comando68_Click()
Dim pr As String
Dim rs, As Recordset
Dim cl As String
Set rs = Me.RecordsetClone
cl = InputBox("Que referencia buscas")
rf = Val(DLookup("[nº cliente]", "[restar trabajos c]", "referencia='" & cl & "'"))
rs.FindFirst "[nº cliente] =" & rf
Me.Bookmark = rs.Bookmark
Set rs = Nothing
Call llama(cl)
End Sub


Sub llama(ar As String)
Dim rs1 As Recordset
Set rs1 = Me.TRABAJOS_REALIZADOS_F.Form.RecordsetClone
rs1.FindFirst "referencia ='" & ar & "'"
Me.TRABAJOS_REALIZADOS_F.Form.Bookmark = rs1.Bookmark
DoCmd.GoToControl "[trabajos realizados f]"
Forms![clientes f]![trabajos realizados f].Form![Instalador].SetFocus
Set rs1 = Nothing
End Sub

Basicamente lo que hace es que metiendo el numero de presupuesto, me busca el numero de cliente que es el campo que tiene relacion en las dos tablas, despues busca en todos los registros que tiene en la otra tabla posicionandose en el campo elegido.

Por mi parte doy por solucionada la consulta.

Muchas gracias a todos.