[Resolvido]Bloquear Redimensionar Colunas em Folha Dados, mas Permitir Filtro

Bom dia a Todos

Estou utilizando o exemplo do nosso amigo JPaulo postado aqui no forum sobre como bloquear o redimencionamento das colunas em formulário folha de dados:

Bloqueia o Redimensionamento das Colunas do formulário Folha de dados:

Coloque o formulário, com visualizar tecla = Sim

No evento VBA MouseDown do seu Formulário;


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'By JPaulo ® Maximo Access
If Button = acLeftButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
If Button = acRightButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
If Button = acMiddleButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
End Sub

O problema que como é utilizado no evento ao apertar o mouse, a rotina acaba não permitindo a utilização das ferramentas de filtragem das colunas
Já fiz testes em outros eventos, porem sem sucesso.

Alguém já possou por este problema....?
Alguma outra dica....??

Boas Marcelo desponibilize a parte do bd com o problema para que possamos ver.

Cumprimentos.

segue bd

teste tentando mudar a coluna.
ele apresenta a mensagem de inibição. até aí sem problemas.

Agora tente usar os filtros do form em folha de dados.........

at.

Quais filtros?

Não estou a percebê-los.


Cumprimentos.

Permite o filtro... só não pode clicar o botão do mouse com o cursor em cima do nome do campo... Aplique o filtro mas com o cursor sobre a tabela....


Agora se necessita de filtros, podes utilizar exemplos que temos aqui no fórum... sem ser necessário os nativos do Access.

Caixas texto no form aplicando filtros no subform... É a solução mais efizar e profissional.


Cumprimentos.

Bom dia Piloto

E´que neste caso eu precisaria utilizar os filtros nativos do access.
Quando convertido para .accdr o access não permite utilizar os filtros nativos clicando com o botão direito do mouse sobre a linha do form, a qual seria uma solução para o caso em utilizar o filtro.

Pensei que tal vês tivesse uma solução destro deste código vba do JPaulo.

Veja este exemplo...

A melhor solução seria esta... Não há porque utilizar os filtros nativos...

http://maximoaccess.forumeiros.com/t9891-resolvidofiltros-combinados-no-formulario


Cumprimentos.

Ok...

Vou dar uma estudada.....

Obrigado....
Vou encerrar por enquanto....

at.

O Fórum agradece o Retorno.

Bom Estudo.