CORREGIR CODIGO DE VALIDAR SI EXISTE UN CAMPO
Publicado por marty (2 intervenciones) el 13/09/2017 23:16:42
BUENAS TARDES:
ESTE EL CODIGO QUE TENGO, ME MANDA EL AVISO QUE EXISTE EL CAMPO REGISTRADO PERO AL HACER UN NUEVO REGISTRO EN EL CAMPO CURP ME MANDA UN ERROR.
Lo marque de negrita es el error que me indica haber si alguien me puede ayudar gracias
el error "94" en tiempo de ejecución, uso no valido de NULL
ESTE EL CODIGO QUE TENGO, ME MANDA EL AVISO QUE EXISTE EL CAMPO REGISTRADO PERO AL HACER UN NUEVO REGISTRO EN EL CAMPO CURP ME MANDA UN ERROR.
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txtcurp_AfterUpdate()
Dim vValor, vValorB As StringvValor = Me.txtcurp.Text
If IsNull(vValor) Then Exit Sub
vValorB = DLookup("[curp]", "Pacientes", "[curp]='" & vValor)
If vValorB = vValor ThenMsgBox "Ya existe un registro de este paciente", vbInformation, "AVISO"
Me.txtcurp.Value = Null
Me.ID.SetFocus
Me.txtcurp.SetFocus
End If
End Sub
Lo marque de negrita es el error que me indica haber si alguien me puede ayudar gracias
el error "94" en tiempo de ejecución, uso no valido de NULL
Valora esta pregunta
0
