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

    Deletar usando vba em access sem deletar coluna ou linha inteiras

    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Qui Ago 04, 2016 12:47 pm

    Boa tarde!
    Meu problema é o seguinte:
    Estou construindo um banco de dados com validades de medicamentos, e coloquei a seguinte caixa de texto que inicia após incluir um item fora de validade:
    Private Sub ValidCapsSub_AfterUpdate()
    If ValidCapsSub <= Date Then
    MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
    End If
    End Sub

    Gostaria que o access deletasse o registro (sem deletar a coluna ou a linha inteiras) após este aviso, como devo fazer?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Qui Ago 04, 2016 1:34 pm




    Se vai excluir, então não deixe incluir, tipo assim:

    Código:


    Private Sub ValidCapsSub_AfterUpdate()

          If ValidCapsSub <= Date Then
         
              MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
              DoCmd.CancelEvent
              Exit Sub

          End If

    End Sub



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Sex Ago 05, 2016 9:32 am

    Não deu certo. continua do mesmo jeito no formulário.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Sex Ago 05, 2016 10:10 am

    altere e tente dessa forma:

    Código:

    Private Sub ValidCapsSub_AfterUpdate()

    Dim Atual As Date
    Atual = Now()


        If CDate(ValidCapsSub) <= CDate(Atual) Then
          
               MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
               DoCmd.CancelEvent
               Exit Sub

          End If

    End Sub


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Sex Ago 05, 2016 11:04 am

    Segue sem dar certo e agora ele envia o comando pro depurador.
    Reformulando a dúvida:
    Tenho um subformulário onde vou incluir as validades de medicamentos em capsulas, consegui colocar uma caixa de texto avisando quando a data de validade do medicamento expirou.
    Consegui, após isto, colocar um comando que exclui o registro:
    DoCmd.RunCommand acCmdDeleteRecord
    Entretanto, eu gostaria de manter o registro apagando somente a célula do subformulário (que se apresenta como tabela) em que se encontra a validade expirada, isto impediria a entrada de itens vencidos no meu estoque.

    Desde já, agradeço a atenção.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Sex Ago 05, 2016 12:36 pm




    Pode postar o form e tabela envolvidos.




    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Sex Ago 05, 2016 5:44 pm

    O arquivo tem mais de 5MB de tamanho, tem como me mandar seu e-mail por mensagem privada para que eu possa enviar?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Sex Ago 05, 2016 6:12 pm


    se fizermos estaremos quebrando as regras do forum, posta num servidor tipo dropbox e compartilha o link aqui.

    abraços


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Sab Ago 06, 2016 5:00 am

    Ok:
    https://1drv.ms/f/s!AnanwwTSdGo4kwDoC0rxBV4TQRMC
    é o link que contém o arquivo.
    Abra o banco de dados usando shift+enter
    Em formulários há um chamado Frm_FichaCaps, abra-o no modo design.
    De cada aparecerá um sub-formulário rotulado como Composição:
    O rótulo Validade: estará associado ao campo ValidCapsSub, é nele que estou com esta dúvida.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Sab Ago 06, 2016 12:36 pm


    blz vou dar uma analisada.


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Qua Ago 10, 2016 10:14 pm

    Boa noite Raimundo,

    Duas coisas: a primeira, o formulário em questão não veio. Segunda, o BD tá vazio, não dá pra saber como ele é utilizado.

    No aguardo,

    Cleverson


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Repostando o link

    Mensagem  Raimundo Jeová Sex Ago 12, 2016 5:40 am

    Eis o link:
    https://onedrive.live.com/?authkey=%21AOgLSvEFXhNBEwI&id=386A74D204C3A776%212432&cid=386A74D204C3A776
    A orientação é a mesma.
    No aguardo.
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Qua Ago 17, 2016 11:22 am

    Observando, decidi que a opção por excluir ou não excluir o registro era a melhor mesmo, pois a mesma também o deixa selecionado.
    Portanto, agradeço a disponibilidade.
    Grato.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  cleverson_manaus Qua Ago 17, 2016 12:21 pm



    Boa tarde Raimundo,


    Grato pelo retorno, o fórum agradece.

    Favor encerrar o tópico.

    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Raimundo Jeová
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 01/08/2016

    Deletar usando vba em access sem deletar coluna ou linha inteiras Empty Re: Deletar usando vba em access sem deletar coluna ou linha inteiras

    Mensagem  Raimundo Jeová Qui Ago 18, 2016 8:43 am

    Ok, tópico encerrado.

      Data/hora atual: Sex Jan 27, 2023 2:45 am