¿confusion al momento de buscar?

[Avellaneda]

Iniciado por principefreddy

ok.. como quedaria entonces. estoy trabajando por eso tardo en responder.

A ver, prueba así:

Código:

pempresa.Recordset.FindFirst "cedulaempleado='" & cedula.Text & "'"
' el campo "cedulaempleado" su ponemos que es tipo Text
If pempresa.Recordset.NoMatch Then
    ' la cedula digitada no existe, salimos del procedimiento
    MsgBox "La cedula del empleado no existe."
    Exit Sub
End If
' el campo cedula existe, sólo tienes que comprobar si el campo 9 es cero
If pempresa.Recordset(9) = 0 Then
    ' el campo 9 es cero, no tiene deuda pendiente
    montoabonar = Val(monto.Text) * Abs(Text1.Text) / 100
    montoabonar = Format(montoabonar, "##0")
    agregar.Enabled = True
    Command1.Enabled = False
    monto.Enabled = False
    Text1.Enabled = False
    m_adeuda.Text = monto.Text
    pempresa.Refresh
Else
    ' el campo 9 tiene un valor diferente de cero
    MsgBox "Usted Tiene Un Prestamo Pendiente", vbInformation, "Prestamo"
    Command2.Enabled = True
    cedula.Text = ""
    nombre.Text = ""
    codigo.Text = ""
    montoabonar.Text = ""
End If

Como verás he eliminado la variable "c" que no sirve para nada.