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]Cx de Opção escreve . . .

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 113
    Registrado : 06/11/2020

    [Resolvido]Cx de Opção escreve . . . Empty [Resolvido]Cx de Opção escreve . . .

    Mensagem  m_sousa em 1/12/2020, 11:21

    Olá

    Precisava de uma ajuda. Obrigado

    Preciso que ao escolher na caixa de opção passe o opção escolhida para a caixa de texto - txtResposta.

    Deixo Exemplo em anexo...
    Obrigado

    Um bem hajam !
    Anexos
    [Resolvido]Cx de Opção escreve . . . AttachmentCx_Opcao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 13 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Cx de Opção escreve . . . Empty Re: [Resolvido]Cx de Opção escreve . . .

    Mensagem  crysostomo em 1/12/2020, 12:28

    Bom dia , no momento estou no celular, pesquise sobre Case select


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Cx de Opção escreve . . . Empty Re: [Resolvido]Cx de Opção escreve . . .

    Mensagem  Marcelo David em 1/12/2020, 12:34

    Bom dia,

    no evento após atualizar da Moldura0 (quadro de opções):

    Código:
    With Me.txtResposta
            Select Case Me.Moldura0
                Case 1
                    .Value = "Peq. Almoço"
                Case 2
                    .Value = "Almoço"
                Case 3
                    .Value = "Jantar"
                Case 4
                    .Value = "Lanche"
                Case 5
                    .Value = "Ceia"
                Case Else
                    .Value = Null
            End Select
    End With


    Última edição por Marcelo David em 1/12/2020, 12:35, editado 1 vez(es) (Razão : Corrigir gramática)


    .................................................................................
    Marcelo David | [Resolvido]Cx de Opção escreve . . . LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    Nogaro513 e m_sousa gostam desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 113
    Registrado : 06/11/2020

    [Resolvido]Cx de Opção escreve . . . Empty Re: [Resolvido]Cx de Opção escreve . . .

    Mensagem  m_sousa em 1/12/2020, 17:30

    É isto mesmo . . .
    Obrigado !

    Um bem haja. Resolvido.

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Cx de Opção escreve . . . Empty Re: [Resolvido]Cx de Opção escreve . . .

    Mensagem  Marcelo David em 1/12/2020, 18:50

    Grato pelo feedback! Smile


    .................................................................................
    Marcelo David | [Resolvido]Cx de Opção escreve . . . LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Cx de Opção escreve . . . Empty Re: [Resolvido]Cx de Opção escreve . . .

    Mensagem  crysostomo em 2/12/2020, 00:46

    Sucesso


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

      Data/hora atual: 22/1/2021, 11:04