Cita:
Iniciado por principefreddy 
mira lo que le coloque... cuando la cedula es igual pero en la posicio (9) no es cero no me hace nada, (no me muestra el mensaje), de lo contrario si me hace los calculos- que me puede faltar?
c = "trim(cedulaempleado)='" & Trim(cedula.Text) & "'"
pempresa.Recordset.FindFirst c
If pempresa.Recordset.NoMatch Then
' aqui le digo que si las cedulas son iguales y en la posicion (9)= 0
' me haga los calculos...
If pempresa.Recordset(0) = cedula.Text And pempresa.Recordset(9) <> 0 Then
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
MsgBox "Usted Tiene Un Prestamo Pendiente", vbInformation, "Prestamo"
Command2.Enabled = True
cedula.Text = ""
nombre.Text = ""
codigo.Text = ""
montoabonar.Text = ""
End If
End If
End Sub
Fíjate lo que estás poniendo aquí:
If pempresa.Recordset.NoMatch Then
Esto quiere decir que no encontró ningún registro.
Y a continuación pones:
If pempresa.Recordset(0) = cedula.Text And ... Then
La condición marcada en rojo nunca se va a producir.
El valor que devuelve la función
NoMatch es
True si no se encontró el registro deseado
