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


2 participantes

    [Resolvido]Função Dlookup

    avatar
    Augusto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 26/01/2010

    [Resolvido]Função Dlookup Empty Função Dlookup

    Mensagem  Augusto 6/2/2010, 18:53

    Olá a todos,
    As minhas pesquisas usando esta função nunca retornam os valores desejados.
    Tenho um formulário com campos não-acoplados que são concatenados no campo [Texto], e que servem para pesquisa em uma consulta que também tem um campo concatenado.
    O código utiliza o campo Texto do Form para pesquisar na consulta Combinação e retornar caso existe o valor da linha. Mas independente de existir o valor, o resultado é sempre o mesmo, no meu caso a linha 91, que não contem os valores da pesquisa. Alguem poderia me explicar onde estou errando. Desde já agradeço a atenção de todos.

    Private Sub Pesquisa_Click()
    Resultado = DLookup("[Linha]", "Combinação", "[Texto]=" & Forms!Formulário!Texto)
    If Resultado > 0 Then
    Me.Status = Resultado
    Else
    Me.Status = "Não existe"
    End If
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Alexandre Neves 6/2/2010, 21:13

    Boa noite, Augusto

    So o campo é texto, utilize:
    Resultado = DLookup("[Linha]", "Combinação", "[Texto]='" & Forms!Formulário!Texto & "'")
    avatar
    Augusto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 26/01/2010

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Augusto 7/2/2010, 13:19

    Bom Dia! Alexandre,
    Obrigado pelo interesse ...
    Fiz a modificação mas o resultado foi o mesmo.
    Consulta Combinação
    Linha c1 c2 c3 Concatena
    1 1 2 3 123
    2 0 2 3 023
    3 1 0 3 103
    Campos c1,c2,c3 são números e usei uma expressão Concatena: ([c1]&[c2]&[c3])
    Formulário
    Campo não-acoplado - digito 023 - Resultado = 1
    digito 103 - Resultado = 1
    Independente do valor digitado no campo do form, existindo ou não na consulta, retorna o valor 1.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Alexandre Neves 7/2/2010, 13:59

    Boa tarde, Augusto

    Resultado = DLookup("Campo", "Tabela", "Condição")
    portanto será
    Resultado = DLookup("[Linha]", "Combinação", "Concatena='" & Forms!Formulário!Texto & "'")
    avatar
    Augusto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 26/01/2010

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Augusto 7/2/2010, 14:08

    Oi Alexandre,
    Eu faço a pesquisa em uma consulta no campo Concatena, os campos c1, c2 e c3 da consulta geram atraves de uma expressão o valor de concatena.
    avatar
    Augusto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 26/01/2010

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Augusto 7/2/2010, 14:27

    Oi Alexandre,
    Funcionou perfeitamente.
    Utilização da função DLookup em uma consulta utilizando um campo não-acoplado de formulário.
    Nome da Consulta - Combinação
    Campo a ser pesquisado - Concatena
    Campo a ser retornado - Linha
    Nome do Formulário - Formulário
    Campo não-acoplado - Texto

    Private Sub Pesquisa_Click()
    Resultado = DLookup("[Linha]", "Combinação", "Concatena='" & Forms!Formulário!Texto & "'")
    If Resultado > 0 Then
    Me.Status = Resultado
    Else
    Me.Status = "Não existe"
    End If
    End Sub

    Abs,

    Conteúdo patrocinado


    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:00