Mestres, estou com a seguinte dificuldade
Fiz um formulário contínuo para conferir o gabarito de um cartão de resposta do aluno, no qual, cada resposta correponde a um registro específico
Quando a resposta é igual ao gabarito deveria pintar a fonte do campo [status] de verde e escrever "Correto"
MAS ... qualquer alteração no formulário acaba pintando o campo [status] de TODOS os outros registros de verde... mesmo constando em [status] que a questão está errada
Minha dúvida é: Como eu faço para pintar o campo de um registro específico sem alterar a cor de outros registros?
ou seja:
Resposta correta : VERDE
Resposta errada: VERMELHO
Acho q o problema deve ser o Formulário Contínuo (talvez)...
Vlww galera!
Private Sub gabarito_Change()
If Me.gabarito = Me.alternativa Then
Me.status = "Correto"
Me.status.ForeColor = RGB(102, 205, 0)
Me.status.FontBold = True
End If
'Alternativa vazia pode ser uma questão dissertativa
If Me.alternativa = " " Then
Me.status = "Dissertativa"
Me.status.ForeColor = RGB(165, 42, 42)
Me.status.FontBold = True
End If
'Alternativa errada
If Me.gabarito <> Me.alternativa Then
Me.status = "Errada"
Me.status.ForeColor = RGB(0, 49, 125)
Me.status.FontBold = True
End If
End Sub
Fiz um formulário contínuo para conferir o gabarito de um cartão de resposta do aluno, no qual, cada resposta correponde a um registro específico
Quando a resposta é igual ao gabarito deveria pintar a fonte do campo [status] de verde e escrever "Correto"
MAS ... qualquer alteração no formulário acaba pintando o campo [status] de TODOS os outros registros de verde... mesmo constando em [status] que a questão está errada
Minha dúvida é: Como eu faço para pintar o campo de um registro específico sem alterar a cor de outros registros?
ou seja:
Resposta correta : VERDE
Resposta errada: VERMELHO
Acho q o problema deve ser o Formulário Contínuo (talvez)...
Vlww galera!
Private Sub gabarito_Change()
If Me.gabarito = Me.alternativa Then
Me.status = "Correto"
Me.status.ForeColor = RGB(102, 205, 0)
Me.status.FontBold = True
End If
'Alternativa vazia pode ser uma questão dissertativa
If Me.alternativa = " " Then
Me.status = "Dissertativa"
Me.status.ForeColor = RGB(165, 42, 42)
Me.status.FontBold = True
End If
'Alternativa errada
If Me.gabarito <> Me.alternativa Then
Me.status = "Errada"
Me.status.ForeColor = RGB(0, 49, 125)
Me.status.FontBold = True
End If
End Sub