Access - Ir a campo de subformulario al hacer un intro

 
Vista:
sin imagen de perfil

Ir a campo de subformulario al hacer un intro

Publicado por Jaime (2 intervenciones) el 12/12/2021 21:33:12
Buenas Tardes,

Tengo una tabla de catalogo de productos relacionada de uno a varios con otra tabla de caducidades de manera que cada producto puede tener diferentes caducidades.

Para lo cual he desarrollado un formulario de productos con un subformulario caducidades. Cada producto viene identificado por un código único de manera que por un cuadro de búsqueda aparece en el subformulario sus caducidades y la posibilidad de introducir nuevas.

Me interesaría que al hacer un intro en la búsqueda por código del formulario el cursor se desplazara al campo de nueva fecha de caducidad en el subformulario y una vez introducida por un intro volviera al campo búsqueda del formulario.

Gracias de antemano.
Jaime
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ir a campo de subformulario al hacer un intro

Publicado por Anonimo (3319 intervenciones) el 13/12/2021 00:18:01
Para desplazarse desde el formulario a un objeto de su sub-formulario, se ha de hacer en dos pasos:

.- Paso uno: enviar el foco al objeto subformulario
.- Paso dos: enviar el foco al campo del subformulario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Eduardo

Ir a campo de subformulario al hacer un intro

Publicado por Eduardo (317 intervenciones) el 13/12/2021 17:22:25
Observe este ejemplo utilizo un formulario y un subformulario, 2 tablas.

TABLAS

tblPRODUCTOS


Fecha_vence_Tabla01

tblvencimiento


Fecha_vence_Tabla02

FORMULARIOS


Fecha_vence_01


Selecciono en Buscasr, PIÑA, observe que el cursor se desplaza a un nuevo registro del subformulario. Ahora ingreso la fecha de vencimiento 20/02/2002 y doy ENTER me lleva nuevamente al cuadro combinado Buscar


Fecha_vence_02

CÓDIGO DEL CUADRO COMBINADO BUSCAR

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cboBuscar_AfterUpdate()
 
  On Error Resume Next
 
   ' Buscar el registro que coincida con el control.
 
     Dim rs As Object
 
     Set rs = Me.RecordsetClone
     rs.FindFirst "[idproducto] = " & Me.cboBuscar
     Me.Bookmark = rs.Bookmark
 
     Me.frmSubVence.SetFocus
 
End Sub

CODIGO DEL SUBFORMULARIO EVENTO DESPUES DE ACTUALIZAR LA FECHA

1
2
3
4
5
6
7
Private Sub fechavence_AfterUpdate()
 
 If Me.NewRecord Then
   Me.Parent.cboBuscar.SetFocus
 End If
 
End Sub

Como puede apreciar no es solo enviar el foco. Espero le sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Eduardo

Ir a campo de subformulario al hacer un intro

Publicado por Eduardo (317 intervenciones) el 14/12/2021 13:55:41
Disculpe no incluí el evento Al Entrar del subformulario.

1
2
3
Private Sub frmSubVence_Enter()
 DoCmd.GoToRecord , , acNewRec
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar