Pesquisa (Resolvido)

[Vivendo&Aprendendo]

Galera

Estou utilizando o leitor de código de barras e quero que o edit que está recebendo o código faça uma busca na tabela, se encontrar o código igual ele complete os campos abaixo com as informações referentes ao código e se não existir o código ele de uma mensagem.

Estou usando o seguinte código mas não esta dando certo, ele da erro e só digita um caractere no edit (só o primeiro digito do código).

     If (ADOMembros.Locate('CodBarras',EdtCodigo.Text,[LoPartialKey])) Then
      Edtmembro.Text := ADOMembrosNome.Value
    else
      Application.MessageBox('Membro não Cadastrado!','Atenção',mb_IconExclamation +mb_ok);

Como faço isso?

Alexandre

[Progr'amador]

É que você deve está usando no OnChage.

Nesse caso como sempre serão 11 digitos você pode fazer o seguinte:

if Length(EdtCodigo.Text) = 11 then begin

   If (ADOMembros.Locate('CodBarras',EdtCodigo.Text,[LoCaseInsensitive])) Then

      Edtmembro.Text := ADOMembrosNome.Value

   else

      Application.MessageBox('Membro não Cadastrado!','Atenção',mb_IconExclamation +mb_ok);

end;

OBS: Use LoCaseInsensitive em vez de LoPartilKey.

Abs. Progr'amador.

[Vivendo&Aprendendo]

Deu o seguinte erro quando mandei ler o código de barras:

As alterações para a tabela não foram satisfatórias já que criaram valores duplicados no indice, chave primária ou relação.

O q é isso?

Alexandre

[Progr'amador]

Ta dizendo que você ta tentando inserir ou alterar um registro cujo valor do campo chave primaria já existe.

você ta executando algum outro codigo alem desse postado ae???

[Vivendo&Aprendendo]

cara o unico código por enquanto é esse...

O caso é o seguinte:

É uma tabela de frequencia, onde tenho que buscar os cados na tabela de membros e registrar na tabela de frequencia os dados: data, codigo de barras do membro, nome do membro.

É isso.

Será q pode me ajudar?

Qualquer coisa conecta no MSN ai q passo os arquivos.

Alexandre

[Vivendo&Aprendendo]

Resolvido valeu PROGR'AMADOR