Código en access para impedir que un registro avance si el primero queda vacio

Para la primera pregunta, si en la tabla en la que se basa el formulario, le pones la opción Requerido a sí en los campos que quieres que sean obligatorios, ya lo tienes.

Si lo quieres controlar desde el formulario, programa el evento Antes de actualizar:

If IsNull(me.Nombre del campo) Then Cancel = True

Respecto a la segunda:

If Not IsNull(DLookup("ID_Producto", "Compras_Detalle",
"[ID_Producto]=" & ID_Producto.Column(0) & " and [ID_Compra]="
& Me.ID_Compra)) Then
MsgBox "El producto ya fue incluido en ésta factura de compra", vbInformation, "PRODUCTO DUPLICADO"

Me.ID_Producto=Null

Me.ID_Producto.SetFocus

Exit Sub
End If

Hola

Te comento cuando ingreso eso dos valores me arroja el siguiente error.

Se ha producido el error '-2147352567 (80020009)' en tiempo de ejecución:

Ha intentado asignar el valor null a una variable que no es el tipo de datos Variant

Te adjunto la base de datos, el procedimiento lo hice en el subformulario GuíaRemisión_Detalle del campo ID_Producto

http://www.filebig.net/files/7WdAxjYb5M

Saludos

Ponlo en el evento antes de actualizar de este modo:

If Not IsNull(DLookup("ID_Producto", "Compras_Detalle",
"[ID_Producto]=" & ID_Producto.Column(0) & " and [ID_Compra]="
& Me.ID_Compra)) Then
MsgBox "El producto ya fue incluido en ésta factura de compra", vbInformation, "PRODUCTO DUPLICADO"
Cancel=true
Exit Sub
End If

Me funciona bien, pero me arroja un mensaje adicional, como podría evitar eso, y simplemente me salga el mensaje creado.

Saludos

¿El mensaje adicional que te sale es de sistema (de Access)?

Si es así, pon, antes del if: DoCmd.SetWarnings False

y despues del end if: DoCmd.SetWarnings True

El mensaje que me arroja es de sistema, es el siguiente:

El valor infringe la regla de validación para el campo o registro.
Por ejemplo, es posible que haya cambiado una regla de validación sin comprobar si los datos existentes coinciden con la nueva regla de validación.

Haga clic en Deshacer para restaurar el valor anterior o escriba un valor que cumpla la regla de validación para el campo o registro.

Saludos

Ese mensaje es, seguramente, porque en la tabla le tienes puesta una regla de validación, o el cmapo es una clave principal.

Se te debería quitar con el código que te digo:

DoCmd.SetWarnings False

If Not IsNull(DLookup("ID_Producto", "Compras_Detalle",
"[ID_Producto]=" & ID_Producto.Column(0) & " and [ID_Compra]="
& Me.ID_Compra)) Then
MsgBox "El producto ya fue incluido en ésta factura de compra", vbInformation, "PRODUCTO DUPLICADO"
Cancel=true
Exit Sub
End If

DoCmd.SetWarnings True

me sigue saliendo el mismo mensaje

Pues tendrás que comprobar en la tabla, si el campo ID_Producto tiene alguna regla de validación y quitarla, pues no se me ocurre ninguna otra forma de evitar el mensaje.

Hola:

Te comento eh revisado el archivo y el formulario y el campo ID_Producto no tiene ninguna regla de validación, no se cual podría ser el problema, te adjunto la base

http://www.filebig.net/files/bLBreb5wp4

Me podrías ayudar con un código para que el usuario no ingrese valores que no correspondan a los ingresados en los cuadros combinados, a pesar que los datos provengan de una lista de valores

Saludos

Hola que tal:

Te hago 2 preguntas:

Primero:

Me sigue saliendo el mensaje adicional:

El valor infringe la regla de validación para el campo o registro. Por ejemplo, es posible que haya cambiado una regla de validación sin comprobar si los datos existentes coinciden con la nueva regla de validación.
Haga clic en Deshacer para restaurar el valor anterior o escriba un valor que cumpla la regla de validación para el campo o registro

Esto a pesar de haber ingresado:

Si es así, pon, antes del if: DoCmd.SetWarnings False
y después del end if: DoCmd.SetWarnings True

Segundo:

Que código puedo utilizar para evitar el ingreso de datos duplicados al momento de su ingreso, en un campo de un formulario, me arroje un mensaje y este no me permita continuar al siguiente campo si antes no efectúe el cambio.

Saludos