Visual Basic - FIND

Life is soft - evento anual de software empresarial
 
Vista:

FIND

Publicado por horacio (42 intervenciones) el 10/03/2002 14:44:35
Cuando uso FIND para preguntar si el número y nombre existen en una tabla me dice siempre que sí, por más que no exista el numero o el nombre.
Donde está el error ???
With Ado.Recordset
.MoveFirst
.Find "cajero_numero = " & Val(txtnumero.Text) & " And (cajero_nombre = ' " & txtnombre.Text & "')" ' esto es lo que siempre dice que sí y salta al mensaje.
If .EOF Then
.AddNew
.Fields("cajero_numero") = Val(txtnumero.Text)
.Fields("cajero_nombre") = txtnombre.Text
.Fields("cajero_lote") = txtlote.Text
.Update
Else
MsgBox " El cajero Nº " & txtnumero.Text & vbCrLf & " o el nombre " & txtnombre.Text + " ya existen.", vbExclamation + vbOKOnly, " Leer mensaje"
End If
End With
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder