Boa noite
Estou a tentar criar uma caixa de texto num formulário que acrescenta um valor baseado no valor de outra caixa de texto.
Com este código, o valor devolvido é "arrastado" para o registo seguinte., não consigo evitar a situação
[codigo]
Private Sub Texto36_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Texto22.Value = "Limão" Then
Me.Texto36.Value = "fruta"
Else
If Me.Texto22.Value = "Banana" Then
Me.Texto36.Value = "Fruta"
Else
If Me.Texto22.Value = "Couve" Then
Me.Texto36.Value = "Legume"
Else
Me.Texto36.Value = ""
End If
End If
End If
[codigo]
Obrigado
Estou a tentar criar uma caixa de texto num formulário que acrescenta um valor baseado no valor de outra caixa de texto.
Com este código, o valor devolvido é "arrastado" para o registo seguinte., não consigo evitar a situação
[codigo]
Private Sub Texto36_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Texto22.Value = "Limão" Then
Me.Texto36.Value = "fruta"
Else
If Me.Texto22.Value = "Banana" Then
Me.Texto36.Value = "Fruta"
Else
If Me.Texto22.Value = "Couve" Then
Me.Texto36.Value = "Legume"
Else
Me.Texto36.Value = ""
End If
End If
End If
[codigo]
Obrigado