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]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 : 23/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, 17: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 : 7780
    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, 18: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 : 23/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, 19:53

    Alexandre boa noite

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

    Obrigado pela ajuda


    Vinicius

      Data/hora atual: 26/11/2020, 12:11