Datos duplicados en carga de registro desde un formulario
Tengo un formulario(Factura) que guarda los datos ingresados en una tabla (Factura)... Necesito que al ingresar el numero de factura y el tipo de factura me diga si para el tipo de factura existe ese numero de factura de forma tal de no repetir información errónea... Lo se hacer solo para el numero de Factura..
Private Sub NumFactVent_AfterUpdate()
Dim vElem, vElemB As Variant
vElem = Me.NumFactVent.Value
If IsNull(vElem) Then Exit Sub
vElemB = DLookup("[NumFactVent]", "Factura Venta", "[NumFactVent]='" & vElem & "'")
If vElemB = vElem Then
MsgBox "La Factura ingresada ya existe", vbInformation, "AVISO"
Me.NumFactVent.Value = Null
Me.NumFactVent.SetFocus
Me.NumFactVent.SetFocus
End If
End Sub
2 Respuestas
Respuesta de Julián González Cabarcos
2
Respuesta de Sveinbjorn El Rojo
2