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


    [Resolvido]Linha de registros a partir de caixa de opção

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Linha de registros a partir de caixa de opção Empty [Resolvido]Linha de registros a partir de caixa de opção

    Mensagem  julianovv 26/4/2022, 19:19

    Boa tarde. Tenho uma consulta de profissionais e suas qualificações são marcadas em caixas de opção e preciso agora que a consulta exiba uma linha com as qualificações de cada um que sempre tem mais de uma.

    Exemplo:

    Luiz Silva - Bombeiro, Eletricista, Pintor, Gesseiro
    Felipe Quirino - Bombeiro, Eletricista
    Natanel Santos - Bombeiro, Eletricista,

    Segue a imagem como está no formulário:

    Caixas de Opção

    Na consulta, criei um campo alias (ConcaCats) que une todas as caixas de opção indicando que se uma categoria está marcada, então exibe o nome, se não, fica em branco e oculta o campo (mas não está ocultando).

    A expressão usada foi:

    ConcaCats: SeImed([cat_bombeiro]=Sim;"Bombeiro,";SeImed([cat_eletricista]=Sim;"Eletricista,";SeImed([cat_pedreiro]=Sim;"Pedreiro,";SeImed([cat_eletronica]=Sim;"Eletrônica,";SeImed([cat_engenheiro]=Sim;"Engenheiro,";SeImed([cat_fretista]=Sim;"Fretista,";SeImed([cat_funcionario]=Sim;"Funcionário,";SeImed([cat_func_mensal]=Sim;"Funcionário Mensalista,";""))))))))


    O resultado foi o nome aparecendo à esquerda, iniciando a linha, mas os outros não apareceram.

    Resultado1


    Numa outra tentativa alterei a expressão para:

    ConcaCats:
    SeImed([cat_bombeiro]=Sim;"Bombeiro";"") & " " & SeImed([cat_eletricista]=Sim;"Eletricista";"") & " " &
    SeImed([cat_pedreiro]=Sim;"Pedreiro";"") & " " & SeImed([cat_eletronica]=Sim;"Eletrônica";"") & " " &
    SeImed([cat_engenheiro]=Sim;"Engenheiro";"") & " " & SeImed([cat_fretista]=Sim;"Fretista";"") & " " &
    SeImed([cat_funcionario]=Sim;"Funcionario1];"") & " " & SeImed([cat_func_mensal]=Sim;[cat_func_mensal1];"")


    E o resultado foi que os campos que deveriam estar ocultos, apareceram apenas vazios, ou seja, ficou um espaço entre eles.:

    Resultado2


    Nas duas tentativas coloquei no envento No Atual o código:

    Private Sub Report_Current()

    If Me.ConcaCats.cat_bombeiro = -1 Then
    Me.ConcaCats.cat_bombeiro.Visible.false
    Else
    Me.ConcaCats.cat_bombeiro.Visible.true

    Coloquei somente o primeiro como exemplo. Ainda tem vários.

    Pra complicar mais ainda, deveria a cada última categoria na linha, ter um "e" e finalizar com um ponto.
    No final não deu certo em nenhuma delas.

    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 - GForce GT220 - 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 : 680
    Registrado : 14/12/2010

    [Resolvido]Linha de registros a partir de caixa de opção Empty Res.: Linha de registros a partir de caixa de opção

    Mensagem  julianovv 28/4/2022, 18:34

    Consegui resolver eliminando de vez as caixas de seleção e optei por um modo mais simples e limpo pois não sobrecarrega o sistema. Criei uma tabela de categorias e uma caixa de listagem de multipla escolha. Agora os itens são exibidos no campo do relatório em sequência mas ficaram entre ponto e vírgula, o que não é o correto.

    Luiz Silva - Bombeiro; Eletricista; Pintor; Gesseiro
    Felipe Quirino - Bombeiro; Eletricista
    Natanel Santos - Bombeiro; Eletricista,

    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 - GForce GT220 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile

      Data/hora atual: 22/6/2024, 11:38