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 seleção para inserir mensagem e data atual no rótulo

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Helden 11/7/2016, 04:21

    Boa noite amigos do Access, preciso de ajuda.
    precisaria que selecionando o item da caixa de seleção , automaticamente aparece a mensagem "realizado" e a data atual no rótulo.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Alexandre Neves 11/7/2016, 18:32

    Boa tarde,
    Responda às respostas que lhe deram à dúvida que colocou

    Coloque, no acontecimento DepoisDeActualizar,
    if NomeControlo=True then msgbox "Realizado": NomeRotulo.caption=Date


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Helden 12/7/2016, 02:42

    Boa noite Alexandre, primeiramente obrigado pela atenção.
    Estou em um formulário com fonte de registro (tabela) é uma consulta.

    Coloquei o procedimento do evento após atualizar , if NomeControlo=True then msgbox "Realizado": NomeRotulo.caption=Date
    como orientou mas quando seleciono o item nada acontece.
    Ficou assim no procedimento:

    Private Sub Seleção0_AfterUpdate()
    If NomeControle = True Then MsgBox "Realizado": NomeRotulo.Caption = Date
    End Sub

    TEnho:
    Caixa de seleção=Seleção0
    Fonte de controle=C1
    Rótulo da caixa de seleção=CMF
    Legenda do rótulo=em branco

    Ë possível fazer com que quando clicar na seleção a legenda seja preenchida com a palavra "realizado" e a data "Agora()"?
    Obrigado!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Alexandre Neves 12/7/2016, 16:30

    Boa tarde,
    Usei terminologia comummente aceite entre os colegas. Precisava de substituir NomeControlo pelo nome do controlo e NomeRotulo pelo nome do rótulo
    assim,
    Private Sub Seleção0_AfterUpdate()
    If Seleção0 = True Then MsgBox "Realizado": CMF.Caption = Date
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Caixa de seleção para preenchimento do rótulo

    Mensagem  Helden 16/7/2016, 23:30

    Alexandre, grande!! Novamente obrigado, ficou muito bom. Ficaria melhor ainda se o realizado ficasse no rótulo antes da data.
    Desculpa minha ignorância ai em access, entendo muito pouco em VBA, mas comecei a pegar gosto, Valeu e desculpa a demora na reposta, é a correria....
    Abraço!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Alexandre Neves 17/7/2016, 08:27

    Bom dia,
    Basta
    Private Sub Seleção0_AfterUpdate()
    If Seleção0 = True Then MsgBox "Realizado": CMF.Caption = "Realizado em " & Date
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Helden 17/7/2016, 23:17

    Boa noite Alexandre, percebi que quando fecho o form e reabro o rótulo volta a ficar em branco, tem como o "realizado data" ficar gravado? Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Alexandre Neves 17/7/2016, 23:33

    Boa noite,
    Porque quer continuar a dúvida, desmarquei o Resolvido
    Para gravar, tem de criar registo em tabela e preencher o rótulo dependente do valor armazenado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Helden 19/7/2016, 22:05

    Boa tarde Alexandre, a seleção com fonte de controle fica bloqueada, por isso deixei a seleção sem fonte de controle, nas propriedades do rótulo, da seleção, não oferece a opção fonte de controle para gravar as informações. É possível colocar fonte de controle no rótulo da seleção para gravar "realizado now()"?
    Obrigado!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Alexandre Neves 25/7/2016, 20:29

    Boa noite,
    Em rótulo, não
    Coloque caixa de texto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Caixa de seleção para inserir mensagem e data atual no rótulo Empty Re: Caixa de seleção para inserir mensagem e data atual no rótulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:06