Buenas Noches Foro. Estoy trabado en un Formulario continuo, Exactamente en Cuadros Combinados en cascada: cuando ingreso un nuevo registro El programa funciona(Cuadros combinados) los combos en cascada, el problema esta en la modificacion de los combos y exactamente en el ultimo. al no coincidir con los anteriores combos queda vacio osea no carga nada, Y ESO ESTA BIEN, lo que no quiero es que siga adelante o que NO PUEDA GUARDAR, a pesar de que salio vacio el cuadro combinado deja pasar a la siguiente caja y guarda el dato que se guardo por primera vez guardando una informacion falsa o no escogida.

alguien q me ayude puedo enviar el archivo.

no puedo seguir avanzando con mi proyecto sino corrijo esto. les agradesco por adelantado.

Saludos desde Honduras

Mira este hilo:

http://www.mvp-access.com/foro/combobox-en-cascada-dentro-de-subformulario_topic82474.html" rel="nofollow - http://www.mvp-access.com/foro/combobox-en-cascada-dentro-de-subformulario_topic82474.html

Encontrarás el clásico ejemplo de Marius y el de emiliove

Un saludo

Entiendo que el último campo no puedes permitir que quede vacío. Supongo que controlar el evento Exit de ese cuadro combinado para ver si está todo relleno sería la primera opción.

Un saludo 

Xavi Gracias por responder.

Pero intente esto y nada

'If IsNull(Me![COD_TALLA] Or Me![COD_TALLA] = "") Then 'If IsNull(Me!LOTE) Or Me!LOTE = "" Then
'    Beep
'    MsgBox "INGRESE TALLA", vbInformation, "¡¡¡Preste Atención!!!"
'    'Me.COD_TALLA.SetFocus
'End If

_____________________________________________

esto tampoco

'If VarType(Me.COD_TALLA.Value) = vbNull Then
'MsgBox "Debe seleccionar un elemento de la lista."
'Cancel = True
'End If

________________

If IsNull(Me.COD_TALLA) Or Me!COD_TALLA= "" Then Cancel = True

y nada de nada supongo que es que ese combo ya tiene el dato anterior solo que no aparece por el la nueva consulta. por eso estos codigo no le hacen efecto.

SAludos

Si no he entendido mal, quieres que si talla esta vacio no siga.

Prueba:

Private Sub COD_TALLA_LostFocus()
Dim respuesta
 If Me.COD_TALLA.Value = "" Or IsNull(Me.COD_TALLA.Value) Then respuesta = MsgBox("Ojito,talla vacia", vbOKOnly, "ERROR")

If respuesta = vbOK Then Me.COD_COLOR.SetFocus
End Sub

Gracias por las respuestas inmediatas, probare las dos opciones que me dieron. ojalá y sea eso brother. estoy empezando a preocuparme.

Gracias

Mas posibilidades: En el evento después de actualizar del primer combo, puedes indicarle que en el origen de la fila del combo encadenado te establezca los valores que le corresponden y te ponga el valor del primero, que se vaya el foco a dicho combo y lo despliegue, para tener que establecerlo por fuerza.

Tal como lo hago aquí: 

Saludos.

El que dio en el clavo en lo que necesito es pitxiku pero a pesar de los ejemplos no me funcionó ninguno.

1. la opcion de cambiar la propiedad Limitar a lista del cuadro combinado a SI ya lo tenia

2. La opcion de comprobar la propiedad ListIndex de los cuadros combinados cada vez que cambie la lista. Y si no es un número mayor o igual que cero, limpiar el valor no ENTENDI
3. Y LA OPCION 3 NO ME FUNCIONO

Amigo PITXIKU, CON ESTE CODIGO LOGRE QUE SI NO COINCIDE CON LOS ANTERIORES COMBOS

SE CANCELE LA MODIFICACION, PERO AHORA EL PROBLEMA ES CUANDO INGRESO UNO NUEVO.

NO ME DEJA SE CANCELA Y NO LLEGO A TALLA.

QUE PUEDO ARREGLAR, PERO YA VOY SALIENDO GRACIAS

Private Sub LOTE_AfterUpdate()

On Error GoTo solu_err

        Me.COD_COLOR.Enabled = False
        Me.COD_COLOR = Me.LOTE.Column(3)
        Me.LOTE.Enabled = False
        Me.COD_TALLA.RowSource = "SELECT Entrada_Gilma.TALLA, TALLA.TALLA FROM Entrada_Gilma INNER JOIN TALLA ON Entrada_Gilma.TALLA = TALLA.Id_TALLA WHERE PO = '" & Me.cmbPO & "' AND ESTILO = " & Me.COD_ESTILO & " AND COLOR = " & Me.COD_COLOR & " GROUP BY Entrada_Gilma.TALLA, TALLA.TALLA"
       

https://www.filebig.net/files/pMrDfSz3ik

Gracias