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 campo com uma só linha

    ricacarde
    ricacarde
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 14/07/2011

    [Resolvido]Criar campo com uma só linha Empty Criar campo com uma só linha

    Mensagem  ricacarde 23/11/2011, 20:36

    Antes de mais nada, quero parabenizar vocês pelo ótimo trabalho de ajudar os desenvolvedores de aplicativos Access. Já procurei no fórum, mas não achei nada que me ajudasse. Estou com a seguinte problema:


    Tenho um arquivo em ACCESS 2007 que possui um relatório originado de 2 tabelas relacionadas. No relatório, gostaria que os dados do campo “NomeHobbie”, que é gerado a partir de um combox, ficassem em apenas uma linha.



    Exemplo:

    No meu relatório está assim, com segue abaixo:

    Campo
    Hobbie
    Aeromodelagem
    Teatro
    Cinema
    Música



    Mas gostaria que ficasse assim: em apenas uma linha e separado por poto-e-vírgula


    Campo
    Hobbie
    Aeromodelagem; Teatro; Cinema; Música



    P.S: Os textos em azul são os dados do campo Hobbie



    Desede já agradeço pela ajuda



    Segue abaixo o link para o download do arquivo, caso precisem dar uma olhada.
    http://www.4shared.com/file/WcPr0tHU/ClubeExemplo.html


    Última edição por ricacarde em 24/11/2011, 02:34, editado 2 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Criar campo com uma só linha Empty Re: [Resolvido]Criar campo com uma só linha

    Mensagem  Convidado 24/11/2011, 00:52

    Se bem entendi, os dados estāo na tabela relacionada com varios hobbies por pessoa... bem eu penso qye a solucao trilha por uma caixa texto desacoplada no relatório e um recordset com um loop, e a cada loop preenchendo uma variável seguidamente precedido de ponto e vírgula...


    Voce criaria o recordeset, carregaria com a tabela, filtrando o recordset pelo id do registro ativo no relatório...

    Criaria uma variavel do tipo string e a cada loop iria adicionando o registro do campo dos recordeset segudamente e ao final do loop carrega a caixa texto com a variavel

    Dim rs as recordset
    Dim strhoby as string
    Dim strsql as string
    Dim db as Database

    Set db = CurrentDb

    StrSql = "SELECT * FROM Suatabela WHERE Campocódikgo= " & CaixaTextoCódigo& ""

    Set Rs = Db.OpenRecordset(StrSql)

    Do While Not Rs.EOF
    Strhoby = strhoby & rs!roby & ";"
    Rs.MoveNext
    Loop

    SuaCaixaTexto = strhoby



    Creio ser por ai..

    Cumprimentos

    ricacarde
    ricacarde
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 14/07/2011

    [Resolvido]Criar campo com uma só linha Empty Re: [Resolvido]Criar campo com uma só linha

    Mensagem  ricacarde 24/11/2011, 04:45

    Obrigado por respostar, Harysohn

    Editei os erros gramaticais e coloquei o código, adapitado, que você me passou no evento ao carregar do meu relatório. Porém, o código está dando erro de sintaxe ao copilar (Linha em vermelho abaixo))

    Private Sub Report_Load()
    Dim rs As Recordset
    Dim strhoby As String
    Dim strsql As String
    Dim db As Database

    Set db = CurrentDb

    StrSql = "SELECT * FROM tblHobbies WHERE CodHobbies= " & txtCodHobbies& ""

    Set rs = db.OpenRecordset(strsql)

    Do While Not rs.EOF
    strhoby = strhoby & rs!NomeHobbie & ";"
    rs.MoveNext
    Loop

    txtNomeHobbie = strhoby

    End Sub


    Para ficar mais claro, segue um resumo abaixo ao qual desejo que os dados do campo “NomeHobbie” da tabela “tblHobbies” carregue no relatório somente em uma linha.

    Nome da tabela: tblHobbies
    Chave primária da tblHobbies: CodHobbies
    Nome campo da tabela tblHobbies: NomeHobbie
    Texto não acoplado no relatório: txtCodHobbies
    Texto não acoplado no relatório: txtNomeHobbie (Como você me orientou)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Criar campo com uma só linha Empty Re: [Resolvido]Criar campo com uma só linha

    Mensagem  Avelino Sampaio 24/11/2011, 07:37

    Olá amigos!

    veja este exemplo:

    Exemplo

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Criar campo com uma só linha Empty Re: [Resolvido]Criar campo com uma só linha

    Mensagem  vieirasoft 30/11/2011, 21:32

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]Criar campo com uma só linha Empty Re: [Resolvido]Criar campo com uma só linha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:50