Olá.

Somente por conta desse problema com a desativação da tecla NumLock, já entrei diversas vezes, neste e noutros foruns, pedindo ajuda. Usei diversas rotinas disponibilizadas, mas sempre sem solução prática.

É que sempre coloco a propriedade KeyPreview do form como true, utilizando a rotina KeyPress, para tabulação entre os campos, usando a tecla Enter e não somente TAB, conforme abaixo:

 

If KeyAscii = vbKeyReturn then

SendKeys "{TAB}"

KeyAscii = 0

End If

 

Bastava entrar no form, ou tabular pelo primeiro campo, para desativar NumLock.

Daí, descobri uma solução bem simples, que mantém todo o tempo ativada NumLock.

Basta substituir, na rotina Private Sub <textbox, combo, etc> _KeyPress(KeyAscii As Integer), a linha <SendKeys "{TAB}"> por <Próximo_Campo.SetFocus>, na ordem de tabulação. Resolveu todo o problema. Sem módulo, sem função...

t+