[Resolvido]Retirar filtro que bloqueia registros

Boa tarde, senhores,
Aproveitando a dica do Alexandre Fim, usei a função FiltraProtocolo() abaixo:
Public Function FiltraProtocolo()

With Me
.Filter = "Protocolo = " & vgProtocolo & " AND Ano = " & vgAno & ""
.FilterOn = True
.Requery
End With

End Function

Funciona que é uma beleza para cadastrar novo registro, mas quando uso o form Pesquisa, uso o comando abaixo no Lista19:
Private Sub Lista19_Click()

vgNovoReg = False
vgProtocolo = Lista19.Column(1)
DoCmd.OpenForm "Protocolo", acNormal

End Sub

Na execução:
Erro em tempo de execução '7752':
O Microsoft Access não pode aplicar o filtro porque todos os registros estão protegidos.
Pelo que entendi a função FistraProtocolo() está protegendo todos os registros.
A grande pergunta é existe maneira de cancelar a proteção no evento
Private Sub Lista19_Click() ? O problema é que ele vai executar a proteção quando abrir o Protocolo.
Saudações,
Luiz

Código:

Private Sub Lista19_Click()
'limpa todos os filtros
Me.Filter = ""
Me.FilterOn = False
Me.Refresh

vgNovoReg = False
vgProtocolo = Lista19.Column(1)
DoCmd.OpenForm "Protocolo", acNormal

End Sub

Bom dia JPaulo!
Obrigado pela atenção, mas quando abre o Protocolo, aparece ainda o erro dizendo que todos os registros estão bloqueados.
Fiz então uma cópia do do form Protocolo que batizei de ProtocoloPesq. Tirei então o filtro. não dá erro mas não localiza o registro desejado indicado na lista19.
Não consigo entender.
Saudações,
Luiz

Luiz bom dia,
Compartilhe uma copia do seu bd para análise e resolução do problema.

Att,
FIM

Caro Alexandre Fim,
Segue o arquivo Prot.zip.
Saudações,
Luiz

Luiz,

Nas propriedades do form "Protocolo", na aba Dados, a ultima propriedade "Proteções do registro" mude para SEM PROTEÇÃO.

E no formulário de pwsquisa, o indice da coluna estava errado. Estava como 1, que é o Ano e o ID do registro é a coluna ZERO(0):

Private Sub Lista19_Click()
'limpa todos os filtros
'Me.Filter = ""
'Me.FilterOn = False
'Me.Refresh

vgNovoReg = False
vgProtocolo = Lista19.Column(0)
DoCmd.OpenForm "Protocolo", acNormal

End Sub

Lembre-se, a contagem de colunas de uma listbox começa sempre por zero.

NOTA: um assunto muito abordado neste fórum também é o uso de boas praticas de programação, no que diz respeito na nomeação de controles.
Sempre que possível, substitua osn nomes para ficam mais legiveis. Isto vai ajudar na manutenção do teu sistema.

=== não usar ==
Lista19
Comando131
Comando125
Combinação129

procure utilizar nomenclatura pertinente à rotina usada.
ex. Lista19 poderia ser "lstPesqProtoc"
Combinação129 poderia ser cboMunic

E por ai vai.


É isso.

Att,
FIM

Boa tarde Alexandre!
Beleza, resolvido.
Muito obrigado como sempre!
Luiz

Valeu Luiz...sucesso !!!
Por gentileza, marque o tópico como resolvido !

Abraço
FIM