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] Criar uma linha de dados buscados de consulta

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 10/12/2012, 12:48

    Bom dia. Tenho uma consulta que me gerou 4 números (códigos) e é o que preciso. Como faço para criar uma linha de dados para inserir em um texto concatenado?
    Ex: A consulta me retornou os códigos 10, 210, 345, 650 na forma de tabela. Quero criar um texto no formulário assim: "Os códigos 10, 210, 345, 650 estão vazios, sem nome e com horas lançadas."
    Tem jeito isso?

    Neutral


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Re: [Resolvido] Criar uma linha de dados buscados de consulta

    Mensagem  Assis 10/12/2012, 12:54

    Bom dia Juliano

    Pode postar ?


    .................................................................................
    *** Só sei que nada sei ***
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Res: Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 10/12/2012, 13:41

    Vou clarear mais:
    Tenho uma consulta:

    Setor-nCodigo
    4118
    4141
    4151
    4305
    4332

    Quero criar um texto que ajunte em uma linha os 5 códigos mostrados.
    Seria assim: "Os códigos 118, 141, 151, 305 e 332 possuem horas lançadas mas não existe projetista."

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Re: [Resolvido] Criar uma linha de dados buscados de consulta

    Mensagem  Alexandre Neves 10/12/2012, 19:40

    Boa tarde,
    Não sei onde quer utilizar o texto
    Adapte
    Sub julianow()
    'criada por Alexandre Neves www.esnips.com\web\alexandreneves
    'em 2012-12-10
    'para julianow
    'do fórum MaximoAccess
    Dim Rst As DAO.Recordset, Variavel As String

    Set Rst = CurrentDb.OpenRecordset("SELECT campo FROM tabela ORDER BY campo DESC;")
    Variavel = ""
    Do While Not Rst.EOF
    If Rst.AbsolutePosition = 10 Then Exit Do
    If Rst.AbsolutePosition = 0 Then
    Variavel = " e " & Rst(0)
    Else
    Variavel = Rst(0) & ", " & Variavel
    End If
    Rst.MoveNext
    Loop
    MsgBox "Os códigos " & Variavel & " possuem horas lançadas mas não existe projetista."
    Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Res: Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 11/12/2012, 12:23

    Bom dia. O texto estará em um formulário pop que exibe o controle de horas não lançadas no sistema. Os códigos sem projetistas é porque esses são excluídos mas os códigos continuam lá na tabela de horas.
    Vou analisar a sugestão e retorno.
    Obrigado!

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Res: Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 12/12/2012, 11:12

    Bom dia. Obrigado pelo retorno. O código enviado mostra uma caixa de mensagem que na verdade não é o que procuro. Quero criar um texto para ser exibido em um subform que estará em um formulário pop que exibe o controle de horas. Ex: A consulta retornou 5 códigos. A caixa de texto exibiria assim: "Os códigos 118, 141, 151, 305 e 332 possuem horas lançadas mas não existe projetista."
    Seria como se concatenasse o resultado da consulta.
    Obrigado!

    Rolling Eyes


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Res: Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 12/12/2012, 12:15

    Tentei usar o código enviado pelo Criquio nesta postagem:

    http://maximoaccess.forumeiros.com/t2779-resolvidoconcatenar-todos-os-registros-de-uma-consulta-em-uma-unica-variavel-vba

    Também não funcionou.

    Rolling Eyes


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido] Criar uma linha de dados buscados de consulta Empty Res: Criar uma linha de dados buscados de consulta

    Mensagem  julianovv 18/12/2012, 16:43

    Obrigado a todos pela resposta. To fechando o tópico sem resolver.

    Rolling Eyes


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile

    Conteúdo patrocinado


    [Resolvido] Criar uma linha de dados buscados de consulta Empty Re: [Resolvido] Criar uma linha de dados buscados de consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:52