¿confusion al momento de buscar?

[Avellaneda]

Iniciado por principefreddy

hola. bueno les comento lo que necesito.: tengo una tabla donde guardo datos de una persona.. como por ejemplo cedula, monto de prestamo, deuda . etc..
entonces quiero que si busco ana persona, y si por ejemplo en el campo deuda no es cero me muestre un error.y que no puede hacer ningun calculo. de lo contrario , osea si es cero. quiere decir que no debe nada. entonces asi si me tiene que hacer los calculos.

el nombre de la tabla es pempresa, alli es donde teno guardados los datos,
cedula esta en la posicion (0)
y el campo que debe tomar en cuenta para ver si es cero o no esta en la pocision (9) llamado m_adeuda.

y en el formulario tengo el texto cedula y el texto m_adeuda. eso es lo que he hecho y no me funciona.


If cedula.Text = pempresa.Recordset(0) And pempresa.Recordset(9) = "0" Then
MsgBox "Usted No Tiene Prestamos Pendientes", vbInformation, "Disponible"
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

End If
If cedula.Text = pempresa.Recordset(0) And pempresa.Recordset(9) <> "0" Then
MsgBox "Usted Tiene Un Prestamo Pendiente", vbInformation, "Prestamo"
cedula.Text = ""
nombre.Text = ""
codigo.Text = ""
montoabonar.Text = ""
End If

Hola, si el campo deuda (Recordset(9)) es numérico, quítale las comillas.
Y no es necesario que repitas la condición, puedes utilizar la instrucción Else.

Código:

If cedula.Text = pempresa.Recordset(0) And pempresa.Recordset(9) = 0 Then
MsgBox "Usted No Tiene Prestamos Pendientes", vbInformation, "Disponible"
    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"
cedula.Text = ""
nombre.Text = ""
codigo.Text = ""
montoabonar.Text = ""
End If