MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Adaptação Código

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    [Resolvido]Adaptação Código Empty [Resolvido]Adaptação Código

    Mensagem  Convidado 27/1/2017, 10:24

    Bom Dia !
    Estava a tentar adaptar um Código que o Fábio Pães passou numa das suas ajudas... mas esta a faltar algo na adaptação.
    Código :
    Dim strFiltro As String
    strFiltro = "Fornecedor(Nome) LIKE '*" & Me.txtPesquisa.Text & "*' "
    Me.frmtabCadAnaliseResultados.Form.Filter = strFiltro
    Me.frmtabCadAnaliseResultados.Form.FilterOn = True  
    Estou a trabalhar num form Continuo e esta seria a pesquisa, sei que funciona pois tenho o adaptado num form com subform e funciona mas em form continuo não estou a conseguir adaptar... Continuarei tentando.
    Obrigado
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº2

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 27/1/2017, 12:31

    Olá..

    Ao invés de:
    Me.frmtabCadAnaliseResultados.Form.Filter = strFiltro
    Me.frmtabCadAnaliseResultados.Form.FilterOn = True

    Seria:
    Me.Filter = strFiltro
    Me.FilterOn = True

    ou
    Me.Form.Filter = strFiltro
    Me.Form.FilterOn = True

    Aguardo

    Abraços


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 27/1/2017, 12:51

    Olá... Obrigado pela resposta. No entanto com qualquer das alterações da o seguinte erro(Imagem)
    [Resolvido]Adaptação Código 2uqp55y
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº4

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 27/1/2017, 15:07

    Olá...

    Você quer filtrar ao digitar?
    Em qual evento esta usando este código?
    Tem que ser no Evento ao alterar
    Fornecedor(Nome) este nome de campo esta correto?

    Aguardo


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº5

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 27/1/2017, 15:40

    Oi... tudo bem ?! Respondendo:

    Você quer filtrar ao digitar?
    Sim e Não(Poderia ser através de Combo)

    Em qual evento esta usando este código?
    Tem que ser no Evento ao alterar
    Sim esta no Evento ao alterar...

    Fornecedor(Nome) este nome de campo esta correto?
    Sim tenho este Nome de Campo(Fornecedor(Nome)

    Não abusando da sua boa vontade, deixo parte do bd . . . Ora veja o form - frmtabCadAnaliseResultados. Obrigado
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº6

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 27/1/2017, 15:59

    Ola´..

    Não veio o anexo

    Aguardo


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº7

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 27/1/2017, 16:23

    Ui... toda a razão Razz https://www.dropbox.com/s/uy95999lhjw6iiv/filtro.rar?dl=0
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº8

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 27/1/2017, 17:46

    Olá..

    O problema esta no seu campo Fornecedor(Nome), Renomeie sem caracteres (Recomendado) ou
    Cole este

    Código:
    Dim strFiltro As String
    strFiltro = "[Fornecedor(Nome)] LIKE '*" & Me.txtPesquisa.Text & "*'"
    Me.Filter = strFiltro
    Me.FilterOn = True

    Aguardo


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº9

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 27/1/2017, 18:00

    ok... estou no telemóvel(Celular) logo testo e deixo resposta... no entanto acredito que estará no ponto, como tal agradeço desde já a você pela ajuda. Obrigado
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº10

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 28/1/2017, 14:49

    Amigo Celso você é Do Best ! acertou... Só uma coisa amigo no campo pesquisa não deixa escrever, por exemplo a palavra Armando não da só a primeira letra... Não deixa escrever o nome todo...
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº11

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 28/1/2017, 15:21

    Olá..

    Não sei o que pode ser, o meu aqui tá normal.
    Existe alguma configuração em modulo para o teclado?, se existir verifique.

    Aguardo


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº12

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 28/1/2017, 15:33

    Oi..

    Por vias de dúvidas, baixei novamente o seu arquivo e fiz teste na digitação e também esta normal.
    Neste caso não sei como ajudar.

    Abraços


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº13

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 28/1/2017, 17:55

    Não... coloquei em outro Computador. E faz o mesmo ! Obrigado na mesma.
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº14

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 30/1/2017, 17:13

    Olá..
    Esquesito!!!
    No access 2007 o código rola e verifiquei o código em access 2010 e realmente não executava, então
    substitua poe este testado em 2007 e 2010
    Código:
    Me.Refresh
        If Not IsNull(Me.txtPesquisa) Then
            Me.Filter = "[Fornecedor(Nome)] Like '*" & Me.txtPesquisa.Text & "' & '*'"
            Me.FilterOn = True
            Me.txtPesquisa.SelStart = Nz(Len(Me.txtPesquisa), 0)
        Else
        End If

    Aguardo

    Abraços


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº15

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Convidado 31/1/2017, 12:48

    Pum ! Tum ! cheers
    esta a funcionar na perfeição... Obrigado
    • Ir para o topo
    Celso Roberto
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014
    • Mensagem nº16

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Celso Roberto 31/1/2017, 14:40

    Olá...

    O fórum agradece seu retorno

    Abraços


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

    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos


    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº17

    [Resolvido]Adaptação Código Empty Re: [Resolvido]Adaptação Código

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 02:56