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