Buscar y validar dato desde un formulario

Hola: Quisiera saber si me pueden ayudar. Tengo una base de dato en access 2007 que contiene una tabla llamada tblTitulares, un formulario que llamado frmtitulares y un variable llamada Rut. Quisiera que al ingresar el rut (dato tipo texto. Ejemplo: 8519106-2) busque en la variable rut si existe, si se repite que me muestre el registro para poder editarlo, y si no existe, que me muestre en el formulario un registro en blanco para ingresar un nuevo registro. Puse en el evento después de actualizar el siguiente código que encontré en internet, pero al ingresar el dato a la variable rut no ocurre absolutamente nada. Muchos saludos a la comunidad....
Este es el código:
Private Sub Rut_AfterUpdate()
Dim vPlan As Variant
Dim vTPlan As Variant
vPlan = Me.Rut.Value
If IsNull(vPlan) Then Exit Sub
'Creamos el recordset
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("tbltitulares", dbOpenSnapshot)
If rst.RecordCount = 0 Then Exit Sub
rst.MoveFirst
'Recorremos los registros de la tabla para ver si ya
'existe el valor introducido
Do Until rst.EOF
vTPlan = rst.Fields("Rut").Value
'Si existe lanza un aviso y abre el registro en cuestión
'en el formulario anticipos
If vTPlan = vPlan Then
MsgBox "El código introducido ya existe", vbInformation, "YA EXISTE"
DoCmd.OpenForm "frmtitulares", , , "[rut] = '" & vPlan & "'"
Exit Do
End If
'Si no existe te deja añadirlo como uno nuevo, sin comentarte nada
rst.MoveNext
Loop
'Cerramos conexiones y liberamos memoria
rst.Close
Set rst = Nothing
End Sub
End Sub

Añade tu respuesta

Haz clic para o