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

    Como extrair o texto de uma caixa de combinação com Dlookup

    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Jonatan 11/2/2017, 02:34

    Olá, amigos.

    Por exemplo: se o campo 'Nome' fosse uma combobox com 2 colunas (código e funcionário) e a coluna acoplada fosse 'funcionário', o código DLookup("Nome","Funcionário"...) retornaria a primeira coluna. Como extrair o texto dessa combo numa caixa de texto de formulário?


    Grato
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Alvaro Teixeira 11/2/2017, 14:08

    Olá,
    Quer fazer um consulta (DLookup) à caixa de combinação?
    Não será fazer o mesmo que à origem dos dados dessa mesma caixa de combinação (combobox)!

    Ou pretende obter a linha selecionada?
    Caso seja esta última é NomeDaCombo.Column(0)
    Nota 0 é a primeira coluna, mesmo que oculta e assim sucessivamente 0,1,2,...,n

    Abraço
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Jonatan 11/2/2017, 18:13

    ahteixeira, obrigado pela ajuda.

    Não dá pra fazer dessa forma. Já tentei algo parecido, dessa forma:
    Me.Resumo = DLookup("[Nome].Column(1)","Funcionário"...)

    Dá erro na linha.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Alvaro Teixeira 11/2/2017, 18:22

    Olá, acho que não.
    Repare que a caixa de tem uma origem de dados.
    Se pretende o dlookup, efetue à mesma origem de dados.
    Se pretende uma pesquisa na caixa, será seek.
    Estou no celular, efetue uma busca.
    Abraço
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Jonatan 13/2/2017, 15:15

    Não funciona. Só busca a 1ª coluna, mas preciso que busque a 2ª, onde contem o texto da combo.

    No formato DLookup("Nome","Funcionário"...) só busca a primeira coluna (código). Se for dessa forma DLookup("[Nome].Column(1)","Funcionário"...) dá erro na linha.

    Quanto ao uso da função seek, não compreendi bem.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Alvaro Teixeira 13/2/2017, 16:16

    Olá,
    Se pretende pelo DLookup, será:

    xNome = DLookup("Nome","Funcionário"...)
    xMorada = DLookup("Morada","Funcionário"...)
    xTelefone = DLookup("Telefone","Funcionário"...)


    Se a combo já tem os dados (vamos imaginar Nome,Morada,Telefone), então será

    xNome = NomeDaCombo.Column(0)
    xMorada = NomeDaCombo.Column(1)
    xTelefone = NomeDaCombo.Column(2)


    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Alvaro Teixeira 13/2/2017, 16:58

    Olá, quanto ao Seek, não é o que queria dizer, mas veja exemplo que fiz em cima do joelho.
    https://www.maximoaccess.com/t29281-localzar-em-caixa-de-listagem
    Abraço
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Jonatan 14/2/2017, 00:30

    O que acontece é o seguinte: a tabela da qual busco as informações possui uma combo com origem noutra tabela.

    Meu código é esse exatamente: Me.Resumo = DLookup("[Entidade] & '" & vbCrLf & "' & [FormaDePagamento] & '" & vbCrLf & "' & Format([ValorTotal],'Currency') & '" & vbCrLf & "' & [Observações]", "Lançamentos", "Código=" & Me.CódigoDespesa)


    Minha combo é o campo Entidade. É aí que não consigo pegar uma parte específica da combo.

    O código acima funciona direitinho, só o texto da combo que preciso que apareça.
    Julio Lustosa
    Julio Lustosa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 23/02/2011

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Julio Lustosa 14/2/2017, 01:12

    Boa noite!

    Pelo que entendi, você quer pegar o valor da segunda coluna da combo para usar em condição WHERE para fazer uma busca em uma outra tabela usando o DLookup, certo?

    Então, deve ser assim: DLookup("cmpResultado","tblPesquisa","cmpPesquisa =" & Me.Resumo.Collumn(1))

    cmpResultado --> Nome do campo da tabela que retornará o valor.
    tblPesquisa -----> Tabela onde será feita a pesquisa.
    cmpPesquisa ---> Nome do campo onde será feita a pesquisa para retornar o valor.

    OBSERVAÇÃO: Eu montei a pesquisa considerando que o valor da coluna que escolheu seja um valor numérico. Se não for, então deverá colocar desta forma a condição WHERE: "cmpPesquisa ='" & Me.Resumo.Collumn(1) & "'"

    Abraços.
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Jonatan 14/2/2017, 10:56

    Bom dia, Julio

    Não é por aí. Resumo não é combobox, mas apenas uma caixa de texto que irá exibir um resumo quando clicar num determinado campo.
    Como expliquei antes, a combo é o campo Entidade:

    Me.Resumo = DLookup("[Entidade] & '" & vbCrLf & "' & [FormaDePagamento] & '" & vbCrLf & "' & Format([ValorTotal],'Currency') & '" & vbCrLf & "' & [Observações]", "Lançamentos", "Código=" & Me.CódigoDespesa)

    Você pode perceber que são vários campos concatenados; preciso que retorne a 2ª coluna, nesse caso, do campo Entidade nesse mesmo código.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Alvaro Teixeira 8/3/2017, 16:55

    Olá Jonatan,
    Antes de tudo acho melhor apertar a ajuda do Access com a palavra DLookup e verificar.
    Se já tem algo a funcionar e pretende alterar, poste a base de dados com os objectos envolvidos e explique melhor.
    Assim fica mais fácil para compreendermos e poder ajudar.
    Abraço

    Conteúdo patrocinado


    Como extrair o texto de uma caixa de combinação com Dlookup Empty Re: Como extrair o texto de uma caixa de combinação com Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:34