Boa tarde.
Tenho um formulário de cadastro onde tenho 4 campos sim/não para serem preenchidos e gostaria de selecionar uma caixa dessa com sim/não e preencher automaticamente a caixa de pontuação. Segue o código abaixo, mas esse código não está funcionando:
Private Sub txtponto_BeforeUpdate(Cancel As Integer)
If txtrenda100 = -1 Then
txtponto = 3
Else
txtponto = ""
If txtrenda300 = -1 Then
txtponto = 2
Else
txtponto = ""
If txtrenda498 = -1 Then
txtponto = 1
Else
txtponto = ""
If txtrendamaior498 = -1 Then
txtponto = 0
Else
txtponto = ""
End If
End If
End If
End If
End Sub
Tenho um formulário de cadastro onde tenho 4 campos sim/não para serem preenchidos e gostaria de selecionar uma caixa dessa com sim/não e preencher automaticamente a caixa de pontuação. Segue o código abaixo, mas esse código não está funcionando:
Private Sub txtponto_BeforeUpdate(Cancel As Integer)
If txtrenda100 = -1 Then
txtponto = 3
Else
txtponto = ""
If txtrenda300 = -1 Then
txtponto = 2
Else
txtponto = ""
If txtrenda498 = -1 Then
txtponto = 1
Else
txtponto = ""
If txtrendamaior498 = -1 Then
txtponto = 0
Else
txtponto = ""
End If
End If
End If
End If
End Sub