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


3 participantes

    [Resolvido]Campo com Mensagem Automática

    avatar
    joanita
    Intermediário
    Intermediário


    Respeito às regras : 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 21/10/2019, 20:55

    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 : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 22/10/2019, 00:09

    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 : 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 22/10/2019, 13:35

    Olá Fernando,

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 23/10/2019, 01:09

    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 : 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 25/10/2019, 08:16

    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 : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 26/10/2019, 16:13

    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 : 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 26/10/2019, 21:51

    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 8 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 26/10/2019, 22:07

    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 : 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 27/10/2019, 18:27

    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 : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 30/10/2019, 01:38

    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 : 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 5/11/2019, 21:31

    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

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 9/11/2019, 23:43

    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 19 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 : 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 23/11/2019, 21:22

    Olá Ivan,

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 25/11/2019, 21:30

    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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:20