Consulta en la validacion de un textbox

[edel_junior]

buenas

trato de realizar una consulta en la validacion de un textbox y tengo el siguiente codigo para ello

Dim criterio As String
Dim Buscado As String
Data1.Recordset.MoveFirst
buscado=tex1.Text
criterio = "CUIT = " + buscado
Data1.Recordset.Find criterio
If Data1.Recordset.NoMatch Then
MsgBox "El CUIT no existe "
Exit Sub
End If
y digito los datos al validar el text box da
error '3426' en tiempo de ejecucion
Esta accion fua cancelada por el objeto asociado

y al depurar me manda a la linea:
data1.recordset.movefirst
luego sin hacer nada en el codigo lo vuelvo ejecutar y entonces realiza la consulta y mustra los datos
que pasa
ahi otra manera de hacer esto
ayudenme

[GeoAvila]

criterio = "CUIT = " & buscado

trata de esta manera..

nos vemos..

[edel_junior]

hola que tal
sucede lo mismo no se esto esta dificil sera que no se puede hacer en una validacion porque en un evento on_click lo tengo igual y si funciona claro pero utilizo un inputBox
oye lo que quiero es que cuando yo digite la clave en el textbox aparescan los demas datos si ya existe en la bd ok
gracias

[GeoAvila]

Data1.Recordset.Find "CUIT = " & val(tex1.Text) ' si el valor es numero
Data1.Recordset.Find "CUIT = '" & val(tex1.Text) & "'" ' si el valor es texto


mi imagino que ya lo hiciste de esta manera..

nos vemos..

[edel_junior]

oye el Find va asi solo porque me sale el error que el objeto no admite estabpropiedad o metodo

[edel_junior]

nada hermano esto no funcionas que pasara no hay otra forma de rellenar automaticamente los demas datos con solo digitar la llave al validarla

[edel_junior]

hola de nuevo
no he podido conseguir que al digitar el campo nit en el formulario que es la llave de la tabla osea en la validacion si el dato existe pues que automaticamente se llenen los demas campos y si no existe simple mente pase el foco al campo nombre es esto muy dificil de conseguir en visual lo que pasas es que estoy empesando a a trabayjar en este lenguaje es mi primera aplicacion y es exigente asi que graciass el que lo pueda conseguir que me ayude recuerda todos las posibilidades anteriores
chao

[jballnet]

si quieres que cundo salgas del textbox muestre los datos que estan en la bd C:\db.mdb con una tabla cliente con los campos idCliente,Nombre ,Direccion
debes hacer lo sig:

ojo la base de datos la debes declarar (puede ser en un modulo o en el formulario)
si lo haces en el formulario es asi:
dim Ws as workspace
Dim DB as database

en el evento
Private Form_load()
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase("C:\db.mdb")
End Sub


' para que cuando presiones enter se pase al nombre
Private sub TxtidCliente_Keypress(KeyAscii as integer)
if keyascii=13 then
TxtNombre.setfocus
end if
end Sub

'para que cuando salga del idcliente se validen los datos

Private sub TxtidCliente_LostFocus()
Dim Rcscliente as Recordset
if TxtidCliente.text <>"" then 'para ver si el campo no esta vacio
set Rcscliente =db.openrecordset("select * from cliente " & _
" where idCliente ='" & TxtidCliente.text &"'")
if Rcscliente.eof =false then
TxtNombre.text =Rcscliente!Nombre
TxtDireccion.Text=Rcscliente!Direccion
else
TxtNombre.text =""
TxtDireccion.Text=""
end if
end if
end sub

mi correo es [email protected] por si tines alguna duda

[edel_junior]

hola escribi el codigo y da un error,

dice que no coinciden los tipos de datos en la exprecion de criterios, y al depurar me ubica en la consulta. Ojo el idcliente es numerico en la base de datos.

[edel_junior]

ya solucione el problema de los tipos de datos asi:
" where idCliente =" & TxtidCliente.text &"")
o usando + en vez de &.
pero ahora... el campo direccion es null, puede contener valor vacio, y yo tengo un valor almacenado con este campo vacio, pero al digitar el idCliente, se llenan los demas campos, osea el de n0ombre , pero se produce el error `94` en tempo de ejecuccion, uso no valido de campo null, y me ubica en la linea...
TxtDireccion.Text=Rcscliente!Direccion
que pasara ahi.
como se soluciona esto?
chao

[lop7]

prueba asi:

TxtDireccion.Text=iif(isnull(Rcscliente!Direccion, " ",Rcscliente!Direccion)

saludos