[Resolvido]Criar regra lançamento em registro

Bom dia pessoal,

Tenho o seguinte codifo em um botão que funciona perfeitamente, porem preciso implantar uma regra com aviso onde após atualizar o campo DATAVISTORIA nao permita o valor menor que o campo ( DATAENVIO, da tabela tblControleNotificações)...ja tentei algumas coisas aqui mas estou apanhando...


Private Sub Comando128_Click()
'DoCmd.SetWarnings False 'tirar avisos do acces
Refresh
DoCmd.RunSQL "INSERT INTO [tblLancamentoDocumentos] (CODIGO, PROCESSO, PROCESSO_OU_SOL, NOME, NOMEFISCAL, LOGNOME, LOGHORAEDATA, DATAVISTORIA, HORAVISTORIA, DOCUMENTO, NDOCUMENTO, OCORRENCIA, PRAZO)" & _
"SELECT [Formulários]![subformDevolucao]![CODIGO] AS CODIGO" & _
",[Formulários]![subformDevolucao]![PROCESSO] AS PROCESSO" & _
",[Formulários]![subformDevolucao]![PROCESSO_OU_SOL] AS PROCESSO_OU_SOL" & _
",[Formulários]![subformDevolucao]![NOME] AS NOME" & _
",[Formulários]![LOGADO]![Usuário] AS NOMESFICAL" & _
",[Formulários]![LOGADO]![Usuário] AS LOGNOME" & _
",Date() AS LOGHORAEDATA" & _
",[Formulários]![subformDevolucao]![DATAVISTORIA] AS DATAVISTORIA" & _
",[Formulários]![subformDevolucao]![HORAVISTORIA] AS HORAVISTORIA" & _
",[Formulários]![subformDevolucao]![DOCUMENTO] AS DOCUMENTO" & _
",[Formulários]![subformDevolucao]![NDOCUMENTO] AS NDOCUMENTO" & _
",[Formulários]![subformDevolucao]![OCORRENCIA] AS OCORRENCIA" & _
",[Formulários]![subformDevolucao]![PRAZO] AS PRAZO"
DoCmd.SetWarnings True 'recoloca avisos do access
MsgBox "Registrado com sucesso !"
Me.OCORRENCIA = Empty
Refresh
End Sub


Desde já agradeço antecipadamente..

Boa noite,
Não estudei o código mas quer que a verificação seja após a actualização? Se for antes, pode executar ou não; se for depois, será tarde para não executar

No evento após atualizar. Se a regra não atender a mensagem valor inválido

Nomeie os controlos de forma normalizada.
Private Sub Comando128_Click()
'DoCmd.SetWarnings False 'tirar avisos do acces
Refresh
if [Formulários]![subformDevolucao]![DATAVISTORIA]msgbox "mensagem..."
else
DoCmd.RunSQL "INSERT INTO [tblLancamentoDocumentos] (CODIGO, PROCESSO, PROCESSO_OU_SOL, NOME, NOMEFISCAL, LOGNOME, LOGHORAEDATA, DATAVISTORIA, HORAVISTORIA, DOCUMENTO, NDOCUMENTO, OCORRENCIA, PRAZO)" & _
"SELECT [Formulários]![subformDevolucao]![CODIGO]" & _
",[Formulários]![subformDevolucao]![PROCESSO]" & _
",[Formulários]![subformDevolucao]![PROCESSO_OU_SOL]" & _
",[Formulários]![subformDevolucao]![NOME]" & _
",[Formulários]![LOGADO]![Usuário]" & _
",[Formulários]![LOGADO]![Usuário]" & _
",Date()" & _
",[Formulários]![subformDevolucao]![DATAVISTORIA]" & _
",[Formulários]![subformDevolucao]![HORAVISTORIA]" & _
",[Formulários]![subformDevolucao]![DOCUMENTO]" & _
",[Formulários]![subformDevolucao]![NDOCUMENTO]" & _
",[Formulários]![subformDevolucao]![OCORRENCIA]" & _
",[Formulários]![subformDevolucao]![PRAZO]"
DoCmd.SetWarnings True 'recoloca avisos do access
MsgBox "Registrado com sucesso !"
Me.OCORRENCIA = Empty
Refresh
end if
End Sub

Caro Alexandre acho que me expressei mau...

É o seguinte, tenho um formulário filtrado desacoplando com somente o dado que eu quero no momento.

a tabela que da origem a esses dados chama-se tblControleNotificações, e possui os seguintes campos:

CODIGO;PROCESSO;PROCESSO_OU_SOL;NOME;ATENDIDO;AGENTE;LOGNOME;LOGHORAEDATA;DATAENVIO;DATAVISTORIA;AGENTELANCAMENTO

o formulário chama-se subformDevolucao

preciso que ao atualizar o campo DATAVISTORIA ele verifique se a data é maior que o campo DATAENVIO da tabela tblControleNotificações, com o campo CODIGO, que identifica o registro certo, se for maior ele roda o código abaixo

DoCmd.RunSQL "INSERT INTO [tblLancamentoDocumentos] (CODIGO, PROCESSO, PROCESSO_OU_SOL, NOME, NOMEFISCAL, LOGNOME, LOGHORAEDATA, DATAVISTORIA, HORAVISTORIA, DOCUMENTO, NDOCUMENTO, OCORRENCIA, PRAZO)" & _
"SELECT [Formulários]![subformDevolucao]![CODIGO] AS CODIGO" & _
",[Formulários]![subformDevolucao]![PROCESSO] AS PROCESSO" & _
",[Formulários]![subformDevolucao]![PROCESSO_OU_SOL] AS PROCESSO_OU_SOL" & _
",[Formulários]![subformDevolucao]![NOME] AS NOME" & _
",[Formulários]![LOGADO]![Usuário] AS NOMESFICAL" & _
",[Formulários]![LOGADO]![Usuário] AS LOGNOME" & _
",Date() AS LOGHORAEDATA" & _
",[Formulários]![subformDevolucao]![DATAVISTORIA] AS DATAVISTORIA" & _
",[Formulários]![subformDevolucao]![HORAVISTORIA] AS HORAVISTORIA" & _
",[Formulários]![subformDevolucao]![DOCUMENTO] AS DOCUMENTO" & _
",[Formulários]![subformDevolucao]![NDOCUMENTO] AS NDOCUMENTO" & _
",[Formulários]![subformDevolucao]![OCORRENCIA] AS OCORRENCIA" & _
",[Formulários]![subformDevolucao]![PRAZO] AS PRAZO"
DoCmd.SetWarnings True 'recoloca avisos do access
MsgBox "Registrado com sucesso !"
Me.OCORRENCIA = Empty
Refresh
End Sub

se for menor emite aviso que o valor é invalido

Coloque no acontecimento AposActualizar do controlo de data
if [Formulários]![subformDevolucao]![DATAVISTORIA]> dlookup("DATAENVIO","tblControleNotificações","CODIGO=" & ControloCodigoNoFormulario) then
DoCmd.execute "INSERT INTO [tblLancamentoDocumentos] (CODIGO, PROCESSO, PROCESSO_OU_SOL, NOME, NOMEFISCAL, LOGNOME, LOGHORAEDATA, DATAVISTORIA, HORAVISTORIA, DOCUMENTO, NDOCUMENTO, OCORRENCIA, PRAZO)" & _
"SELECT [Formulários]![subformDevolucao]![CODIGO]" & _
",[Formulários]![subformDevolucao]![PROCESSO]" & _
",[Formulários]![subformDevolucao]![PROCESSO_OU_SOL]" & _
",[Formulários]![subformDevolucao]![NOME]" & _
",[Formulários]![LOGADO]![Usuário]" & _
",[Formulários]![LOGADO]![Usuário]" & _
",Date()" & _
",[Formulários]![subformDevolucao]![DATAVISTORIA]" & _
",[Formulários]![subformDevolucao]![HORAVISTORIA]" & _
",[Formulários]![subformDevolucao]![DOCUMENTO]" & _
",[Formulários]![subformDevolucao]![NDOCUMENTO]" & _
",[Formulários]![subformDevolucao]![OCORRENCIA]" & _
",[Formulários]![subformDevolucao]![PRAZO]"
end if

Consegui resolver, troquei a palavra formulários por form e foi, achei que nao tinha problema pelo access estar em pt-br, mas enfim valeu mesmo...grato