No actualizar un registro duplicado
Tengo una tabla (tblCheque)y un formulario (frmCheque) con 3 campos (1 cuadro combinado "NumeroCuenta", 1 texBox "NumeroCheque" y un, 1 texBox "ChequeUnico" que es donde se reúnen los registros que ingreso en los 2 anteriores, el código que anexo funciona bien en cuanto que avisa con MsgBox que el registro esta duplicado, PERO cuando cliqueo en "aceptar" en vez de RECHAZAR el ingreso por estar duplicado, lo acepta. A continuación pongo el código:
Private Sub NúmeroCheque_AfterUpdate()
Me.ChequeUnico = Nz(NúmeroCuenta) & " " & Nz(NúmeroCheque)
If DCount("ChequeUnico", "tblCheque", "[ChequeUnico]=[forms]![frmCheque]![ChequeUnico]") >= 1 Then
MsgBox "Ya existe éste Número de Cheque expedido en la misma Cuenta Bancaria", vbOKOnly + vbCritical, "Aviso"
Cancel = True
End If
End Sub
Por favor me puedes decir donde esta mi error para que el registro duplicado no sea aceptado
Gracias
Private Sub NúmeroCheque_AfterUpdate()
Me.ChequeUnico = Nz(NúmeroCuenta) & " " & Nz(NúmeroCheque)
If DCount("ChequeUnico", "tblCheque", "[ChequeUnico]=[forms]![frmCheque]![ChequeUnico]") >= 1 Then
MsgBox "Ya existe éste Número de Cheque expedido en la misma Cuenta Bancaria", vbOKOnly + vbCritical, "Aviso"
Cancel = True
End If
End Sub
Por favor me puedes decir donde esta mi error para que el registro duplicado no sea aceptado
Gracias
1 Respuesta
Respuesta de juanalvarez
-1
Quizás lo que ocurra, es que no produzca el salto de la orden de anexar, yo incluiría dentro de la rutina que si no es duplicado lo anexara.
