Tengo error Combos en cascada

Vamos a suponer que el combo es el de talla. Puedes hacerlo de muchas formas, todo depende de como rellenes los controles. Por ejemplo, en el evento Al recibir el enfoque del control siguiente puedes poner

if talla="" or isnul([talla]) then

Msgbox"¿Es que no te das cuenta de que Talla está en blanco?", vbokonly,"Yo no sigo"

Talla. Setfocus

end if

O si pulsas un botón para guardar, pones lo mismo en el evento al hacer clic.

GRACIAS POR TU APORTE PERO NO ES EL CASO, ACUÉRDATE QUE YA HAY UN DATO EN LA TABLA Y QUE LO QUE QUIERO ES MODIFICAR VARIOS COMBOS . TE DEJO UN MENSAJE DE ALGÚN COLABORADOR PARA SER MÁS ESPECIFICO.

Lo que yo entiendo es que es la lista lo que se queda vacía, no el valor. Es decir si tenemos 2 cuadros combinados, donde en el primero se puede seleccionar Fruta o Verdura; y en el segundo de puede seleccionar Manzana o Pera para la fruta, y Lechuga o Alcachofa para la verdura, le ocurre que en un registro ya creado: Fruta-> Manzana, si después selecciona Verdura, el valor en el segundo cuadro combinado "desaparece" porque Manzana no es una verdura, pero si no lo modifica sigue quedando ese valor en el campo de la tabla.

Ya pero para eso puedes poner en el evento Al recibir el enfoque del segundo combinado, que para el ejemplo vamos a llamarlo Producto

Producto. Requery

Es decir que "reconsulte" su origen de la fila.

De todas formas, no digo que sea lo mejor, pero, personalmente, suelo darle el origen de la fila de los combinados en código.

Por ejemplo, vamos a suponer que el primer combinado se llama Categoría. En el evento Al recibir el enfoque se le puede poner

Categoria.rowsource="Select categoria from Categorias group by categoria"

Y en el evento al recibir el enfoque( y depende de como estén construidas las tablas) del combinado Producto puedes ponerle

Producto.rowsource="select Producto from Productos where categoria='" & me.categoria & "'"

De forma que cuando pones el cursor en el, "mira" que valor hay en el combinado Categoría y te "busca" aquellos productos de la tabla Productos que su categoria coincida con la que hay en el combinado Categoria.

Y si cambiaras algún valor en el combinado Categoria, cuando pongas el cursor en el combinado Productos te aparecerán sólo los que corresponden a esa categoria.

De todas formas, si quieres, repito, si quieres, mándame un mensaje(sólo el mensaje) a [email protected] y te mando un ejemplo.

Si lo haces, en el asunto del mensaje pon tu alias Jimmy Aramburu, ya que si no sé quien me escribe ni los abro.

¡Gracias! Te envíe un correo

Julián te agradezco por el archivo que me enviaste, pero no es eso lo que buscaba.

http://www.filebig.net/files/55FryCW7Ts

Suponiendo que si abres mi archivo y lo revisas, lo que me ayudaría es que si no hay nada o esta vacío en el combo talla porque busco y no encontró que haga lo siguiente:

Opción 1 que por ningún motivo guarde porque guardaría con un dato que no escogí, creo que con que NO me deje pasar de esa fila, y que se vaya al primer combo para escoger de nuevo hasta que escoja la información adecuada. Osea que los tres combos sean los correctos para que se llene el combo talla.

La opción 2 seria que si no sale nada en el combo talla que se actualice con update en dato vacío o null, porque así no me dejaría pasar de talla ya que tengo como requerido en la Tabla . hasta ingresar el correcto

Creo que seria algo así es un ejemplo que baje del internet.

 If Me.cboCustomer.ListIndex = -1 Then Exit Sub
strSQL = "INSERT INTO tmpARCustomer SELECT tblARCustomer.* FROM tblARCustomer WHERE '        DoCmd.RunSQL strSQL
'        Me.Requery

Gracias y mil disculpas por las molestias

Ahora si que no entiendo nada. Si el campo Cod_talla es requerido, no te guardará el registro hasta que no lo rellenes. Personalmente no me gustan, no les veo ninguna utilidad, ya que se le puede decir en código que se rellene un campo. Por ejemplo,

Private Sub CODE_PACA_GotFocus()
If IsNull([COD_TALLA]) Then
MsgBox "¿No te das cuenta de que la talla está vacía, me vuelvo a Talla", vbOKOnly + vbCritical, "Otra vez será"
[COD_TALLA].SetFocus
End If
End Sub

usando For each control in form.controls. Pero, si relleno un registro

Dejo Talla en blanco y cuando el campo CODE_paca recibe el enfoque

Al aceptar se vuelve a Talla, pero se le podría decir que borrara, por ejemplo, algún campo requerido. Con lo cual, aunque quisieras guardarlo no te dejaría. Además no entiendo que un campo como CODE_PACA que lo haces funcionar como autonumérico, vaya detrás de un control cualquiera. Lo lógico, ya que el valor lo va a poner él, es que esté bloqueado o que no reciba el enfoque. Bueno, el cursor se vuelve a Talla( si aumentas la imagen se ve el cursor)

El código del evento Al recibir el enfoque del control CODE_PACA es

Private Sub CODE_PACA_GotFocus()
If IsNull([COD_TALLA]) Then
MsgBox "¿No te das cuenta de que la talla está vacía, me vuelvo a Talla", vbOKOnly + vbCritical, "Otra vez será"
[COD_TALLA].SetFocus
End If
End Sub

Gracias por responder, tu probaste con el ultimo registro abajo, agregaste uno nuevo ese no es el problema el problema es los de arriba intenta modificar, prueba modificando algo de arriba escoge otro por, otro lote y te darás cuenta que al no encontrar la talla dale enter oclic fuera de talla y veras que pasa a código busque y no captura ningún error, (ese es mi problema) ya le puse tu código y aun así deja pasar

If IsNull([COD_TALLA]) Then
MsgBox "¿No te das cuenta de que la talla está vacía, me vuelvo a Talla", vbOKOnly + vbCritical, "Otra vez será"
[COD_TALLA].SetFocus
End If
Gracias una vez más y disculpa sino me explique bien

Hice un video de 1 minuto mira lo por favor

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