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

    Função na Consulta não funciona

    Carvalho
    Carvalho
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Carvalho em 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 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 em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Carvalho em 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 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 em 22/11/2017, 10:47

    Carvalho
    Carvalho
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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




      Data/hora atual: 24/10/2020, 06:53