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

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!

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

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

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

Já sabia mas obrigado por lembrar!
O campo data que referi na verdade é "DataGeracao"

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.

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

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

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

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

Olá grande Marcelo boas amigo, funcionou aqui fiz uma adaptação com o que me passou e funfou!
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!
Marcelo meus respeitos e admiração.

Resolvido.

Grato pelo retorno, precisando estamos aqui!