[Resolvido]Manter Registro em Foco dentro da Janela

Meu Boa Noite a Todos.
Tive dificuldades de dar ao Tópico um Título Apropriado, portanto peço para aqueles que tenham alçada para isto, alterarem o referido de forma a facilitar futuras consultas.

Achei difícel também, explicar com clareza o problema, portanto tomo a liberdade de postar o link abaixo, que acredito facilitar o entendimento:

http://www.4shared.com/file/3L9SpaB1/Janela.html

Access 2003. Trata-se de um subformulário contínuo com formatação condicional de modo a dar destaque a linha do registro em foco. O BD contém um módulo (modAlteraMouse / retirado de um exemplo que me foi enviado pelo João Paulo)que permite com o Scroll do Mouse navegar pelos registros.

O ploblema é que quando rolamos o scroll para baixo a linha em destaque some da janela (área visível). A única forma que encontrei foi habilitar a barra Vertical, mas aí o scroll move a barra e foge ao que preciso.

Obrigado

Prezado, leia isto...

http://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://allenbrowne.com/ser-70.html&ei=aRvMTputNcLj0QGf6sFM&sa=X&oi=translate&ct=result&resnum=3&sqi=2&ved=0CDcQ7gEwAg&prev=/search%3Fq%3DAllen%2BBrowne,%2BFebruary%2B2007.%26hl%3Dpt-BR%26biw%3D1280%26bih%3D857%26prmd%3Dimvnso

está traduzido, se entender ingles, poderá ir para a pagina original.

Agradeço a preocupação do Colega.
Mas travar o Scroll do Mouse, foje totalmente as minhas necessidades!

Continuo aqui na torcida!
Espero que algum membro do forum possa contribuir com mais esta empreitada.

Abraços

Obrigado

Se você colocar a barra de rolagem vertical no sub-formulário, parece que ameniza o problema.

Sim,
É como mencionei na abertura do Tópico.
Só que aí, o Scroll move a Barra, e eu preciso que o Scroll navege pelos registros.

No seu subformulário, no evento "na roda do mouse" acrescente uma linha...

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Call DoMouseWheel(Me, Count)
SendKeys "{F5}"

End Sub

Olá
José.

Apliquei sua sugestão.
O resultado foi bem parecido com o que obtemos quando habilitarmos a barra vertical.

Acredito que você tenha baixado o meu BD de explemplo.
Se nele você pressionar as setas (para cima ou para baixo), vai obter exatamente o resultado que espero que aconteca ao rolar o Scroll do Mouse.

To botando fé em você, hein!. Afinal, num tópico anterior, quando ficamos (eu e demais membros) sem saber para onde ir, você apareceu...., trocou um 12 por um 11 e, .....pronto : Resolveu

Grato pelo empenho e atenção.

Continuo aqui, contando com sua ajuda e demais menbros

Abraços

Boa noite

Senhores Moderadores Globais: Mantemos o Título para o Tópico?

Senhores Membros.
Estou contando com vossa ajuda

Abraços
e
Obrigados a todos

Ainda sem solução

Sem soluçao

Ainda sem solução!!!

Obrigado

Luiz Gustavo

Sem solução

sem solução

Bom dia amigos.

Peço ajuda aos amigos do forum.
Peço que se manifestem, mesmo que não tenham a solução.

grato

Luiz Gustavo

Luiz bom dia;

No módulo, tente mudar para 2 o que está grifado a vermelho, se não resultar, delete o que está grifado a vermelho e teste.


If CInt(Val(SysCmd(acSysCmdAccessVer))) >= 11 And (Frm.CurrentView = 1) And (lngCount <> 0&) Then

Oi
João

Não achei no módulo uma linha igual a que mencionou, mas achei uma bem parecida. Seria esta?

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

O que faço? Altero a que está no meu módulo ou subtituo pela que mandou?

Grato

Luiz, o que está grifado a vermelho existe, certo ????

Oi
JPaulo

Mudando 1 para 2 o scroll do mouse trava.
Removendo a parte que mencionou, não ocorre alteração, o ploblema persiste.

Obrigado

O engraçado da coisa é que aqui funfa, mas poderá ser por ter o 2007.

Pelo que li algures, no 2003 penso que não vai funfar mesmo.

Tambem o Ms Access 2003 tem os dias contados....

É JPaulo, os teimosos como eu vão ter que se conformar!

Senhores
JPaulo e Norbs

O que me aconselham?
Devo migrar para outra Versão do Access?
Caso sim, qual versão você me aconselhariam?
É possível, num mesmo PC instalar e trabalhar com 2 versões do Access?

Obrigado

Também estou no dilema, no mesmo pc não acho aconselhável.
Isso já era inconveniente quando trabalhava com o 2000 e migrei pro 2003.

Então a coisa complica: outro pc, outra licença do Windows, licença do Office 2007/2010... very expensive!

E todos meus sistemas são 2003. Aí tem que ficar desenvolvendo em duas versões, é mais trabalho!

Migração sempre envolve confusão. Mas como mencionou o JPaulo, os dias estão contados.

Fui claro?

Luiz eu uso o access 2007 testei aqui o seu exemplo e funcionou muito bem sem alterar nada talvez seja a versão do access que você usa, experimentar instalar o access 2007 assim você pode trabalhar com as duas versões do access e testar seus exemplos.
Eu instalei a versão completa do Access 2007 e tenho somente o Access 2000 instalado em minha maquina e meus novos trabalho faço no 2007 e atendo alguns cliente que tem alguns sistemas no 2000, funciona muito bem.

Norbs

Vou encerrar o tópico pondo resolvido e por observação de que "Não tem solução. Não é possível no Access 2003"

Posso fazê-lo?
Tenho o seu "de Acordo"?

Fico no aguardo

Abraços

Luiz Gustavo

Olá Luiz Gustavo

Não sugeri marcar como Resolvido!
Pelo contrário, a sugestão foi exatamente manter o foco no tópico!

É provável que um dos colegas venha nosso socorro.

Abraço!

Desculpa Amigão.
Interpletei errado!!!

Abraços

Luiz Gustavo