Seleccionar un registro de varios subformularios

Tengo un formulario que se llama A con tres subformularios continuos B, C y D los tres subformularios están relacionados con un campo que se llama código. ¿Si yo seleccionara un registro del subformulario B como se podría hacer para que en aquellos que coincidiera el código los subrayara de alguna manera? Bien con un color o desactivando el resto y si vuelvo a hacer click sobre ese mismo registro lo quitara.

Respuesta
1

La respuesta que le dan es totalmente inadecuada e indica la falta de conocimiento de VBA de quien lo hace y menos hablar de "consumo de recursos" y "estética", personalmente opino que no lo puede hacer con los subformularios y menos utilizando formato condicional. Por si de pronto lo interesa lo hago con cuadros de lista, Observe la imagen.

Al hacer doble clic sobre el idcodigo 2 del cuadro de lista 1 se resaltan los idcodigo de los cuadros de lista 2 y 3. Ahora, limpio y hago doble clic sobre el idcodigo 3 del cuadro de lista 3 y obtengo

Ahora limpio y hago doble clic sobre el idcodigo1 del cuadro de lista 2 y obtengo

Utilizo el siguiente procedimiento para deseleccionar los items de los 3 cuadros de lista.

Sub deselecciona()
 Dim varPos As Variant
     For Each varPos In lst01.ItemsSelected
         Me.lst01.Selected(varPos) = False
     Next varPos
     For Each varPos In lst02.ItemsSelected
         Me.lst02.Selected(varPos) = False
     Next varPos
     For Each varPos In lst03.ItemsSelected
         Me.lst03.Selected(varPos) = False
     Next varPos
End Sub

Llamo el procedimiento en evento Al entrar en cada cuadro de lista y al hacer clic en el botón Limpiar.

 Call deselecciona

CÓDIGO DEL EVENTO Al hacer doble clic sobre una fila del cuadro de lista 1

Private Sub lst01_DblClick(Cancel As Integer)
  Dim intNumAct As Integer
  Dim intCodigo As Integer
   intCodigo = Me.lst01.Column(1)
     For intNumAct = 1 To Me.lst02.ListCount - 1
      If Me.lst02.Column(1, intNumAct) = intCodigo Then
        Me.lst02.Selected(intNumAct) = True
      End If
     Next intNumAct
     For intNumAct = 1 To Me.lst03.ListCount - 1
      If Me.lst03.Column(1, intNumAct) = intCodigo Then
        Me.lst03.Selected(intNumAct) = True
      End If
     Next intNumAct
End Sub

CÓDIGO DEL EVENTO Al hacer doble clic sobre una fila del cuadro de lista 2

Private Sub lst02_DblClick(Cancel As Integer)
  Dim intNumAct As Integer
  Dim intCodigo As Integer
   intCodigo = Me.lst02.Column(1)
     For intNumAct = 1 To Me.lst01.ListCount - 1
      If Me.lst01.Column(1, intNumAct) = intCodigo Then
        Me.lst01.Selected(intNumAct) = True
      End If
     Next intNumAct
     For intNumAct = 1 To Me.lst03.ListCount - 1
      If Me.lst03.Column(1, intNumAct) = intCodigo Then
        Me.lst03.Selected(intNumAct) = True
      End If
     Next intNumAct
End Sub

CÓDIGO DEL EVENTO Al hacer doble clic sobre una fila del cuadro de lista 3

Private Sub lst03_DblClick(Cancel As Integer)
  Dim intNumAct As Integer
  Dim intCodigo As Integer
   intCodigo = Me.lst03.Column(1)
     For intNumAct = 1 To Me.lst01.ListCount - 1
      If Me.lst01.Column(1, intNumAct) = intCodigo Then
        Me.lst01.Selected(intNumAct) = True
      End If
     Next intNumAct
     For intNumAct = 1 To Me.lst02.ListCount - 1
      If Me.lst02.Column(1, intNumAct) = intCodigo Then
        Me.lst02.Selected(intNumAct) = True
      End If
     Next intNumAct
End Sub

Observe que el código es muy parecido en los 3 cuadros de lista, lo cual indica que se pueden hacer unas mejoras para reducirlo. Esta una idea seguro que deben existir otras.

1 respuesta más de otro experto

Respuesta

Si el formulario se utiliza en su modo continuo o en modo hoja de datos, el método para que presente diferencias estéticas entre sus registros consiste en aplicar 'formato condicional'.

No conviene utilizaren exceso esta metodología, porque la estética consume muchos recursos y ralentiza la ejecución (aplicar lo de: 'use pero no abuse').

¡Gracias! Realmente no tiene porque ser diferencias estéticas, comenté lo del color pero también puede ser poniendo como desactivadas las líneas no seleccionadas.

Admite variantes, pero no modifica las propiedades (solo el formato <==> estética que aplica en base a la condición).
Los formularios continuos muestran varios registros pero solo uno es real -el activo-.
El resto simple ilusión óptica.
Lo demuestran los campos calculados: repiten el valor del registro activo.

Un enlace de interés para continuar aprendiendo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Sumar Registros de un Campo tipo lista

Tengo un campo tipo lista que registra numero de las Maquinas Pero no se como hacer una Suma de los registros como se ve en la imagen ( solo se registraron 14 Maquinas )
2 respuestas

Cargar Listbox Sin Duplicados, y al darle click a los registros que me muestre el resultado de otra columna en otro Listbox

Cargar Listbox Sin Duplicados de los registros de una columna, y al darle click a los registros que me muestre el resultado de otra columna relacionada a esta en otro Listbox Cargar Listbox Sin Duplicados de los registros de una columna, y al darle...
2 respuestas

Excluir una dirección de correo

El siguiente código envía correos de forma automática a una serie de direcciones de correo y lo hacemos a través de un botón dentro de un formulario. Mi intención es poder excluir alguna dirección si fuera necesario, ¿Cómo lo hago? A través de un...
1 respuesta

Resetear Cuadro de Lista en nuevo Formulario

Tengo varios cuadros de lista en un formulario. Los datos de cada cuadro de lista provienen de diferentes tablas. Mi problema es que cuando termino de completar el formulario con las opciones seleccionadas de cada cuadro de lista y quiero...
2 respuestas

Como poner el primer elemento seleccionado de un listbox en el textbo1, el segundo en el textbox2 y así sucesivamente

Tengo un listbox de multiselección el cual esta cargado con varios datos mi problema es que yo necesito que los datos seleccionados se vayan a diferentes textbox por ejemplo la primer selección al texbox1, la segunda selección al textbox2, la tercera...
1 respuesta

Inserta datos desde un cuadro de lista Access

Tengo este formulario creado como se ve en la imagen Lo que requiero es que al momento de seleccionar los ítems en el cuadro de texto con un botón Al dar click en el botón me inserte los datos seleccionados en una tabla llamada ítems ¿Esto se podría...
2 respuestas

Cuadro de lista

Tengo un cuadro de lista en un formulario de selección múltiple y quisiera que esta selección me sirviese de criterio para abrir un informe, es decir por ejemplo que si elijo Madrid, Barcelona y Sevilla, me abra el informe pero sólo de estas tres...
1 respuesta

Como puedo modificar esta macro para poder agregar más columnas en listbox

Quisiera si me pueden ayudar con un macro que eh estado modificando para hacer una búsqueda en una hoja de más de 15 columnas y reflejar la búsqueda de todas esas columnas, en listbox, dependiendo la búsqueda, además que no eh podido, ver cual es el...
1 respuesta

Informe en access con filtro de un formulario sale en blanco

Estoy filtrando desde un cuadro de lista a un formulario, boton impri. El mismo abre, pero no contiene la información deseada. Queda en blanco o bien coloca todos los registros. Aqui el codigo Private Sub Ctl_IMPRIMIR_Click() Dim MVariant As Variant...
2 respuestas

Como puedo mostrar en un cuadro de texto, los datos que seleccione de un cuadro de lista con selección múltiple en Access

Tengo un cuadro de lista en el cual muestro varios datos y lo que quiero es dependiendo los datos seleccionados en el cuadro de lista poder mostrarlos todos al dar aceptar en un boton que tengo y este los muestre en un cuadro de texto en Access...
2 respuestas