[Resolvido]Não estou conseguindo pesquisar pelo Código automatico

crysostomo 17/12/2019, 13:07

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº1

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 17/12/2019, 13:07

bom dias colegas , eu tenho um listBox , eu pesquiso pelo nome, mas não consigo pesquisar pelo código.
sempre fala que não pode fazer referencia pelo metodo de controle a menos que tenho foco, mas eu ja coloquei foco nele e nada acontece

Código:: me.CodigoDoProduto.SetFocus Me!listaProduto.RowSource = "select Cod,NomeDoProduto,Quantidade,preco " & _ "from tbEstoque " & _ "where strconv(Cod, 2, 1049) like '*" & StrConv(Me!PesquisarListaDaVenda.Text, 2, 1049) & "*' " & _ "order by Cod;" listaProduto.Requery End Sub

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Neves** 17/12/2019, 21:07

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Neves 17/12/2019, 21:07

Boa noite
Tente PesquisarListaDaVenda.Value ou apenas PesquisarListaDaVenda

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

crysostomo 18/12/2019, 12:11

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº3

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 18/12/2019, 12:11

Já tinha feito isso, os conteúdo da lista somem mesmo pesquisando com o numero que está na lista

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

crysostomo 19/12/2019, 13:29

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº4

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 19/12/2019, 13:29

eu não quero mexer com outro código, eu quero continua com esse, pois se eu mexer com outro vou ter que colocar critério no dados e colocar outros tipo de código que seria mais complicado

Código:: Me!listaProduto.RowSource = "select Cod,CodigoBarras,NomeDoProduto,Quantidade,preco " & _ "from tbEstoque " & _ "where Cod like '*"Me!PesquisarListaDaVenda & "*' " & _ "order by Cod;" listaProduto.Requery

qual é o problema que impede a filtragem?

Última edição por crysostomo em 19/12/2019, 13:54, editado 1 vez(es)

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Fim** 19/12/2019, 13:52

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3226
Registrado : 13/12/2016

Mensagem nº5

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Fim 19/12/2019, 13:52

Crysostomo,

Pode ser que tenha algum espaço em branco. Mude a propriedade ".Text" para ".Value"
Tente isto:

Trim(StrConv(Me!PesquisarListaDaVenda.Value, 2, 1049))

Boa sorte

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico Setinf11

Sistemas e Tecnologia Ltda

crysostomo 19/12/2019, 13:54

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº6

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 19/12/2019, 13:54

Ja refiz tudo. tanto como "Me!PesquisarListaDaVenda e PesquisarListaDaVenda.Value

Código:: Me!listaProduto.RowSource = "select Cod,CodigoBarras,NomeDoProduto,Quantidade,preco " & _ "from tbEstoque " & _ "where (Cod like '*" & Trim(Me!PesquisarListaDaVenda.Value) & "*' " & _ "order by Cod;"

mesmo estando com o numero certo , tudo que esta na ista some, e se apaga nada da lista volta.
qual é o problema que impede a filtragem?

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Fim** 19/12/2019, 15:01

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3226
Registrado : 13/12/2016

Mensagem nº7

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Fim 19/12/2019, 15:01

Tente isto:

Código:: Dim strCodPesq As String Dim sSQL As String strCodPesq = Trim(Me!PesquisarListaDaVenda.Value) Me.CodigoDoProduto.SetFocus sSQL = "SELECT Cod, NomeDoProduto, Quantidade, preco" sSQL = sSQL & " FROM tbEstoque" sSQL = sSQL & " WHERE Cod LIKE '*" & strCodPesq & "*'" sSQL = sSQL & " ORDER BY" Me!listaProduto.RowSource = sSQL listaProduto.Requery

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico Setinf11

Sistemas e Tecnologia Ltda

crysostomo 19/12/2019, 17:02

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº8

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 19/12/2019, 17:02

Não, vou ver esse problema de "uso null invalido"
strCodPesq = Trim(Me!PesquisarListaDaVenda.Value) da erra invalido nessa linha

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Fim** 19/12/2019, 17:36

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3226
Registrado : 13/12/2016

Mensagem nº9

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Fim 19/12/2019, 17:36

Crysostomo,

Mas o "Me!PesquisarListaDaVenda.Value)" é um campo da tela? Ele é nulo?

Se possível, poste aqui as partes envolvidas do seu projeto.

Abraço

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico Setinf11

Sistemas e Tecnologia Ltda

crysostomo 19/12/2019, 18:02

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº10

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 19/12/2019, 18:02

no frmBaixa tem 2 campos de busca , Nome e Código.
O campo código não puxa na lista

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Fim** 19/12/2019, 18:21

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3226
Registrado : 13/12/2016

Mensagem nº11

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Fim 19/12/2019, 18:21

Crysostomo,

Simplemente, copiei o mesmo evento que vc usa para pesquisar pelo Nome e mudei os campos.
Veja os comentários no código.

Segue sistema anexo.

Boa sorte

Anexos

Atendimento_Atual_2.zip: Você não tem permissão para fazer download dos arquivos anexados.; (104 Kb) Baixado 13 vez(es)

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico Setinf11

Sistemas e Tecnologia Ltda

crysostomo 19/12/2019, 18:53

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018

Mensagem nº12

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem crysostomo 19/12/2019, 18:53

Caramba, tentei mexer nisso e não consegui e agora deu. qual é qu e estava dando erro?

Última edição por crysostomo em 19/12/2019, 18:58, editado 1 vez(es)

.................................................................................

Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Alexandre Fim** 19/12/2019, 18:57

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3226
Registrado : 13/12/2016

Mensagem nº13

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Alexandre Fim 19/12/2019, 18:57

Valeu cara !!! O fórum agradece !!!
Quando surgir esta dúvida novamente, vc já sabe como resolver... Very Happy

Abraços e boa sorte !!

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico Setinf11

Sistemas e Tecnologia Ltda

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº14

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico

[Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Re: [Resolvido]Não estou conseguindo pesquisar pelo Código automatico

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada