MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo com Mensagem Automática

    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Seg Out 21, 2019 8:55 pm

    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.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2095
    Registrado : 13/04/2012

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  Fernando Bueno em Ter Out 22, 2019 12:09 am

    Boa noite;

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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Campo com Mensagem Automática 16rzeq
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Ter Out 22, 2019 1:35 pm

    Olá Fernando,

    E se eu quiser colocar 3 mensagens?
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2095
    Registrado : 13/04/2012

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  Fernando Bueno em Qua Out 23, 2019 1:09 am

    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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Campo com Mensagem Automática 16rzeq
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Sex Out 25, 2019 8:16 am

    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
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2095
    Registrado : 13/04/2012

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  Fernando Bueno em Sab Out 26, 2019 4:13 pm

    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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Campo com Mensagem Automática 16rzeq
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Sab Out 26, 2019 9:51 pm

    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
    Anexos
    [Resolvido]Campo com Mensagem Automática AttachmentCapturar.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (6 Kb) Baixado 7 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  DamascenoJr. em Sab Out 26, 2019 10:07 pm

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Dom Out 27, 2019 7:27 pm

    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  DamascenoJr. em Qua Out 30, 2019 2:38 am

    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..


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Ter Nov 05, 2019 10:31 pm

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  DamascenoJr. em Dom Nov 10, 2019 12:43 am

    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.
    Anexos
    [Resolvido]Campo com Mensagem Automática Attachmentjoanita.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 16 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    joanita
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 50
    Registrado : 26/05/2011

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  joanita em Sab Nov 23, 2019 10:22 pm

    Olá Ivan,

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    [Resolvido]Campo com Mensagem Automática Empty Re: [Resolvido]Campo com Mensagem Automática

    Mensagem  DamascenoJr. em Seg Nov 25, 2019 10:30 pm

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Qua Set 23, 2020 4:01 pm