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]Grupo de Opções

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Grupo de Opções Empty [Resolvido]Grupo de Opções

    Mensagem  m_sousa 4/1/2021, 22:14

    Olá

    Preciso da vossa ajuda, tenho grupo de opções que ao clicar escreve na txtResposta, e até aqui tudo bem, mas pretendia que acrescenta-se no campo txtQuantidade o número 1.

    Código:
    Private Sub Moldura0_AfterUpdate()
    With Me.txtResposta
            Select Case Me.Moldura0
                Case 1
                    .Value = "Fralda S"
                Case 2
                    .Value = "fralda M"
                Case 3
                    .Value = "Fralda L"
                Case 4
                    .Value = "Fralda XL"
                Case 5
                    .Value = "Fralda XXL"
                Case Else
                    .Value = Null
            End Select
    End With
    End Sub

    Obrigado

    Um bem hajam . . .
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Grupo de Opções Empty Re: [Resolvido]Grupo de Opções

    Mensagem  crysostomo 4/1/2021, 23:35

    Código:
    me.txtQuantidade= "1-" & "tblquantidade"



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

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Grupo de Opções Empty Re: [Resolvido]Grupo de Opções

    Mensagem  m_sousa 5/1/2021, 11:06

    Obrigado
    ficou assim . . .
    Código:
    Private Sub Moldura0_AfterUpdate()
    With Me.txtResposta
            Select Case Me.Moldura0
                Case 1
                    .Value = "Fralda S"
                Case 2
                    .Value = "fralda M"
                Case 3
                    .Value = "Fralda L"
                Case 4
                    .Value = "Fralda XL"
                Case 5
                    .Value = "Fralda XXL"
                Case Else
                    .Value = Null
            End Select
    Me.txtQuantidade = "1"
    End With
    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Grupo de Opções Empty Re: [Resolvido]Grupo de Opções

    Mensagem  crysostomo 5/1/2021, 12:40

    Vlw pelo retorno . 
    Sucesso


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

      Data/hora atual: 22/9/2021, 07:39