[Resolvido]Mouse ( Botão do Meio): Navegar pelos Registros de um Formulário Contínuo

Ola
Pessoal

Alguém sabe se é possível, num formulário continuo, utilizando o botão do meio do mouse, nagevar de um registro pro outro, ou seja, da mesma forma que utilizamos as "setas" para cima ou para baixo?

Grato pela atenção

Obrigado

Luiz Gustavo

Boa noite Luiz, neste excelente tópico, com a ajuda dos Mestre João Paulo e Vieira creio estar a solução para esta questao.

http://maximoaccess.forumeiros.com/t2330-resolvidobotao-wheel-do-mouse?highlight=mouse+whell

Bom trabalho.

Oi
Harysohn

Já tinha visto o tópico.
Inclusive baixei os BD de exemplos.
Mas só funcionam em Caixa de textos e em Formulários simples.

Pelo que vi o problema é o Acces. Uso o 2003.

Se realmente não tiver jeito, o que faço com relação ao tópico?
Ponho resolvido? Deixo como está? Mudo o título do Tópico?

Abraços

Nao li completamene o topico, mas em alguma parte percebi algo com relacao a versao do acess, creio que em um comentario do Vieira... nao tive a oportunidade de testa-lo, pois estou me recuperando de uma cirurgia e estou digitando no tablet, portanto sem acesso ao access. Podes deixar o topico aberto e ver se alguem mais tem outra sugestao, enquanto sto podes pesquisa#r mais sobre o assunto. Assim que possivel eu tambem tentarei algo. Caso consiga posto.

Cumprimentos

Valeu Amigão.
Vou manter, então, em aberto.

Abraços

Boa recuperação

Obrigado

Tente este link

http://www.lebans.com/mousewheelonoff.htm

Baixei o exemplo e realmente funciona, só não sei se é como voce quer.

Oi
José
Grato pela sua atenção.

Baixei os exemplos. No entanto não atende a questão. Vou explicar: No exemplo que postou abra o formulário "frmSampleData". Neste formulário, a sua direita (sub forms) selecione a palavra CLEOME. Se você utilizar as setas pra cima ou para baixo o foco vai para outra linha certo? Mas se você usar o Scroll do Mouse não acontece o mesmo, ou seja, a barra lateral é que vai ser movimentada!! Eu preciso que o resultado do Scroll do Mouse seja igual o das setas.

Abraços

Obrigado

Ola a todos;

Com o mesmo exemplo que à pouco fiz para o Andre, veja se é o que pretende;

http://dl.dropbox.com/u/771097/andreII.rar

Olá
João Paulo
É uma honra poder contar com seu auxilio.

Baixei o BD, mas não obtive o resultado esperado. Tomare que eu esteja errado, mas pelo que vi num dos tópicos (diálogo: João Paulo e Vieira) não vai ter jeito. Parece-me que o problema é o Access 2003!!!. Como disse, espero estar errado! Mas sei que se houver jeito, você saberá.

Grato pela ajuda

Obrigado

Luiz Gustavo

Luiz, amigão obrigado pelas suas palavras.

Eu tenho todas as versões do Ms Access instaladas no meu PC, e esse exemplo que disponibilizei em 2003 é somente para estar disponivel para todos.

Ele aqui funfa sim, a roda do mouse navega registro a registro.

Agora me animei!!!
Fiz um pequeno BD de exemplos mas não consigo postar (Zipado ficou com 15,9k).
Vou tentar explicar melhor:
É um forms contínuo com diversos campos. Os campos bloqueados, sem parada de tabulação, e com formatação condicional (expressão [neg]=-1). Sobre os campos tenho um botão transparente. No forms, no evento "No Atual" tenho:

Private Sub Form_Current()
CurrentDb.Execute "update tabela set neg = 0;"
Me.Repaint
Me!neg = -1
DoCmd.RunCommand acCmdSaveRecord
End Sub

A formatação condicional tem como função dar destaque a linha do registro que estou. Quando navego com as setas (para cima ou para baixo) obtenho o resultado esperado, já com o Scroll do Mouse não, pois ele movimenta a barra vertical.

Desculpe-me, mas sou iniciante no access. Tudo que aprendi foi aqui no forum e isto só faz uns 3 meses. Tenho dificuldade de expressar-me, pois não conheco os termos técnicos.

Abraços
Obrigado pela atenção

tente este outro exemplo do lebans

http://www.lebans.com/textwidth-height.htm

Oi
João

O exemplo é legal, mas não atende a questão.
Meu forms é contínuo.

Obrigado

Abraços

Desculpe mas nao entendi. O form do exemplo é continuo.

Oi
João Paulo

Desculpa...
A resposta que dei no item anterior foi para o José. Me equivoquei e escrevi "João" ao invés de "José".

Se puder dar uma olhada do exemplo agradeço.

http://www.4shared.com/file/j90F0hYU/Scroll.html

Só preciso que o comportamento do Scroll do Mouse seja igual o das setas (para cima ou para baixo)


Mais uma vez

Obrigado

Ficou igual ao exemplo que lhe mostrei;

http://dl.dropbox.com/u/771097/Scroll_OLD.rar

Bom final de semana e boas ferias para mim, até dia 27.

Jão Paulo
Boa tarde.

Não quero atrapalhar suas férias, hein!!!

Observei que você escondeu a barra vertical e adicionou "Call DoMouseWheel(Me, Count)" no evento Na Roda do Mouse.

No entanto, no meu micro, não funcionou, quando rodo o Scroll do Mouse, nada acontece. Uso Access 2003 e meu sistema operacional é o Windowns XP. Será que tem alguma relação?

Abraços

Ae é que não sei.

Meu sistema aqui no trabalho, tambem é XP e Access 2003, e funfa com nota 10...

Olá
João Paulo

Ao abrir o forms o foco vai para o registro 1. Quando você roda o Scroll do Mouse o foco vai para o 2, depois o 3, e assim por diante?

Isso mesmo...

Posso até fazer um video para você ver, ou pedir a algum usuário que teste.

Também testei aqui os arquivos disponibilizados pelo JPaulo e não funcionaram com o mouse.

Será que é alguma DLL ou alguma configuração do access?


abraços.

Veja em video;

http://dl.dropbox.com/u/771097/form.rar

Nossa João Paulo!

Essa solução é tão importante para meu BD.
Estava até desmotivado pensando que realmente não fosse possível!

Sem abusar! Você pode me mandar o video?
O que posso fazer para descobrir o que está errado?
Se não é o Access e não é o Sistema Operacional, o que pode ser?

Abraços

Boa tarde pessoal, fiz o teste no exemplo que o João Paulo postou na versão 2007 e 2010 e funcionou perfeitamente.
Atenciosamente, Luís Augusto.

Oi
Luís Augusto

Grato pela atenção

O joão paulo testou no Access 2003 e funcionou! No meu (2003) não funciona!!!

O que pode ser?

Bom dia Luiz Gustavo, pelo fato de ser iniciante não vejo lógica nessa questão, mas pensei na possibilidade de você verificar se existe algum service pack para a versão que está utilizando.
Este é o link do site da Microsoft para service pack 3 do office 2003. Segue: http://www.microsoft.com/downloads/details.aspx?familyid=e25b7049-3e13-433b-b9d2-5e3c1132f206&displaylang=pt-br

Atenciosamente, Luís Augusto.

Prezados:

Na versão 2003 do access deve-se fazer uma mudança na linha do código:

If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then

Mude o valor 12 para 11

Abraços.

Olá
José e Luís Augusto.
Agradeço a colaboração de ambos.

Quanto ao Service pack 3 já o tenho instalado, então não é o caso.

Quanto a mudança na linha do código José, não tenho a menor idéia de como fazê-lo!
Você pode orientar-me?

Abraços

Obrigado

Abra a aba Módulos. Abra o módulo modAlteraMouse

Vá até a linha que citei acima e altere o valor.

Grande abraço.

Parabéns José.
O problema foi resolvido.

Meu muito obrigado a todos que participaram deste tópico.