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

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

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


Alexandre boa noite

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

Obrigado pela ajuda


Vinicius