Cita:
Iniciado por Baco_ 
el codigo que te coloque lo utilizo para verificar que el campo esta dentro de la tabla
rs1.Open "Select * From NOMBRE_TABLA WHERE NOMBRE_CAMPO = '" & CAJA_TEXTO & "'"
If rs1.BOF And rs1.EOF Then
Else
ass = MsgBox(" El TEXTO Ya Esta Resistrado Desea Ver sus Datos ")
rs1.Close
el codigo es muy similar al de Falconvela si te das cuenta
igual ojala te sirva ...
y no hay peor pregunta que la que no se hace :D
Gracias por sus respuestas amigos
hice lo que me dijeron pero me sale un error y no encuentro a que se debe, aqui les dejo mi codigo y el error que me sale, espero que me ayuden porfavor
gracias
ERROR : ERROR EN TIEMPO DE EJECUCION " no coinciden los tipos de datos en la expresion de criterios" me marca ese error en lo que esta en azul
Private Sub cmdbuscarcliente_Click()
Dim rs As New ADODB.Recordset
rs.Open "select * from DATOSCLIENTE where RutCliente = '" & RutCliente.Text & "'", cnn, adOpenKeyset, adLockOptimistic
If rs.BOF = False And rs.EOF = False Then
If txtRutCliente.Text <> "" Then
If rs("rutcliente") = txtRutCliente.Text Then
Call visualizar_datos_cliente
txtNombreCliente.SetFocus
Else
MsgBox ("Rut de Cliente ingresado no existe"), vbCritical
txtRutCliente = ""
txtRutCliente.SetFocus
End If
Else
MsgBox ("Debe Ingresar un Rut de Cliente"), vbCritical
txtRutCliente.SetFocus
End If
rs.Close
End If
End Sub
gracias saludos, que esten bien
aaahh y so me pueden decir si es que saben por que se me cae visual tan seguido despues de haber ejecutado