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

    [Resolvido]Texto para Coluna em Consulta

    evandrocavalheri1
    evandrocavalheri1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/12/2015

    [Resolvido]Texto para Coluna em Consulta Empty [Resolvido]Texto para Coluna em Consulta

    Mensagem  evandrocavalheri1 Ter 5 Jan - 14:52

    Olá,

    Tenho uma consulta que busca informação de uma tabela,
    Nesta existe o campo Requisito e este registro, pode ter até 7 requisitos,
    Sendo que eles são separados por Virgula,
    Então, o que preciso é na consulta criar 7 campos com expressões que retornem os requisitos, exemplo, registro que possua no campo Requisito: 05PR,49PR, os dados sejam populados na consulta: Requisito1: 05PR Requisito2: 49PR
    Seria o que a função Texto para coluna do Excel faz,
    Já pesquisei no fórum, e algumas soluções foram apresentadas, mas para formulários, e não consegui adaptar para consulta,


    Conto com vossa contribuição, presados colegas,
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  rubenscouto Ter 5 Jan - 20:18

    não consegui entender!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  Alvaro Teixeira Qua 6 Jan - 3:15

    Olá Evandro, bem-vindo ao fórum.
    Com a função SPLIT do Access talvez se consiga fazer o que pretende.
    Poste base de dados com dados significativos e a consulta em questão.
    Assim dica mais fácil para ajudar.
    Abraço
    evandrocavalheri1
    evandrocavalheri1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/12/2015

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  evandrocavalheri1 Qua 6 Jan - 11:10

    Olá,
    Mando anexo a base,

    A consulta em questão é a Con_Requisitos

    Desde já agradeço a disposição em ajudar,
    Anexos
    [Resolvido]Texto para Coluna em Consulta AttachmentMATRIZES_be.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (381 Kb) Baixado 7 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  Alvaro Teixeira Qui 7 Jan - 3:39

    Olá Evandro,
    Cole o código abaixo num módulo (mod_requisitos):

    Código:
    Function fncRequisito(strRequisitos As String, NrOrdem As Integer)
    'ahteixeira 2016 para MaximoAccess
       
        Dim xArray() As String
        xArray() = Split(strRequisitos, ",")
       
        If UBound(xArray) <> -1 And NrOrdem - 1 <= UBound(xArray) Then
              fncRequisito = xArray(NrOrdem - 1)
        End If
    End Function


    Na consulta coloque assim:

    Requisito1: fncRequisito([Requisito];1)
    Requisito2: fncRequisito([Requisito];2)
    ...
    Requisito7: fncRequisito([Requisito];7)


    Como podemos ver na chamada da função devemos indicar:
    - o campo que tem os requisitos juntos para separa
    - a posicão pretendida na separação

    Abraço
    evandrocavalheri1
    evandrocavalheri1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/12/2015

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  evandrocavalheri1 Sex 8 Jan - 7:21

    ahteixeira

    Funcionou perfeitamente, muito obrigado,
    Mando anexo banco com a consulta pronta, para visualizar, clique no botão: Visualizar Matriz com Requisitos e selecione qualquer matriz,

    Porem, fiquei com uma dúvida, acredito que ficou muito lento, será que existe alguma forma de melhorar, eu fiz algo errado?

    Desde já agradeço,
    Anexos
    [Resolvido]Texto para Coluna em Consulta AttachmentMATRIZES_be.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (424 Kb) Baixado 12 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  Alvaro Teixeira Sex 8 Jan - 9:07

    Olá Evandro,
    Isso já eu sabia, ou era esperado.
    Para fazer o que pretende da forma que tem a sua base de dados, só conheço mesmo assim.
    Tente colocar na logo na consulta principal Con_Uso

    Abraço
    evandrocavalheri1
    evandrocavalheri1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/12/2015

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  evandrocavalheri1 Sex 8 Jan - 15:14

    Não entendi oque você quer dizer com: Tente colocar na logo na consulta principal Con_Uso

    Eu uso esse BD em rede, e fiz um teste copiando para minha maquina local, percebi que não fica tão lento,
    Mesmo assim obrigado
    evandrocavalheri1
    evandrocavalheri1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/12/2015

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  evandrocavalheri1 Seg 11 Jan - 9:14

    Pessoal, muito obrigado pela contribuição, funcionou perfeitamente!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  Alvaro Teixeira Seg 11 Jan - 10:04

    Olá Olá Evandro, obrigado pelo retorno.

    O que queria dizer é o seguinte, na sua consulta Con_Requisitos a origem dos dados é da outra consulta Con_Uso, veja:
    [Resolvido]Texto para Coluna em Consulta 29bosr7

    A ideia era retirar os campos calculados da consulta Con_Requisitos e colocar na outra consulta Con_Uso, veja:
    [Resolvido]Texto para Coluna em Consulta Ehwwb5

    Assim, tem na consulta Con_Requisitos os campos já calculados disponíveis para adicionar à consulta, talvez fique mais rápido, só você testando é que nos poderá dizer.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Texto para Coluna em Consulta Empty Re: [Resolvido]Texto para Coluna em Consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 19:07