[Resolvido]Grupo de Opções

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 . . .

Código:

me.txtQuantidade= "1-" & "tblquantidade"



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


Vlw pelo retorno . 
Sucesso