[Resolvido]Campo com Mensagem Automática

Boa noite,

Pretendo criar um campo num formulário, que baseado num valor de outro campo, me devolva uma determinada mensagem (como a função se do excel). Alguém pode dar uma dica?

Desde já muito obrigado.

Boa noite;

if me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
else
end if

Olá Fernando,

E se eu quiser colocar 3 mensagens?

Boa noite;

if me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
ElseIf me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
else
me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
end if

Fernando,estou a tentar colocar esse código num evento após atualizar e não está a funcionar. O código que colocou não está completo pois não? Mesmo com a alteração colorida continua sem funcionar.

if me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
ElseIf me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
else
if me.SeuCampo = ValorDesejado Then
Msgbox " sua mensagem "
end if

Estou a tentar colocar este código (depois de atualizar) no campo observação(1) mas neste caso, relativamente aos valores do campo qtd_embalada(2):

if me.qtd_emb  > 0 Then
Msgbox " em execução "
ElseIf me.qtd_emb = 0 Then
Msgbox " não iniciado "
else
If me.qtd_emb >= qtd_pedida Then
Msgbox " concluído "
end if

Olá bom dia;

Falta um End If no código

if me.qtd_emb > 0 Then
Msgbox " em execução "
ElseIf me.qtd_emb = 0 Then
Msgbox " não iniciado "
else
If me.qtd_emb >= qtd_pedida Then
Msgbox " concluído "
End If
End If

Olá Fernando,

Continua sem funcionar.
Eu coloquei o código em after update...se calhar é isso que está errado. ..

Private Sub Observação_AfterUpdate()
   If Me.Qtd_embalada > 0 Then
   MsgBox " em execução "
   ElseIf Me.Qtd_embalada = 0 Then
   MsgBox " não iniciado "
   Else
   If Me.Qtd_embalada >= qtd_pedida(PAL) Then
   MsgBox " concluído "
   End If
   End If
End Sub

Sugiro anexar seu arquivo contendo os objetos. Certamente um pequeno detalhe na sua estrutura está faltando pois o código é funcional.

Caro Ivan,

Aqui fica o link

https://www.dropbox.com/s/6o6dkdwyr61wnnj/MM%20V2%20Local%20%282%29.accdb?dl=0

O form é acessível através do botão "Embalagem".
A mensagem que quero quero acrescentar é no campo "observação", dependendo dos valores apresentados no campo "qtd_embalada".
Se conseguir ajudar, explique pf o que estava a fazer errado.
Obrigada.

Não baixei. Seu arquivo tem 87mb. Abra seu arquivo e use a função para compactar e reparar do access e assim fazer com que ele diminua. Após isso suba o arquivo novamente e disponibilize o link.

Aguardo..

Olá Ivan,

Conforme pedido:

https://www.dropbox.com/s/6o6dkdwyr61wnnj/MM%20V2%20Local%20%282%29.accdb?dl=0

Mesmo assim continua a ter o mesmo tamanho...

Aqui vai o ficheiro em rar:

https://www.dropbox.com/s/i8sxz6sf02m6w86/MM%20V2%20Local%20%282%29.rar?dl=0

Enfim entendi.

Quando você fala em mensagem automática, nós entendemos que você quer que uma caixa de mensagem salte na tela. Todavia não é isso que você deseja. Você quer atribuir valor a um campo.

Veja o exemplo em anexo e adapte ao seu projeto.

Olá Ivan,

Era mesmo isso!! Desculpe responder só agora! Muito Obrigada pela ajuda!

O fórum agradece o retorno. Sucesso.