
Evitar duplicados de Registro
Publicado por Alvaro (2 intervenciones) el 08/01/2018 00:54:04
Buenas noches, os detallo mi problema:
Estoy creando una Base de Datos en Access 2016 de Facturas recibidas, en ella la integra dos tablas principales Proveedores y Facturas Proveedores. En la tabla Factura Proveedores tengo varios campos (Fecha_Recepción, Num_Factura, Proveedor (busca los datos en la tabla del mismo nombre) e importe.
He creado un formulario donde voy metiendo los datos de las facturas y quiero crear un evento (con vuestra ayuda) en el campo Num_Factura que antes de actualizar busque si existe otra factura con el mismo número de factura y que sea del mismo Proveedor. (El orden de inserción de datos es Fecha_Recepción, Proveedor, Num_Factura, etc.) En caso de coincida me saltara un MsgBox advirtiendo que la factura ya esta registrada y devolviendo el SetFocus a Num_Factura.
Os dejo hasta donde he llegado:
Gracias de antemano
Estoy creando una Base de Datos en Access 2016 de Facturas recibidas, en ella la integra dos tablas principales Proveedores y Facturas Proveedores. En la tabla Factura Proveedores tengo varios campos (Fecha_Recepción, Num_Factura, Proveedor (busca los datos en la tabla del mismo nombre) e importe.
He creado un formulario donde voy metiendo los datos de las facturas y quiero crear un evento (con vuestra ayuda) en el campo Num_Factura que antes de actualizar busque si existe otra factura con el mismo número de factura y que sea del mismo Proveedor. (El orden de inserción de datos es Fecha_Recepción, Proveedor, Num_Factura, etc.) En caso de coincida me saltara un MsgBox advirtiendo que la factura ya esta registrada y devolviendo el SetFocus a Num_Factura.
Os dejo hasta donde he llegado:
1
2
3
4
5
6
7
Private Sub Num_Factura_BeforeUpdate (Cancel As Integer)
If DCount([Num_Factura], "Factura_Proveedores", "Num_Factura='"& Num_Factura &"'")>0 Then
MsgBox "La Factura "& [Num_Factura] &" ya existe", vbExclamtion
End If
End Sub
Gracias de antemano
Valora esta pregunta


0