Página 1 de 1
[Resolvido]Num lok desliga ao inserir data
Enviado: Dom Ago 25, 2019 6:19 pm
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
Re: Num lok desliga ao inserir data
Enviado: Seg Ago 26, 2019 1:34 pm
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
Re: Num lok desliga ao inserir data
Enviado: Seg Ago 26, 2019 6:49 pm
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
Re: [Resolvido]Num lok desliga ao inserir data
Enviado: Ter Ago 27, 2019 7:44 am
por WagnerGuardia
Rui Maciel, o meu ainda esta desligando.
Re: [Resolvido]Num lok desliga ao inserir data
Enviado: Ter Ago 27, 2019 1:58 pm
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.
Re: [Resolvido]Num lok desliga ao inserir data
Enviado: Ter Ago 27, 2019 4:30 pm
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