Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido]Num lok desliga ao inserir data
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
[Resolvido]Num lok desliga ao inserir data
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
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 381 vezes
Editado pela última vez por Rui Maciel em Seg Ago 26, 2019 6:50 pm, em um total de 1 vez.
-
- Colaborador
- Mensagens: 27
- Registrado em: Sex Fev 04, 2011 4:41 pm
- Localização: São Paulo
Re: Num lok desliga ao inserir data
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
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
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
Re: Num lok desliga ao inserir data
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
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
-
- Colaborador
- Mensagens: 27
- Registrado em: Sex Fev 04, 2011 4:41 pm
- Localização: São Paulo
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: [Resolvido]Num lok desliga ao inserir data
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.
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.
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
Re: [Resolvido]Num lok desliga ao inserir data
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
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