MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Caixa de texto com condição SE - automatizada

    avatar
    agosfernandes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : França
    Mensagens : 7
    Registrado : 02/11/2016

    Caixa de texto com condição SE - automatizada Empty Caixa de texto com condição SE - automatizada

    Mensagem  agosfernandes 3/10/2022, 20:59

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Caixa de texto com condição SE - automatizada Empty Re: Caixa de texto com condição SE - automatizada

    Mensagem  Silvio 4/10/2022, 13:36

    Boas....
    Coloque no evento após atualizar esse teu código.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 8/12/2024, 02:04