[Resolvido]VBA Checkbox

sabryn@ 14/7/2015, 08:22

sabryn@: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 29
Registrado : 25/04/2015

Mensagem nº1

[Resolvido]VBA Checkbox

Mensagem sabryn@ 14/7/2015, 08:22

caros, bom dia!

Tenho um formulário de avaliação de funcionários através de checkbox onde cada funcionario começa com uma nota 100 e ao ser "pontuado" a nota vai diminuindo conforme valor atrubuido ao botão.
Preciso inserir um comando If para que se clicado acidentalmente em qualquer um dos botões o funcionário não seja pontuado novamente ou uma função que se o botão for clicado o valor é descontado e se "desclicado" o valor seja novamente adicionado.

O código que estou usando para cada checkbox ate o momento é o:

Private Sub Item1_Click()
Dim Subtrair As String
Subtrair = Me.Nota
Me.Nota.Value = Subtrair - 15
End Sub

desde ja agradeço a ajuda

**Alexandre Neves** 14/7/2015, 08:42

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvido]VBA Checkbox

Mensagem Alexandre Neves 14/7/2015, 08:42

Bom dia,
Private Sub Item1_Click()
if Item1 then Me.Nota.Value = Me.Nota.Value - 15 else Me.Nota.Value = Me.Nota.Value + 15
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

sabryn@ 14/7/2015, 08:52

sabryn@

sabryn@: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 29
Registrado : 25/04/2015

Mensagem nº3

Re: [Resolvido]VBA Checkbox

Mensagem sabryn@ 14/7/2015, 08:52

Perfeito ..

Arrasou como sempre ..

Obrigada

**Alexandre Neves** 14/7/2015, 08:57

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº4

Re: [Resolvido]VBA Checkbox

Mensagem Alexandre Neves 14/7/2015, 08:57

lembre-se do Resolvido

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo