MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 1157
    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 : 7527
    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 : 1157
    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 : 1157
    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 : 938
    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1157
    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 : 938
    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1157
    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 : 938
    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









    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1157
    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 : 938
    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 4 vez(es)


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1157
    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 : 938
    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 !!


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 4/4/2020, 19:23