MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Flegar caixa de seleção para executar ação

    avatar
    theviny
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 24/08/2012

    [Resolvido]Flegar caixa de seleção para executar ação Empty [Resolvido]Flegar caixa de seleção para executar ação

    Mensagem  theviny em 13/1/2020, 20:26

    Boa tarde a todos

    Preciso de uma ajuda, estou montando um controle e nele um dos módulos é para controlar as baterias do rádio HT.

    O auxilio seria para poder acertar a tela de devolução, onde será informado o número da bateria, o vigilante que vai receber. O problema é que preciso que as caixas de texto data_devolução e hora_devolução ao carregar o formulário iniciem desabilitadas e ao flegar a caixa de seleção se habilitem e tragam a data e hora do momento.

    Estou deixando em anexo para facilitar o entendimento

    Desde já agradeço a atenção

    Vinícius
    Anexos
    [Resolvido]Flegar caixa de seleção para executar ação AttachmentAjuda.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 3 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Flegar caixa de seleção para executar ação Empty Re: [Resolvido]Flegar caixa de seleção para executar ação

    Mensagem  Alexandre Neves em 13/1/2020, 21:49

    Boa noite
    Nomeie de forma normalizada. Não dê o mesmo nome ao controlo e ao campo
    Código:
    Private Sub Devolver_Bateria_AfterUpdate()
        If Devolver_Bateria = True Then
            Data_Devolucao.Enabled = True: Data_Devolucao = Date
            Hora_Devolucao.Enabled = True: Hora_Devolucao = Format(Now, "hh:nn")
        End If
    End Sub

    Private Sub Form_Load()
        Data_Devolucao.Enabled = False
        Hora_Devolucao.Enabled = False
    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
    theviny
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 24/08/2012

    [Resolvido]Flegar caixa de seleção para executar ação Empty Re: [Resolvido]Flegar caixa de seleção para executar ação

    Mensagem  theviny em 13/1/2020, 22:53

    Alexandre boa noite

    Entendi como se deve nomear os controles, vou me atentar. Funcionou exatamente como queria.

    Obrigado pela ajuda


    Vinicius

    Conteúdo patrocinado

    [Resolvido]Flegar caixa de seleção para executar ação Empty Re: [Resolvido]Flegar caixa de seleção para executar ação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/4/2020, 20:48