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


3 participantes

    Função na Consulta não funciona

    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 19/01/2013

    Função na Consulta não funciona Empty Função na Consulta não funciona

    Mensagem  Carvalho 21/11/2017, 19:22

    Pessoal mais uma vez estou aqui para aperriar vocês, é o seguinte eu tenho que fazer uma consulta e tenho que retornar com procv sei que não se faz com procv mais também não sei como se faz. a função é mais ou menos assim.

    sei que a função está errada mais é dessa maneira que preciso fazer para me retornar o valor desejado!

    conto com a ajuda de vocês.

    =SeImed(escopo="Suprimentos";"POS";SeImed(SEERRO(LOCALIZAR("CANC";[statusGeral];1);"ERR")="ERR";SeImed(SEERRO(PROCV([tblogistica].[taag] = [KANBAN].[taag];2;0);"ERR")="ERR";"";"Kanban");"CANCELADO"))


    no aguardo.
    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Função na Consulta não funciona Empty Função na Consulta não funciona

    Mensagem  kleber.arruda 21/11/2017, 20:12


    Boa tarde Carvalho !

    Consulta Nativa do Access:

    DPesquisa("[CampoDesejado]";"NomeTabela";"Condição")

    Na Condição, pode utilizar: "Campo1 = " & ValorFormulário

    Pelo VBA:

    Dlookup("[CampoDesejado]","NomeTabela","Condição")



    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 19/01/2013

    Função na Consulta não funciona Empty Re: Função na Consulta não funciona

    Mensagem  Carvalho 22/11/2017, 10:42

    Obrigado amigo pela ótima dica sobre o dpesquisa, você sabe quais funções no Access posso usar para substituir essas "SEERRO" e "LOCALIZAR" ?

    de ante mão muito obrigado.
    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Função na Consulta não funciona Empty Função na Consulta não funciona

    Mensagem  kleber.arruda 22/11/2017, 10:47


    Bom dia !!!

    Particularmente, utilizo:


    Função SeImed

    http://www.ativoaccess.com.br/forum/index.php?showtopic=159

    Função InStr

    https://support.office.com/pt-br/article/Fun%C3%A7%C3%A3o-InStr-85d3392c-3b1c-4232-bb18-77cd0cb8a55b


    No aguardo.
    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 19/01/2013

    Função na Consulta não funciona Empty Re: Função na Consulta não funciona

    Mensagem  Carvalho 22/11/2017, 11:01

    Essa função "InStr" só pega no VBA ? pois estou tentando fazer em uma consulta é como se ela não existisse.
    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Função na Consulta não funciona Empty Função na Consulta não funciona

    Mensagem  kleber.arruda 22/11/2017, 11:19


    Tente esta função (que dever ser colada em algum módulo do seu Projeto VBA):

    '---------------------------------------------------------------------------------------------------------
    ' Autor: Kleberson França
    '
    ' Data: 22/11/2017
    '
    ' Função: Retornar a posição do texto informado
    '---------------------------------------------------------------------------------------------------------

    Public Function ProcurarTexto(Posicao As Double, Texto As String, TextoProcurado As String) As String

    Dim X As Double
    Dim Y


    X = InStr(Nz(Posicao, 0), Nz(Texto, ""), Nz(TextoProcurado, ""), vbTextCompare)

    If X = 0 Then

    ProcurarTexto = ""

    Else: ProcurarTexto = X

    End If

    End Function


    No aguardo



    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Função na Consulta não funciona Empty Re: Função na Consulta não funciona

    Mensagem  DamascenoJr. 15/5/2022, 03:39

    Carvalho, como ficou a situação?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    Função na Consulta não funciona Empty Re: Função na Consulta não funciona

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:51