[Resolvido]Bloqueio do Scroll

Com referência a este exemplo:
http://dl.dropbox.com/u/771097/BloqueiaMouse.rar

Prezados,
neste exemplo de bloqueio do scroll disponibilizado por você, há como adaptá-lo para que não precise usar o botão de ativar ou desativar?
Já tentei mas não consegui. Preciso que o scroll fique desativado desde o momento em que o formulário é aberto ou carregado. Sei que o código é implementado em dos eventos (carregar ou abrir), mas não consegui criá-lo.
Obrigado

Tentou colocar o mesmo evento do botão que bloqueia? Poste tudo referente ao código para vermos como está.

Boa tarde

Sem Botão para bloquear ..

Colega Assis, bom dia.

Para que o código implementado no evento "ao abrir" do formulário funcione eu tenho que tirar a expressão "Option Explicit", ficando assim:

Option Compare Database
Private MouseHook As Object

Private Sub Form_Open(Cancel As Integer)
Set MouseHook = NewMouseHook(Me)
MouseHook.Scroll = True
End Sub
Private Sub Form_Timer()
MouseHook.Scroll = False
End Sub

Com a expressão "Option Explicit", está dando erro no código abaixo

If Not IsNull(Me.DataDeNascimento) Then

If Month(DataDeNascimento) > Month(Date) Then
intidade = DateDiff("yyyy", DataDeNascimento, Date) - 1
ElseIf Month(DataDeNascimento) < Month(Date) Then
intidade = DateDiff("yyyy", DataDeNascimento, Date)
ElseIf Month(DataDeNascimento) = Month(Date) Then
If Day(DataDeNascimento) <= Day(Date) Then
intidade = DateDiff("yyyy", DataDeNascimento, Date)
ElseIf Day(DataDeNascimento) > Day(Date) Then
intidade = DateDiff("yyyy", DataDeNascimento, Date) - 1
End If
End If

que é utilizado para calcular a idade atual do cadastrado.
É imprescindível utilizar a expressão "Option Explicit" na declaração?
Obrigado

Boa tarde
OLDRI

Se o seu BD é na versão 2003 poste aqui, para analizar.

Ok, Assis.
É versão 2003.
Segue o BD para análise.
Abra o frm_Cadstro_Geral para ver o erro. Segue o frm_Funcionarios pois a funçao "calculaidade" é usada nele.
Obrigado

Só como dica: O Option Explicit verifica se as variáveis do módulo estão sendo usadas realmente e se estão no formato correto. Esse atributo não é obrigatório para o funcionamento do módulo, mas ele garante maior performance e melhor leitura por verificar se não tem objetos sem uso e se não tem objeto declarado de forma incorreta.

OLDRI

O seu campo idade mostra Anos Meses e Dias. Já reparou que os seus funcionários tem sempre a msema idade.
Teste:
Veja um funcionario que idade tem hoje dia 27-03-2012
Altere a data do PC para 31-03-2012
Abra o form Funcionario .... a idade é a mesma.
Não deve guardar a idade numa tabela mas sim calcular a idade numa consulta para esta se ir actualizando.

Quanto ao Option Explicit, leu a explicação do Mestre Criquio.

Ok.Assis.
Não havia feito testes abrindo e fechando o formulário ou não atualizando o campo DataDeNascimento. A idade só muda se atualizar o campo DataDeNascimento.

Essa consulta a qual se refere para calcular a idade, como seria criada? Poderia dar uma dica?

Quanto a dica do Criquio, a quem agradeço, pelo que eu entendi deve estar havendo alguma declaração de objeto incorreta, pois está retornando erro quando é inserido Option Explicit, correto?

OK, Moderador