Postada em 20/06/2007 11:23 hs
Bom usando sql, ficaria algo assimData1.RecordSource = "select * from seubanco where nome='" & txtnome.text & "'"data1.refreshif data1.recordcount=0 then msgbox "Não foi achado o cadastroelse txttelefone.text=data1.recordset!Telefone...endifCaso não queira usar sql, faça um loop perguntando se o nome é igual ao que você digitoudata1.recordset.movefir stdo while not data1.recordset.eof if data1.recordset!nome=txtnome.text then txttelefone.text=data1.recordset!Telefone . . exit do 'para sair do loop endif data1.recordset.movene xtloopSeriam essas formas de busca que você pode fazer, sql é mais preciso e rápido, a segunda forma ele pergunta registro por registro, se você der sorte de ser o primeiro legal, más se você tiver um cadastro de 10.000 por exemplo e nesse caso você der o azar de ser o último já viu né
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
