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]Num lok desliga ao inserir data

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

[Resolvido]Num lok desliga ao inserir data

Mensagem por Rui Maciel » Dom Ago 25, 2019 6:19 pm

Boa noite
No aplicativo quando entro no formulário ufm_dp e vou inserir a data, o num lok desliga, ou seja, deixa digitar suponhamos 25- e depois desliga o num lok, o que poderá estar a acontecer? Podem ajudar-me, obrigado.
Abraço,
RMaciel
Anexos
Caixa_Original.7z
(288.39 KiB) Baixado 10 vezes
Editado pela última vez por Rui Maciel em Seg Ago 26, 2019 6:50 pm, 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.


WagnerGuardia
Colaborador
Colaborador
Mensagens: 18
Registrado em: Sex Fev 04, 2011 4:41 pm
Localização: São Paulo

Re: Num lok desliga ao inserir data

Mensagem por WagnerGuardia » Seg Ago 26, 2019 1:34 pm

Caraca mano acabei de entrar aqui pra pedir ajuda nesse mesmo problema.
Percebi que isso só ocorre no windows 10

segue o codigo
Private Sub Caixa_Hora_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
Caixa_Hora.MaxLength = 5

Select Case KeyAscii
Case 8, 48 To 57 ' BackSpace e numericos
If Len(Caixa_Hora) = 2 Or Len(Caixa_Hora) = 6 Then
Caixa_Hora.Text = Caixa_Hora.Text & ":"
SendKeys "{End}", False
End If
Case Else ' o resto é travado
KeyAscii = 0
End Select

End Sub



Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Num lok desliga ao inserir data

Mensagem por Rui Maciel » Seg Ago 26, 2019 6:49 pm

Boa noite WagnerGuardia
Obrigado, só fiz umas pequenas mudanças e funciona perfeitamente.

Private Sub Caixa_Hora_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
Caixa_Hora.MaxLength = 10

Select Case KeyAscii
Case 8, 48 To 57 ' BackSpace e numericos
If Len(Caixa_Hora) = 2 Or Len(Caixa_Hora) = 10 Then
Caixa_Hora.Text = Caixa_Hora.Text & "-"
SendKeys "{End}", False
End If
Case Else ' o resto é travado
KeyAscii = 0
End Select

End Sub
Abraço,
RMaciel



WagnerGuardia
Colaborador
Colaborador
Mensagens: 18
Registrado em: Sex Fev 04, 2011 4:41 pm
Localização: São Paulo

Re: [Resolvido]Num lok desliga ao inserir data

Mensagem por WagnerGuardia » Ter Ago 27, 2019 7:44 am

Rui Maciel, o meu ainda esta desligando.



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: 144
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: [Resolvido]Num lok desliga ao inserir data

Mensagem por Tov Elen Shau » Ter Ago 27, 2019 1:58 pm

Pessoal

Fiz um teste aqui com o código passado pelo Rui e o NumLock também desliga na primeira vez que o userform é aberto, depois posso fechar o userform sem fechar a planilha e não desliga mais. Entretanto, todas as vezes que fechei a planilha e usei o userform pela primeira vez o NumLock desligou.



Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

Re: [Resolvido]Num lok desliga ao inserir data

Mensagem por Rui Maciel » Ter Ago 27, 2019 4:30 pm

Tente assim:
Private Sub textdata_Change()
'Formata : dd/mm/aaaa'
If Len(textdata) = 2 Or Len(textdata) = 5 Then
textdata.Text = textdata.Text & "/"
textdata.SelStart = Len(textdata)
End If
End Sub



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