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