Nome do banco de dados: bdSYS.mdb

Nome da Tabela: Clientes

Campos: Codigo (Número); NomeCompleto (Texto)

 

No Form tenho o seguinte:

DBGrid (DBGrid1); DataControl (Data1); Textbox (Text1)

 

Porque o Dbgrid?, e em vez de textbox porque não DBcombobox?

Daniel o textbox foi por acaso, mas o dbgrid tem um propósito, exemplo, quando existem dois 1º nomes iguais fica de fácil visualização no dbgrid...

Não sei se resolve o seu problema, mas, eu costumo criar um form apenas pra fazer a pesquisa, exemplo no cadastro de clientes tenho um form de pesquisa aonde o operador pode pesquisar por, nome, cidade, tipo de cliente, representante etc..., após ele digitar o motivo da pesquisa gero um dbgrid com todos os rgistros que tem a combinação solicitada, ao duploclick no dbgrid mando o codigo pro formulário de clientes e carrego os dados, é isso o que vc precisa?

 

Rodrigo ;

 

Use um listbox carregando com sql ou datacontrol  mesmo ; tambem pode ser feito com flexgrid tambem .

Crie um textbox e no evento change do textbox coloque um laco For Next para percorrer o listbox procurando a letra ou a sequencia de letras desejadas.

 

'carregando a lista

 Do Until TblAux.EOF
    NameList.AddItem Format(Mid(TblAux!Codigo,1,5),"00000")  & "  "& trim(tblAux!Nome)
    NameList.ItemData(NameList.NewIndex) = TblAux!Codigo

    TblAux.MoveNext
 Loop
   

 

'pesquisando

evento change_ ...

texto = trim(txtnome.text)

tamanho = len(txtnome.text)

inicio = numero a partir de qual caracter deve verificar , neste caso 7 ou 8

For linha = 1 to NameList.count

  if namelist.text = mid(texto,inicio,tamanho) then

      namelist.select

      exit for

  endif

Next linha

 

evento keypress...

if keyAscii = 13 then

    ' quando teclar enter descarega o form de pesquisa e joga o codigo para a

    ' caixa de texto do form anterior

    form1.txtcodigo.text = NameList.index ...

    Me.hide ' esconde o form

    ' a partir daqui vai depender como vc faz a selecao do registro

    '  quando digita o codigo , se for no evento lostfocus e so passar para o proximo  

    ' controle o foco

    ' se for atravez da tecla enter e so acrescentar

    SendKey"{ENTER}

    form1.chamarfuncaodebusca

endif

 

O codigo é mais ou menos assim , agora nao tenho como te passar o exemplo

correto , mas se precisar depois depois te passo ....

Fica bem rápido e vc consegue ver mais nomes a medida que vai digitando cada letra

 

Ederval

 

 

 

 

 

Sim Daniel é mais ou menos o que estou tentando fazer !