Alguém sabe como configurar no asccess o botão "Wheel" (rodinha/do meio) do mouse para que ele role o conteúdo de um campo em um formulário ao invés de mover entre os registros?
thanks
Leandro
thanks
Leandro
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Option Explicit
Dim EstaNoFoco As Boolean
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
'By JPaulo ® Maximo Access
If EstaNoFoco = True Then
If Count < 0 Then
SendKeys "{up 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse para cima
Else
SendKeys "{down 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse paar baixo
End If
End If
End Sub
Private Sub SeuCampo_GotFocus()
'Ao receber o foco no seu campo
EstaNoFoco = True
End Sub
Private Sub SeuCampo_LostFocus()
'Ao perder o foco no seu campo
EstaNoFoco = False
End Sub
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |