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]Gravar valor do quadro de opções como texto

    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 912
    Registrado : 23/08/2010

    [Resolvido]Gravar valor do quadro de opções como texto Empty [Resolvido]Gravar valor do quadro de opções como texto

    Mensagem  Mylton 2/11/2022, 17:34

    Boa tarde

    Sei que é necessário criar um grupo de opção desacoplado para esse valor ser gravado como texto.
    Até encontrei um tópico, mas o exemplo não se encontrava mais presente.

    Na dúvida tenho 1 form e 1 tabela

    Gostaria que valor da opção 1 fosse registrado como não se vê, ou praticamente não se vê, a opcao2 como se vê e a opcao3 como se vê claramente.

    Criei uma MSG box para mostrar ao usuário a sua escolha.

    Mas não consigo gravar o texto em si.

            Private Sub Quadro1_Click()
           Dim Quadro1 As Integer
           Select Case Me.Quadro1
               Case Is = 1
               MsgBox ("não se vê, ou praticamente não se vê")
             '  Me.Opcao1.Value = "não se vê, ou praticamente não se vê"
               
             '  DoCmd.RunSQL "UPDATE tabela1 SET tabela1.Quadro1" = Me.Opcao1
               
            '   DoCmd.RunSQL "UPDATE tabela1 SET tabela1.Opcao1.Value "

               
                Case Is = 2
               MsgBox ("se vê")
             '  Me.Opcao2.Value = "se vê"
                Case Is = 3
               MsgBox ("se vê claramente")
             '  Me.Opcao3.Value = "se vê claramente"
           End Select

    End Sub




    Algum caminho.

    Obrigado.
    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 912
    Registrado : 23/08/2010

    [Resolvido]Gravar valor do quadro de opções como texto Empty Re: [Resolvido]Gravar valor do quadro de opções como texto

    Mensagem  Mylton 2/11/2022, 22:00

    Resolvido


    Dim Quadro1 As Integer
    Select Case Me.Quadro1
    Case Is = 1

    MsgBox "Não se vê, ou praticamente não se vê", vbInformation, "Informação"
    Me.Resposta1 = "não se vê, ou praticamente não se vê"
    Case Is = 2
    MsgBox "se vê", vbInformation, "Informação"
    Me.Resposta1 = "se vê"
    Case Is = 3
    MsgBox "se vê claramente", vbInformation, "Informação"
    Me.Resposta1 = "se vê claramente"

    End Select




    Obrigado

      Data/hora atual: 1/2/2023, 06:10