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