ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido] Carregar TextBox em horário específico.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 139
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Carregar TextBox em horário específico.

Mensagem por milton » Qua Jul 08, 2020 10:59 am

Fala pessoal!

Alguém pode me ajudar
Preciso de um código vba da seguinte forma:
Se a Form for aberto entre 7:00 as 7:10 da manhã, carrega a TxtQtde com número 1.

Desde já agradeço!
Editado pela última vez por milton em Sex Jul 10, 2020 10:18 am, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 171
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Carregar TextBox em horário específico.

Mensagem por Tov Elen Shau » Qua Jul 08, 2020 5:11 pm

Colega

Boa tarde

Faz um teste

Private Sub UserForm_Initialize()
x = Time

If x >= "7:00:00" And x <= "7:10:59" Then
TxtQtde.Text = 1
End If

End Sub

Atenciosamente

Tov Elen Shau



Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 139
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Carregar TextBox em horário específico.

Mensagem por milton » Sex Jul 10, 2020 10:17 am

Testei e não reconhecia os minutos, usei da forma abaixo e deu certo.

If Hour(Now()) > 7 And Time < ("07:10:00") Then
TxtQtde = "1"
End If

Obrigado!!!



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder