MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  Ademilsom em Seg 09 Mar 2020, 20:27

    Boa noite Senhores.

    Primeiramente, venho agradecer aos amigos pela ajuda aqui no fórum.
    Estou com a seguinte dúvida:

    Alguém poderia me informar ou ensinar como fazer um controle com uma caixa de seleção alimentando um campo no formulário.
    Selecionando na caixa de seleção e os dados ir caindo no campo desejado.

    O problema é que eu terei que clicar nesta caixa de seleção varias vezes e o campos teria que ser alimentado cada vez que um registro fosse selecionado.
    Espero ter explanado bem a ideia.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Seg 09 Mar 2020, 23:49

    Boa noite.
    Não entendi muito bem!
    você quer um conjunto de seleção cada seleção tem seu valor , ao clicar em qualquer um que o campo do formulário seja alimentado?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  Ademilsom em Ter 10 Mar 2020, 09:08

    Bom dia crysostomo, grato pela atenção.

    Na caixa de seleção tenho vários exames cadastrados ok, e eu tenho um campo que vai receber os exames.

    Quando eu selecionar o primeiro exame, esse campo deve receber o que tiver na caixa de seleção, se eu quiser colocar mais exames, vou na caixa de seleção e seleciono outro exame pra jogar no campo que dever receber esses dados.


    Se eu selecionar 1 ou mais exames na caixa de seleção, que esses exames sejam guardando em um campo único.
    Vou postar um ex. vou preparar.

    Montei um exemplo, se alguém tiver uma ideia mais adequada agradeço muito.
    Gostaria de quebras as linhas a cada campo concatenado
    Anexos
    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção AttachmentQuebrar linha.zip
    Exemplo para analise.
    Você não tem permissão para fazer download dos arquivos anexados.
    (125 Kb) Baixado 7 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Ter 10 Mar 2020, 17:50

    pelas 4 formas de quebra linha , não esta funcionando qubra-las no seu campo "exames_total",, fica nessa esperando os feras.
    mas para guarda em uma tabela
    Código:
    Dim db      As DAO.Database
    Dim sSQL    As String
    Set db = CurrentDb

    sSQL = "INSERT INTO suaTabela"
        'CAMPOS----------------------------------------
       sSQL = sSQL & "("
        sSQL = sSQL & "  campoDaTabela"
        sSQL = sSQL & ")"
      
         sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.CampoDoFormulario) & "'"
     
        sSQL = sSQL & ")"
    MsgBox " Exames guardados",vbinformation
        db.Execute sSQL


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Quebrar as linhas em um campo concatenado por 3 campos.

    Mensagem  Ademilsom em Ter 10 Mar 2020, 18:13

    crysostomo, Obrigado pela atenção.

    Meu maior desafio agora é conseguir quebrar essas linhas para que o relatório e formulário fiquem de forma legível.

    Confesso que não sei onde inserir o código que você criou pra juntas os dados.
    Criei 3 caixas diferentes e destas caixas fiz uma concatenação pra juntar tudo em um campo só, porém ainda preciso resolver a quebra de linhas.

    Vamos aguardar os mestres, sei que aqui tem muita gente que pode me ajudar nesse código.

    Quebrar as linhas em um campo concatenado por 3 campos:

    =[FRM_EXAMES1].[Formulário]![DSEXAME1] & [FRM_EXAMES2].[Formulário]![DSEXAME2] & [FRM_EXAMES3].[Formulário]![DSEXAME3]
    Gostaria de quebrar após o &.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Ter 10 Mar 2020, 18:42

    para colocar do jeito que quer , pelo fato de não saber quebrar linha com campoconcatenado, ei faria o sequinte:
    no campo exames totais eu colocaria ex1 ,ex2 ex3 concatenando e quebrando no relatório . uma ideia que eu não mexi ainda nisso


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Ter 10 Mar 2020, 18:51

    para colocar do jeito que quer , pelo fato de não saber quebrar linha com campo concatenado, faria o sequinte:
    no campo exames totais eu colocaria ex1 ,ex2 ex3 e colocava um embaixo do outro. Mas fico nessa tbm sobre quebrar linhas com campo concatenado


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  Ademilsom em Ter 10 Mar 2020, 18:57

    Pensei em fazer assim, porem no relatório eu teria 3 campos pra concatenar também, por que não posso definir um tamanho padrão para 3 caixa, tem seleção que terá 30 caracteres e tem seleção que terá 200, por isso o ideal era concatenar e quebrar as linhas em um campo único.

    Estou tentando outras ideias, muito obrigado pela ideia.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Ter 10 Mar 2020, 21:13

    também  fiquei pensando isso , ma seu fico de gaiato nesse tópico , pois as 4 formas de quebrar linhas não está funcionando para quebrar linha com campo concatenada
    o arquivo de guarda exames ai.
    Anexos
    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção AttachmentSYSNEURO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (122 Kb) Baixado 8 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  Ademilsom em Qua 11 Mar 2020, 15:50


    Muito Obrigado pela ajuda, conseguir resolver as duas coisas no mesmo código, veja:
    Funcionou legal, utilizando apenas uma caixa de seleção.



    Private Sub COMBO_AfterUpdate()
    If Me.EXAME = Null Then
    Me.EXAME = Me.COMBO.Column(1)
    Else
    Me.EXAME = Me.EXAME & vbNewLine & vbNewLine & Me.COMBO.Column(1)
    End If

    DoCmd.Save
    DoCmd.RefreshRecord

    End Sub
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  Ademilsom em Qua 11 Mar 2020, 16:23

    Crysostomo.

    Sua sugestão também funcionou perfeitamente, valeu ajuda, precisando estou a disposição.

    Até mais!
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção Empty Re: [Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

    Mensagem  crysostomo em Qua 11 Mar 2020, 16:40

    Eu fiz essa VbNewLine aqui não tinha dado certo.
    Vkwwwww


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Qui 22 Out 2020, 09:14