** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - ir a un registro determinado
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoir a un registro determinado
 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
toldeman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Noviembre/2007
Estado: Sin conexión
Puntos: 445 		Enlace directo a este mensaje Tema: ir a un registro determinado
    Enviado: 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.


Editado por toldeman - 11/Noviembre/2019 a las 12:10
Arriba
toldeman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Noviembre/2007
Estado: Sin conexión
Puntos: 445 		Enlace directo a este mensaje Enviado: 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.
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14738 		Enlace directo a este mensaje Enviado: 07/Noviembre/2019 a las 18:43
¿Desde dónde llamas al procedimiento "rua"? 
Xavi, un minyó de Terrassa

Mi web
Arriba
toldeman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Noviembre/2007
Estado: Sin conexión
Puntos: 445 		Enlace directo a este mensaje Enviado: 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.

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.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable