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]Ativar ao atualizar data

    André Ferreira
    André Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 23/06/2011

    [Resolvido]Ativar ao atualizar data Empty [Resolvido]Ativar ao atualizar data

    Mensagem  André Ferreira 1/4/2014, 03:56

    Olá pessoal!
    Meu sistema operacional é o 7 (Seven) e o Office 2010.

    Em um formulário há uma guia, nela há um botão tipo Sim/Não e um campo tipo data.
    Gostaria de: Ao inserir a data no campo, denominado "cad_EmbarqueData", ativasse o botão "cad_EmbarquePrevisao".
    Tentei adaptar alguns exemplos retirados do fórum, todavia não obtive sucesso.

    []s a todos.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  Avelino Sampaio 1/4/2014, 06:44

    Olá!

    No evento "No atual" do formulário coloque:

    Private Sub Form_Current()
    Me!cad_EmbarquePrevisao.Enabled = Nz(cad_EmbarqueData, 0) > 0
    End Sub


    e no evento "Após atualizar" do campo data:

    Private Sub cad_EmbarqueData_AfterUpdate()
    Call Form_Current
    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    André Ferreira
    André Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 23/06/2011

    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  André Ferreira 1/4/2014, 14:53

    Olá Avelino!

    A sua orientação foi precisa, mas o efeito desejado não.
    Para ajudar o seu entendimento adicionarei mais informações.

    Na minha tabela tblCadastro possue o campo cad_EmbarqueData Tipo de dados: Data e o campo cad_EmbarquePrevisao Tipo de dados: Sim/Não.
    Na guia Geral dessa tabela o Formato é: ;"Previsto para embarque";"Embarcou". O valor padrão é: -1. Na guia Pesquisa, Exibir controle: Caixa de texto.

    No formulário, denominado frmPrevisaoEmbarque, há uma guia, guia1, nela há os campos:
    cad_EmbarqueData
    cad_EmbarquePrevisao

    O efeito desejado é o seguinte:
    Abrir o formulário e inserir os dados da pessoa que irá embarcar.
    Nesse momento o campo cad_EmbarquePrevisao apresentará o texto Previsto para embarque. fecho o formulário.
    No momento que essa pessoa embarcar, abrirei o formulário e ao inserir a data no campo cad_EmbarqueData gostaria que o texto de cad_EmbarquePrevisao alternasse para Embarcou.

    Manualmente consegui executar, mas condicionando ao inserir a data não.

    []s.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Ativar ao atualizar data Empty Ativar ao atualizar data

    Mensagem  good guy 1/4/2014, 19:27

    Olá André,

    Caso o Avelino não voltar para responder posta o seu bd para verificar as mudanças necessárias em seu código. Me parece um caso simples de if ... then... else...end if, colocado desta maneira IIF(condição,"A Embarcar","Embarcou").
    André Ferreira
    André Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 23/06/2011

    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  André Ferreira 2/4/2014, 01:17

    Olá "good guy".

    BD exemplo anexado.
    Anexos
    [Resolvido]Ativar ao atualizar data AttachmentEmbarque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 6 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  Avelino Sampaio 2/4/2014, 09:40

    Olá!

    Não precisa utilizar do botão.   Basta utilizar o evento "após atualizar" do campo data

    Private Sub cad_EmbarqueDataSdp_AfterUpdate()
       Me!cad_EmbarquePrevisao = IsNull(Me!cad_EmbarqueDataSdp)
    End Sub


    Sucesso!
    Anexos
    [Resolvido]Ativar ao atualizar data AttachmentEmbarque_rv1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 26 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    André Ferreira
    André Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 23/06/2011

    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  André Ferreira 3/4/2014, 00:34

    Olá Avelino.
    Era isso mesmo que precisava.
    Fico deveras agradecido por sua ajuda, bem como a pré disposição do "good guy".
    São pessoas como vcs que tornam este fórum o "Máximo".

    []s

    Conteúdo patrocinado


    [Resolvido]Ativar ao atualizar data Empty Re: [Resolvido]Ativar ao atualizar data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 03:34