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


2 participantes

    [Resolvido]Impedir apagar dados de campos

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    [Resolvido]Impedir apagar dados de campos Empty Impedir apagar dados de campos

    Mensagem  OLDRIVG 19/3/2012, 12:39

    Prezados, bom dia.

    Como fazer para impedir, através de código" que o campo "X" tenha seus dados apagados se os campos "A", "B" e "C" estiverem preenchidos?
    Tentei utilizar "If not isnull (Me.A or Me.B or Me.C)" mas não conseguir prosseguir. Mais uma vez recorro-me aos participantes do forum.
    Agradeço
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Convidad 19/3/2012, 12:44


    If Not IsNull(Me.A) Or Not IsNull(Me.B) Or Not IsNull(Me.C) Then
    Me.X.Locked = True
    End If
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Silvio 19/3/2012, 13:07

    Bom dia...

    Com a permissão do grande Norbs também pode ser feito assim:

    no evento ao carregar formulário:

    seucampo1.Enabled = False
    seucampo2.Enabled = False
    seucampo3.Enabled = False

    e assim por diante,travando todos os campos. E o campo que pode ser mexido, não precisa entrar com ele no código acima.

    Para editar, esses campos, criar um botão e no evento ao clicar:

    seucampo1.Enabled = true
    seucampo2.Enabled = true
    seucampo3.Enabled = true

    e assim por diante, liberando todos os campos para edição.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  OLDRIVG 19/3/2012, 14:26

    Prezado Norbs,

    agradeço a sua atenção, mas não funcionou. Vou detalhar a situação para tentarmos achar uma solução.

    O formulário tem os campos "acao1", "acao2", "acao3", "acao4" e "acao5", sendo que somente o campo "acao1" é vísivel. Os demais só ficam visiveis se o campo imediatamente anterior estiver preenchido, ou seja, o campo "acao2" só fica visível se o campo "acao1" contiver dados; o campo "acao3" fica visível se o campo "acao2" contiver dados e assim sucessivamente até o campo "acao5".

    O que está acontecendo é que ao apagar os dados do campo 1, por exemplo, o campo "acao2" se torna invisível mas os demais("acao3","acao4" e "acao5") ficam visíveis, pois o campo "acao2", mesmo invisível, contém dados. Então o que estou querendo é evitar que o usuário apague os dados do campo "acao1" se contiver dados no demais campos ("acao2""acao3","acao4" e "acao5"). Ou seja, o usuário somente poderá apagar, e não editar, os dados de qualquer campo se o campo imediatamente posterior não contiver dados. Assim: se o usuário quiser apagar os dados do campo "acao3", somente poderá fazer se os campos "acao4" e "acao5" não contiverem dados.

    Colega Sílvio,

    agradeço também a sua sugestão, mas penso que ela não irá me atender neste projeto. Mas a guardarei para um outro. Achei interessante a dica.

    Aí, colegas, a situação é esta. Será que haverá uma solução?
    Desde já agradeço.
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  OLDRIVG 19/3/2012, 15:51

    Prezados Norbs e Silvio,

    obrigado pela a atenção e ajuda. Já consegui contornar a dificuldade.
    Usei a dica do Norbs porém sem o "or", mas implementando em cada campo e referenciando o campo anterior, da forma abaixo:

    If Not IsNull(Acao2) Then
    Me.Acao1.Locked = True
    Else
    Me.Acao1.Locked = False
    End If

    Obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Convidad 19/3/2012, 15:55


    Muito bem!
    Agradecemos o retorno.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Silvio 19/3/2012, 15:57

    Boa tarde OLDRIVG

    Estava fazendo a mesma coisa, porém um pouco diferente, mas com a devida permissão de Norbs.

    eu estava travando os campos que precisavam ao abrir o formulário e depois em cada campo no evento em sujo liberava ele.

    de uma olhada no exemplo.

    Abraços.

    Agradecemos o retorno.

    Agora que eu vi o retorno do Norbs.

    Abraços a ti também Norbs.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Convidad 19/3/2012, 16:29


    Abraço pra você, Silvio!
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  OLDRIVG 19/3/2012, 17:04

    Prezado Silvio,

    mais uma vez agradeço a ajuda. Infelizmente não tenho o Access 2007/2010 na minha máquina. Mas baixei o exemplo e amanhã eu dou uma olhada no PC do serviço. O conhecimento nunca é demais.
    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Impedir apagar dados de campos Empty Re: [Resolvido]Impedir apagar dados de campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2024, 22:46