Cómo cargar valores a un combobox de access mediante código?

Tengo un formulario de consulta el cual mediante un botón abre un nuevo formulario en el cual se insertan eventos sobre el registro consultado en el primer formulario, en el segundo formulario automáticamente me carga el folio y la fecha del día para insertar un nuevo evento, la situación es que quiero cargar un combobox de estatus el cual se cargue con valores que dependan del estatus actual del registro... ¿cómo lo hago mediante código?

Respuesta
1

Rafael: Vamos a suponer que al Combo le has puesto o le pones el Nombre de CboStatus.

Me.CboStatus.RowSource ="SELECT DISTINCT TuTabla.Estatus FROM TuTabla ORDER BY TuTabla.Estatus;"

'Para asegurar.

Me. CboStatus. Requery

Cambia los datos en Negrita por los tuyos. Mis saludos >> Jacinto

Gracias Jacinto, solamente que mis valores no están guardados en una tabla, lo que quiero poner es, que si el estatus actual es X entonces solamente cargue el combo con los estatus Y,Z.... si es Y solamente llene el combo con A,B,C... etc.

Rafael: Para no complicar con mucho Código y "Listas de Valores" distintas en el Combo mi sugerencia es que crees un "Tablita" que puedes llamar por ejemplo TblEstatus

Campos >> 1 >> Nombre >> Estatus

Ahí entras los Estatus que tengas, 2,3 ... N, pero ojo con los Literales que coincidan "Exactamente con lo que tienes", salvo que tengas un IdEstatus que sería lo mejor.

Partiendo de ahí, en Form_Current del Formulario le pones:

Private Sub Form_Current()
Me.CboEstatus.RowSource = "SELECT Estatus FROM TblEstatus WHERE Estatus <> '" & Me.CboEstatus & "'"
Me.CboEstatus.Requery
End Sub

Al desplegar el Combo te saldrán todos los Vaores exceto el Actual.

Ahora bien, ese proceso puede provocar errores involuntarios, que para evitarlos yo haría.

Un TextBox dependiente del Campo Estatus que llamaré TxtEstatus.

El Combo lo haría Independiente. El código del Form_Current() lo cambiaría a>>

Private Sub Form_Current()
Me.CboEstatus.RowSource = "SELECT Estatus FROM TblEstatus WHERE Estatus <> '" & Me.TxtEstatus & "'"
Me.CboEstatus.Requery
End Sub

En el Evento del AfterUpdate del Combo

Private Sub CboEstatus_AfterUpdate()
Me.TxtEstatus = Me.CboEstatus
End Sub

Espero te sirva de ayuda. Mis saludos >> Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cambiar valores en un ComboBox

Tengo en un formulario de ACCESS un Cuadro combinado(Combo Box) en el que quiero que aparezcan los datos de otra tabla para poder seleccionar uno, hasta aquí todo bien si quiero ver todos los registros de la tabla, pero lo que necesito es que me...
1 respuesta

Abro un formulario en Access a partir de la selección de un registro de un combo en otro formulario, pero se abre bloqueado.

Tengo un formulario que se llama "selec PROVtoMODIF", al abrirlo selecciono el proveedor mediante un combo, luego pulso un botón para abrir un formulario en modo edición con los datos del proveedor seleccionado en el primer formulario. El código del...
1 respuesta

Crear 2 combos dependientes para incorporar al filtro de datos

Es una pregunta para Jacinto Trillo Hola Jacinto La idea es crear 2 combos dependientes, en el primero tendríamos como valores algunos campos de la tabla "Libros" . Creamos un primer combo dependiente "CboCampos" u otro nombre, cuyos valores sean los...
1 respuesta

Botón para dar de baja registros sin eliminarlos

Es una pregunta para Jacinto Trillo Hola Jacinto Querría usar un botón para dar de baja registros, sin eliminarlos, mediante los valores si/no del campo “EXISTENTE” en el Formulario Libros. Si se da de baja el registro debe aparecer en color rojo y...
1 respuesta

Filtrar por un cuadro combinado de múltiples opciones y ver resultado en un listbox

Quisiera que me guíen, tengo un cuadro combinado de opciones múltiples y quisiera que al seleccionar esas opciones, por medio de un botón, me muestre los resultados en un listbox. He intentado hacerlo por medio de este código, pero me desaparecen los...
2 respuestas

Dos cuadros de texto combinados con varias tablas.

A ver si alguien me puede echar una mano pues estoy atascado desde hace varios días con esto. Tengo 4 Tablas. En una de ellas, "Tabla_Tipo_Inmueble", están los registros de tipos de inmuebles, como pueden ser: Casa, Piso, Chalet, Local, Unifamiliar....
2 respuestas

Actualizar combo dependiente

Ayer recibí amablemente tu respuesta de cómo actualizar un combo dependiente, sin embargo, por algún motivo que desconozco, no puedo accesar a verla. Me siento apenado por esto, pero quisiera preguntarte de nuevo, esperando que esta ocasión sí pueda...
1 respuesta

Es posible en cuadro de texto dependiente de casilla verificación otro valor

Tengo un cuadro de texto dependiente de una casilla de verificación con valores Si o No, es posible que en de Si o No saliera "Pagado" o "Pendiente"
1 respuesta

Combo box

Felices fiestas! Mi duda es sobre un combobox que quiero que muestre varios valores de una tabla, la tabla MEDIDAS que tiene varias medidas por cada Registro, así pues el registro R1 tiene M1, M2, M3 y así sucesivamente. Quiero mostrar en el combobox...
1 respuesta

Access - Refrescar Query dependiendo del valor de un Combobox

Tengo 2 tablas, de las cuales genere un Query manualmente. En access 2007 lo puedo ver de lado izquierdo. Tengo un subform que enlaza los datos de la query con mis textbox puestos en el formulario. Cuando corro mi formulario, puedo ver los datos como...
1 respuesta