Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[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: 61
Registrado em: Dom Set 02, 2012 3:00 pm

[Resolvido]Num lok desliga ao inserir data

Mensagem por Rui Maciel »

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 372 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: 27
Registrado em: Sex Fev 04, 2011 4:41 pm
Localização: São Paulo

Re: Num lok desliga ao inserir data

Mensagem por WagnerGuardia »

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: 61
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Num lok desliga ao inserir data

Mensagem por Rui Maciel »

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: 27
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 »

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

Re: [Resolvido]Num lok desliga ao inserir data

Mensagem por Tov Elen Shau »

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: 61
Registrado em: Dom Set 02, 2012 3:00 pm

Re: [Resolvido]Num lok desliga ao inserir data

Mensagem por Rui Maciel »

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