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 confeccionar otro registro en el formulario, me quedan seleccionadas las opciones que elegí en los cuadros de lista del registro anterior. Quisiera que al generar un registro nuevo, no haya ninguna opcion seleccionada en los cuadros de lista.

2 respuestas

Respuesta

Si el formulario es dependiente no tiene porque quedan activados al ir a un nuevo registro. Si quedan seleccionados es porque los cuadros combinados no pertenecen a ningún campo dependiente. En este caso programe el evento Al activar registro. Algo como:

IF Me.NewRecord THEN

   Me.cuadrocombinado1=Null

   Me.cuadrocombinado2=Null

   Me.cuadrocombinado3Null

END IF

Perdón me equivoque leí fue cuadro combinado. Siempre quedaran activados los cuadros de lista al no ser que haya alguna condición que diga lo contrario. Un cuadro de lista cambiando su origen de datos algo como

Me.cuadrolista.RowSource=""

Efectivamente estoy equivocado he interpretado mal su pregunta. Le complemento la otra solución que le dan. Tengo este formulario y selecciono 3 Departamentos estando en el registro número 1.

Ahora mes desplazo al registro número 2 y obtengo:

CÓDIGO DEL EVENTO AL ACTIVAR REGISTRO

Private Sub Form_Current()
 Dim ctlActive As Control
 Dim varPos As Variant
    For Each ctlActive In Me.Controls
      If ctlActive.ControlType = acListBox Then
        For Each varPos In ctlActive.ItemsSelected
            ctlActive.Selected(varPos) = False
        Next varPos
      End If
    Next
End Sub

Mis disculpas.

Respuesta

La opción es poner a false la propiedad 'selected' de los Items activados en el cuadro de lista.

Lo aconsejable es hacerlo en el evento Current del formulario, una muestra de como hacerlo para un cuadro de lista de nombre 'XModelo'.

Lo he creado como una subfunción para poder reutilizarlo (una vez por cada cuadro de lista a limpiar).

--- El evento Current ----
Private Sub Form_Current()
Limpia_lista XMODELO
' Limpia_lista XMODELO2 otro objeto
' Limpia_lista XMODELOnn  otro objeto
End Sub
--- La subfunción --
Private Sub Limpia_lista(XObjeto As control)
Dim zz
With XObjeto
For Each zz In .ItemsSelected
.Selected(zz) = False
Next zz
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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...
2 respuestas

Restar campo independiente y campo cuando se selecciona un art en un cuadro de lista

O buenas noches. Tengo la siguiente inquietud. Estoy tratando de hacer funcionar el siguiente código Private Sub Dias_Exit(Cancel As Integer) Dim IdItm As Variant, SQL As String If Me.ART_114.ItemsSelected.Count = 1 Then Me.RESTO114 = Me.DIASFALTAS -...
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

Como puedo seleccionar los datos de una consulta de Access

Donde a partir de esa consulta hice un formulario para que me mostrara todos los datos que tengo formados en la consulta pero mi duda es como podría hacer para imprimir en un informe que tengo los datos que seleccione en un cuadro de lista que tengo...
2 respuestas

Cómo imprimir etiquetas en Access

Tengo un archivo de Access con una sola tabla perteneciente a una comunidad de vecinos. A partir de esa tabla he hecho varias consultas, un formulario para introducir, eliminar, editar o buscar más socios y tengo un archivo de etiquetas donde...
1 respuesta

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

Problema con cuadro de lista

Tengo un formulario con un cuadro de lista cuyo valor queda marcado y validado al efectuar un click con el mouse sobre el mismo. Si quiero "desmarcar" dicho valor, ¿Cuál sería la función que permite hacerlo automáticamente? Sé que si presiono la...
3 respuestas

Bloquear Campos de access si se encuentran con información access

Soy nueva en la web y tengo una la siguiente pregunta: Tengo un base de datos y quiero que al ingresar los campos que se consulten que son son los que tienen información la rutina bloque los campos para evitar que sean modificados, y al dar clic en...
2 respuestas

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