MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7780
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 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
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 18/12/2019, 12:11

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 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









    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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
    Anexos
    [Resolvido]Não estou conseguindo pesquisar  pelo Código automatico Attachmentandamento - ATUAL.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (854 Kb) Baixado 2 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 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
    [Resolvido]Não estou conseguindo pesquisar  pelo Código automatico AttachmentAtendimento_Atual_2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 5 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 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)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

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

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

    cheers cheers

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

    Abraços e boa sorte !!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 29/11/2020, 13:42