Galera, preciso somar o valor contido em um campo denominado "Pontuacao" de uma tabela chamada "tb_motorista" com o valor de uma variavel chamada "soma" e depois preciso que o resultado seja atualizado no registro.
Exemplo: se o valor do campo Pontuacao for 5, e o valor da variavel for 6, ele soma e atualiza o registro, resultando em 11.
o formulario -> frm_cadastro_avaliacao
a tabela -> tb_motorista
o campo -> Pontuacao
a variavel -> soma
Meu codigo atual:
Private Sub Comando40_Click()
Dim valorassi As Integer
Dim valormult As Integer
Dim valorp As Integer
Dim valors As Integer
Dim valort As Integer
Dim soma As Integer
If comb_assiduidade.Value > 0 Then
valorassi = pontuacao_assiduidade.Value
Else
End If
If comb_multas.Value > 0 Then
valormult = pontuacao_multas.Value
Else
End If
If Seleção12 = -1 Then
valorp = "1"
Else
End If
If Seleção14 = -1 Then
valors = "1"
Else
End If
If Seleção16 = -1 Then
valort = "1"
Else
End If
soma = valorassi + valormult + valorp + valors + valort
' Aqui entra o codigo que atualiza o registro
DoCmd.RunMacro "salvar_registro"
End Sub
Exemplo: se o valor do campo Pontuacao for 5, e o valor da variavel for 6, ele soma e atualiza o registro, resultando em 11.
o formulario -> frm_cadastro_avaliacao
a tabela -> tb_motorista
o campo -> Pontuacao
a variavel -> soma
Meu codigo atual:
Private Sub Comando40_Click()
Dim valorassi As Integer
Dim valormult As Integer
Dim valorp As Integer
Dim valors As Integer
Dim valort As Integer
Dim soma As Integer
If comb_assiduidade.Value > 0 Then
valorassi = pontuacao_assiduidade.Value
Else
End If
If comb_multas.Value > 0 Then
valormult = pontuacao_multas.Value
Else
End If
If Seleção12 = -1 Then
valorp = "1"
Else
End If
If Seleção14 = -1 Then
valors = "1"
Else
End If
If Seleção16 = -1 Then
valort = "1"
Else
End If
soma = valorassi + valormult + valorp + valors + valort
' Aqui entra o codigo que atualiza o registro
DoCmd.RunMacro "salvar_registro"
End Sub