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


2 participantes

    [Resolvido]caixa de seleção - concatenar valores selecionados

    avatar
    gfranguelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/08/2012

    [Resolvido]caixa de seleção - concatenar valores selecionados Empty [Resolvido]caixa de seleção - concatenar valores selecionados

    Mensagem  gfranguelli 14/5/2016, 03:02

    Prezados amigos do fórum:
    Não sei bem ao certo se seria nesta seção que eu deveria postar a dúvida, mas enfim...
    Em uma tabela tenho 3 campos que são salvos como caixa de seleção.
    Exemplo:
    Desmontar, limpar e montar.
    Os campos carregam esses nomes, então se no registro os três estivem selecionados significa que precisei dos três campos.
    Até ai sem segredo; uma simples caixa de seleção.
    Agora vem a dúvida cruel que preciso resolver:
    Preciso criar um código que verifique em cada registro e escreva concatenando os três campos separados por virgula em um novo campo.
    Vou explicar melhor:
    Vá em todos os registros e verifique a caixa de seleção do campo desmontar e se estiver selecionado escreva "Desmontar" no novocampo, depois vá em todos os registros e verifique a caixa de seleção do campo limpar e se estiver selecionado escreva "limpar" concatenando junto do desmontar ficando assim:
    Desmontar, limpar. E por último faça a mesma coisa para o terceiro campo. Então, as palavras irão ficar concatenandas separadas por vírgula conforme as caixas de seleção estiverem selecionadas. Podem estar pensando, nossa que código louco, poderia escrever manualmente registro por registro, mas não tem como fazer em quase 15 mil registros.
    Se alguém souber e puder compartilhar comigo agradeço antecipadamente.
    Muito obrigado.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]caixa de seleção - concatenar valores selecionados Empty Re: [Resolvido]caixa de seleção - concatenar valores selecionados

    Mensagem  Dilson 14/5/2016, 03:44

    Use:

    Dim Rs As DAO.Recordset
    Dim JuntaDesmontar As String
    Dim JuntaLimpar As String
    Dim JuntaMontar As String
    Set Rs = CurrentDb.OpenRecordset("SuaTabela")
       Do While Not Rs.EOF
            Rs.Edit

            If Rs("CaixaDesmontar") = -1 Then
                JuntaDesmontar = "Desmontar"
            Else
                JuntaDesmontar = ""
            End If

            If Rs("CaixaLimpar") = -1 Then
                JuntaLimpar = "Limpar"
            Else
                JuntaLimpar = ""
            End If

            If Rs("CaixaMontar") = -1 Then
                JuntaMontar = "Montar"
            Else
                JuntaMontar = ""
            End If

            Rs("NovoCampo") = JuntaDesmontar & "," & JuntaLimpar & "," & JuntaMontar
            Rs.Update
            Rs.MoveNext
       Loop
    Rs.Close
       MsgBox "Loop completado com sucesso." _
    & vbCrLf & "Abra a Suatabela e veja o resultado no campo NovoCampo.", vbInformation, "Concluído"

    avatar
    gfranguelli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/08/2012

    [Resolvido]caixa de seleção - concatenar valores selecionados Empty Re: [Resolvido]caixa de seleção - concatenar valores selecionados

    Mensagem  gfranguelli 17/5/2016, 12:23

    Bom dia Dilson, tudo bem?

    Exatamente!

    Quanto trabalho economizei, levou menos de um minuto para atualizar a tabela.

    Fico agradecido em compartilhar seu conhecimento.

    Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]caixa de seleção - concatenar valores selecionados Empty Re: [Resolvido]caixa de seleção - concatenar valores selecionados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:30