MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Retirar filtro que bloqueia registros

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Retirar filtro que bloqueia registros Empty [Resolvido]Retirar filtro que bloqueia registros

    Mensagem  lerasmo 30/6/2022, 18:24

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10764
    Registrado : 04/11/2009

    [Resolvido]Retirar filtro que bloqueia registros Empty Re: [Resolvido]Retirar filtro que bloqueia registros

    Mensagem  JPaulo 4/7/2022, 10:02

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar filtro que bloqueia registros Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar filtro que bloqueia registros Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar filtro que bloqueia registros Folder_announce_new Instruções SQL como utilizar...
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Retirar filtro que bloqueia registros Empty Retirar filtro que bloqueia registros

    Mensagem  lerasmo 4/7/2022, 13:30

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2513
    Registrado : 13/12/2016

    [Resolvido]Retirar filtro que bloqueia registros Empty Re: [Resolvido]Retirar filtro que bloqueia registros

    Mensagem  Alexandre Fim 4/7/2022, 13:49

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

    Att,
    FIM


    .................................................................................
    [Resolvido]Retirar filtro que bloqueia registros Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Retirar filtro que bloqueia registros Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Retirar filtro que bloqueia registros Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Retirar filtro que bloqueia registros Empty Retirar filtro que bloqueia registros

    Mensagem  lerasmo 4/7/2022, 14:51

    Caro Alexandre Fim,
    Segue o arquivo Prot.zip.
    Saudações,
    Luiz
    Anexos
    [Resolvido]Retirar filtro que bloqueia registros AttachmentProt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (302 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2513
    Registrado : 13/12/2016

    [Resolvido]Retirar filtro que bloqueia registros Empty Re: [Resolvido]Retirar filtro que bloqueia registros

    Mensagem  Alexandre Fim 4/7/2022, 16:27

    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



    .................................................................................
    [Resolvido]Retirar filtro que bloqueia registros Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Retirar filtro que bloqueia registros Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Retirar filtro que bloqueia registros Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Retirar filtro que bloqueia registros Empty Retirar filtro que bloqueia registros (Resolvido)

    Mensagem  lerasmo 4/7/2022, 18:00

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


    Última edição por lerasmo em 4/7/2022, 20:12, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2513
    Registrado : 13/12/2016

    [Resolvido]Retirar filtro que bloqueia registros Empty Re: [Resolvido]Retirar filtro que bloqueia registros

    Mensagem  Alexandre Fim 4/7/2022, 18:56

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

    Abraço
    FIM


    .................................................................................
    [Resolvido]Retirar filtro que bloqueia registros Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Retirar filtro que bloqueia registros Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Retirar filtro que bloqueia registros Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 15/8/2022, 13:55