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]Excluir Registro com data atual ou posterior a data atual!

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 5/12/2012, 22:40

    Companheiros boa noite!
    Deu um branco na memória, conto com a ajuda dos inlustres.

    Tenho um campo no form com o nome "Data"

    No evento antes de atualizar do campo Data.
    Eu pretendo que quando o operador do programa
    digitar a data atual ou posterior a data do dia de hoje,
    o registro seja excluído ou disfeito,
    e surge a mensagem não há dados para a referida data.
    Na verdade não quero que haja a data atual no bd e nem a data posterior a data atual.

    Exemplo não quero registros com a data de hoje 05/12/2012 ou posterior!

    E não quero usar consulta exclusão quero em VBA.
    Aguardo a ajuda dos senhores.

    Abraço!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Alexandre Neves 5/12/2012, 23:47

    Boa noite, Lupércio
    DELETE * FROM Tabela WHERE Data>=Date


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Convidad
    Convidado


    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Convidad 5/12/2012, 23:53

    http://maximoaccess.forumeiros.com/t198-palavras-reservadas-do-access

    Não se esqueçam que Data é uma palavra reservada...

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 5/12/2012, 23:58

    Já sabia mas obrigado por lembrar! Very Happy
    O campo data que referi na verdade é "DataGeracao"
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 6/12/2012, 00:00

    Boas caro Alexandre não sei por onde começar, não está dando certo, e preciso do retorno da mensagem como detalhei na mensagem acima.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Alexandre Neves 6/12/2012, 00:02

    Poderá ser da formatação
    DELETE * FROM Tabela WHERE Format(Data,'dd-mm-yyyy')>=Date
    ou
    DELETE * FROM Tabela WHERE Format(Data,'mm-dd-yyyy')>=Date


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 6/12/2012, 00:12


    Alexandre!

    Veja o que estou querendo adaptar!

    Private Sub Data_AfterUpdate()

    On Error GoTo Trato
    Dim QuantDestaData As Integer
    QuantDestaData = Delete(FROM("*", "TabelaGeração", "Data= Forms!FormulárioGeraçãoMestre.Data = WHERE Format(Data,'mm-dd-yyyy')>=Date
    If QuantDestaData > 0 Then
    If Not Confirmar("voce não pode inserir um registro com a data atual ou superior) Then
    Cancel = True
    Me.Undo
    Else
    End If
    End If
    Exit Sub
    Trato: MsgBox Err.Description

    End Sub
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 6/12/2012, 01:04

    É companheiros!
    To de cabeça quente não está dando certo! No
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Marcelo David 6/12/2012, 01:24

    Se é antes de atualizar, poderia por algo assim:

    Código:
    If me.SeuCampodata >= Date Then
      MsgBox "A data não pode ser igual ou posterior a hoje", vbInformation, "Data inválida"
      Cancel = True
    End If


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Marcel11
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 6/12/2012, 01:54

    Olá grande Marcelo boas amigo, funcionou aqui fiz uma adaptação com o que me passou e funfou! Laughing
    Obrigado e um grande abraço!

    Ficou assim:

    Private Sub DataGe_BeforeUpdate(Cancel As Integer)
    If Me.DataGe >= Date Then
    MsgBox "Não há registro de geração para a eventual data!", vbInformation, "Prezado Operador"
    Cancel = True
    Me.Undo
    End If
    End Sub


    Cara tem hora que da um branco! bounce
    Marcelo meus respeitos e admiração.
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Lupércio 6/12/2012, 01:55

    Resolvido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Marcelo David 6/12/2012, 02:17

    Grato pelo retorno, precisando estamos aqui! Very Happy


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Marcel11

    Conteúdo patrocinado


    [Resolvido]Excluir Registro com data  atual ou posterior a data atual! Empty Re: [Resolvido]Excluir Registro com data atual ou posterior a data atual!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:10