[Resolvido]Impedir atualização de data na tabela antes de inserir novo registro

Pessoal, estou tentando construir um evento que impede o usuário de atualizar um campo caso a data de outro campo esteja em branco. Estou tentando fazer assim:

DATA DE RECEBIMENTO: 05/12/2012
DATA DE DEVOLUCAO: 06/12/2012
DATA DE RETORNO: 07/12/2012
DATA_GTAP: 08/12/2012
DATA_RETORNO: 09/12/2012

Eu quero o fluxo deste jeito, estas datas são amostragem de como o fluxo deve ser.

Quero evitar isso:

DATA DE RECEBIMENTO: 05/12/2012
DATA DE RETORNO: 06/12/2012
DATA DE RETORNO: 07/12/2012

Esta informação está errada, pois preciso alimentar antes a data de devolucao ou a data de gtap, o código vba precica verificar se o campo data_devolucao ou data_gtap estão em branco. Se estiverem precisa bloquear a inserção do retorno, assim evitaria inserir retornos sem antes terem passado nas 2 datas verificando se alguma delas foram atualizadas. O código que tentei fazer foi este:


Ao sair do campo:

Private Sub SIPRO_Exit(Cancel As Integer)
Dim SIPRO As String
Dim rstDoc1 As DAO.Recordset
SIPRO = "SELECT tbl_devolucao.SIPRO, tbl_devolucao.DATA_DEVOLUCAO, tbl_devolucao.DATA_RETORNO, tbl_devolucao.DATA_GTAP FROM tbl_devolucao;"

If Me.DATA_DEVOLUCAO or DATA_GTAP = "" Then
MsgBox "O processo" & Me!SIPRO & "não foi devolvido pelo analista! Não será permitido inserir o retorno!"
End If
End Sub

Está dando erro. Os atributos da tbl_devolucao são:

SIPRO
login
DATA_DEVOLUCAO
DATA_RETORNO
DATA_GTAP

Todas as datas recebem a função Agora() e são definidas como datas completas. Obrigado.

Boa noite Guilherme ja lhe adverti no tópico:

http://maximoaccess.forumeiros.com/t10735-consultar-datas-antes-de-atualizar

Sobre escrever em maiúsculas, está desrespeitando as normas do fórum.
Esta dúvida tambem é semelhante a dúvida no outro tópico, são as mesmas?

Caso sejam dúvidas diferentes agradeceriamos se editasse o tópico para letras minusculas pois na web digitar em maiúsculas é como se gritasse.

Moderação

Caso insista no erro poderá ter sua barra de reputação diminuída.

Desculpe meu amigo. Eu tinha feito 2 porque achei que o primeiro tópico eu não consegui excluir. Quanto as caixas altas dos meus tópicos eu não vou colocar mais.

O outro tópico não é necessário?

Cumprimentos.

Amigo, eu estou chegado perto, olha o código no evento ao sair:

Private Sub DATA_RETORNO_Exit(Cancel As Integer)
If IsNull(DATA_DEVOLUCAO) Then
MsgBox "Não é permitido inserir retorno antes de inserir DEVOLUCAO/SRE ou DEVOLUCAO/GTAP!"
Cancel = True
Undo
End If
End Sub


Porém preciso bloquear a inserção, tem como dar o clean e fechar o form?

Private Sub DATA_RETORNO_Exit(Cancel As Integer)
If IsNull(DATA_DEVOLUCAO) Then
MsgBox "Não é permitido inserir retorno antes de inserir DEVOLUCAO/SRE ou DEVOLUCAO/GTAP!"
Cancel = True
Undo
DoCmd.Close acForm, "NomeDoSeuForm"
End If
End Sub

Cumprimentos.

Caro amigo, eu estou testando, mas não está funcionado.

Private Sub DATA_RETORNO_Exit(Cancel As Integer)
If IsNull(DATA_DEVOLUCAO) Then
MsgBox "Não é permitido inserir retorno antes de inserir DEVOLUCAO/SRE ou DEVOLUCAO/GTAP!"
Cancel = True
Undo
DoCmd.Close acForm, "CADASTRO/RETORNO"
End If
End Sub


Eu precisaria limpar o SIPRO e fechar o form. Porque será que não está dando certo?

Teste assim:

Private Sub DATA_RETORNO_Exit(Cancel As Integer)
If IsNull(DATA_DEVOLUCAO) Then
MsgBox "Não é permitido inserir retorno antes de inserir DEVOLUCAO/SRE ou DEVOLUCAO/GTAP!"
Me.Undo
DoCmd.Close acForm, "CADASTRO/RETORNO"
Cancel = True
End If
End Sub

Amigo, está aparecendo: Erro de execução '2585' Esta ação não pode ser executada durante o processamento de um evento de formulário ou relatório.

Aponta este evento
DoCmd.Close acForm, "CADASTRO/RETORNO"

Eu postei o bd no link:

speedy.sh/8HbX2/bd-ap.rar

Caso você possa, baixe o bd, faça login de um usuário gerente e acesse o DCCTA/AP > form/ap > botão retorno > digite: 2222222-2222/2222-2 igual na máscara de entrada e quando passar da data aparecerá a mensagem com o erro de execução, coloque este código antes e faça o teste. Eu queria que não gravasse e fechasse o form, também queria que se a data_gtap ou a própria data_devolucao estivesse em branco exibisse a mensagem e impedisse a atualização, porque não se pode retornar sem enviar. Obrigado.

Amanha vejo isto pra ti.

Cumprimentos.

Obrigado.

Caro amigo, eu vou descrever para você alguns pontos:

A tabela de devolução possui um limite de movimentações, no total são 12 movimentações do processo. Assim que atingir este limite ele exibirá uma mensagem informando para o usuário que o processo atingiu o limite máximo de devoluções. Também na tabela de devoluções possui a própria data de devolução, a data de retorno e data de gtap (Grupo de Trabalho de Aposentadorias). O sistema funciona assim:


O usuário logado no form/rex cadastra o processo:

SIPRO
MASP DO REQUERENTE (é a matrícula do requerente, ex: professor, policial civil, auditor da fazenda)
REQUERENTE (nome da pessoa)
TIPO/AP (aposentadoria integral, proporcional, voluntária, invalidez e etc...)
ORIGEM (secretaria de origem, ex: secretaria da educação, fazenda e etc...)
DATA_REX (data completa interna do sistema)

A partir deste formulário, outro usuário logará no form/ap para cadastrar a distribuição do processo para um analista de aposentadoria. O form/ap contém:

CADASTRAR ANALISTA: onde contém SIPRO e uma caixa de como list NOME DO ANALISTA

Possui outros botões também, mas não vou explicá-los porque estou tentando colocar esta restrição no retorno. Este retorno dependerá do form/analista onde contém:

DEVOLUÇÃO DRH/SRE
DEVOLUÇÃO GTAP

O analista efetuará login no grupo usuários e cadastrará o envio do processo para a secretaria de origem que pode ser secretaria da educação, polícia civil e etc. Eu não vou normalizar a descrição da devolução, vou somente informar que o processo foi devolvido. Assim que o processo voltar será cadastrado pelo usuário gerente no form/ap e incluirá no retorno. Só que eu preciso que sistema verifique se a data_devolucao ou data gtap foi incluída antes, ou seja, o analista tem que cadastrar do envio (devolução ou devolução gtap) e o retorno será cadastrado para o usuário que tem permissão de acessar o form/ap, senão o usuário poderá inserir por exemplo, até 12 retornos sem envios, porque seriam 6 envios e 6 retornos, estes 6 envios podem ser para devolução para secretaria de origem ou para o GTAP (Grupo de Trabalho de Aposentadorias). Obrigado.

Amigão.. a informação puramente textual nesse caso.. complica um pouco para entender o processo...

Se possivel disponibilize parte do bd para que possamos ver e entender isto.

Abraços.

Percebi agora que disponibilizaste um link... vou baixar..

Até mais.

O link está aí. Agradeço por sua ajuda.

http:\\speedy.sh/8HbX2/bd-ap.rar

Cite com claresx e detalhe o processo que fará.. citando os forms envolvidos

Cumprimentos

Caro amigo, sou bastante leigo em VBA. Você poderia me dar uma força? Caso eu não consiga resolver isto, vou deixar assim mesmo. Obrigado.

Estou apenas aguardando as informações que solicitei na mensagem de numero 16

Abraços.

Caro amigo vou explicar, existe um form/analista que ao ser carregado por um usuário logado aparece umas opções:


Botão de publicar processo de aposentadoria
Botão de excluir publicação de aposentadoria
Botão de devolução drh/sre(Superintendência Regional de Ensino)
Botão de devolução GTAP (Grupo de Trabalho de Processos de Aposentadoria)
Botão fiscap (Sistema de Fiscalização de Atos de Pessoal)

O form/analista está ligado ao form/ap pelo número de SIPRO que é chave primária e estrangeira. O que eu estava pensando é: inserir um código que impediria o usuário digitar mais de 1 processo por data. Tipo assim:

A chave SIPRO é estrangeira na tbl_devolucao, e está relacionada com o form/ap no botão de retorno, o processo por exemplo: 1111111-1111/1111-1 ao ser inserido como retorno não poderá ser inserido mais de uma vez no mesmo dia. Tipo, gravei o processo 1111111-1111/1111-1 hoje, dia 08/12/2012. Aí por um equívoco eu inseri novamente 1111111-1111/1111-1, em vez de passar ele exibe: O processo 1111111-1111/1111-1 só poderá ser inserido no dia seguinte. Assim daria para barrar o erro. Não seria uma forma muito correta, mas para mim serviria porque evitaria erros de lançamento.

Amigão cite assim:

Fulano Clica no botão xno form y... para fazer isso, ai ele não pode faze isso porque o form ja tem aquilo..

De uma descrição de uma operação para que eu possa entender a sistemática disso.

Cumprimentos.

Voce disse:

O form/analista está ligado ao form/ap pelo número de SIPRO que é chave primária e estrangeira.

Mas o form/Analista não está vinculado a tabela alguma.. como pode estar ligado ao form/ap?

Amigão.. não sei se entendi bem, mas darei aqui algumas opções para contagem de dados na tabela devolução, aplique conforme desejar..

Aqui conta-se o sipro levando em conta

1 - Data devolução = data na caixa texto
2 - Campo Data_GTAP = Nulo
3 - Sipro = Sipro na caixa texto..

Então suponha que exista uma devolução para o sipro mas o campo Data-GTAP esteja nulo, ele contará 1
Ai podes tomar a atitude para esta codição (permitis cadastrar ou não)

DCount("SIPRO", "tbl_Devolucao", "IsNull(Data_GTAP)=True And Data_Devolucao = #" & Data_Devolucao & "# And SIPRO ='" & Me!SIPRO & "'")

Aqui conta-se quantos Sipro tem digitado na data da caixa texto

DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_GTAP])= True And Data_Devolucao = #" & Format(dtDevolucao, "mm/dd/yyyy") & "# And SIPRO ='" & Me!SIPRO & "'")

Parta desse princípio e teste.

Cumprimentos.

Caro amigo,

Descobri um erro no relacionamento, o relacionamento da tbl_devolucao deveria estar ligando na tbl_processo_ap e da tbl_processo_ap estaria ligado na tbl_devolucao. Vou testar o seu código aqui e retornarei a mensagem com certeza. Vou avaliar novamente os relacionamentos e dar uma resposta para você. Obrigado por sua ajuda.

Esste primeiro Dlookup creio que lhe servirá, se observar a lógica de critérios para nulos, poderás ter uma infinidade de combinações para contagem;

Aguardamos.

Cumprimentos.

Caro amigo, eu estive pensando, fiz uns prints da tela e gostaria caso seja possível, você dar uma avaliada. Eu postei no link: http://speedy.sh/WQHjm/Imagens-explicativas-bd-aposentadoria.rar

Só para você entender o procedimento. Quando o usuário estiver logado no form/ap e clicar em retorno. Obrigado.

Caro amigo. Preferi encerrar este tópico e abri outro com as imagens do procedimento. Obrigado.

Pessoal, eu já postei em alguns tópicos, mas ainda não consegui resolver o problema. Quero impedir que o usuário evite erros de lançamento. Quero que ao ser digitado um processo o sistema impeça novo lançamento para o mesmo processo no mesmo dia. Tipo, o código é uma chave estrangeira que permite inserir até 12 lançamentos, mas quero que o usuário consiga gravar um retorno do mesmo processo por dia. Se ele tentar cadastrar 2 retornos do mesmo processo no mesmo dia o sistema barra. Será que tem jeito?


Postei as imagens para vocês darem uma olhada: http://speedy.sh/WQHjm/Imagens-explicativas-bd-aposentadoria.rar

Este tópico ja tinha até proposta de soluções amigão... O correto seria postar as telas aqui.. Dessa forma não ficaremos com tópicos esparços e sem solução.

Este tópico será fundido ao que criaste.

Evite este tipo de acontecimento no futuro.

Teste as soluções propostas..

Moderação.

Peço desculpas caro amigo, fiz as tentativas que você postou e não consegui. Achei que postando as imagens ficaria mais fácil o entendimento. Fiz até algumas tentativas no fórum para achar algum tópico semelhante. O que eu estou tentando fazer é apenas deixar gravar o dado uma vez por data até atingir a quantidade máxima de 6 retornos. Eu tenho outro código que impede a atualização se tentar ultrapassar 12 vezes. Realmente eu estou achando muito difícil, pois não encontro exemplo semelhante. Mas de qualquer forma obrigado. Mais uma pergunta, tem como apagar os meus tópicos não resolvidos?

Bom dia colega, a sistematica do Fórum é justamente a evolução do Tópico e da ajuda, as vezes não se conseguirá solução na primeira resposta por isso deves ter paciência em aguardar a resposta em apenas um tópico, vamos la...

1 - Não posso apagar os tópicos abertos para não penalizar o ranking de respostas dadas pelos usuários
2 - Se os tópicos forem sobre o mesmo assunto, os moverei a uma sala restrita (não visível aos demais usuários)

>>> cole aqui os links dos tópicos abertos para que eu analise que ação tomar quanto aos mesmos.

>>> O que pretende na sua duvida, a solução proposta por mim atende às suas necessidades, descreva em qual form deseja este procedimento e o que deseja que este form faça quando tenta cadastrar uma nova data para o sipro.

Aguardo.

Cumpimentos.

No formulário de cadastro de retornos. Eu preciso só evitar que o mesmo processo seja cadastrado mais de uma vez no mesmo dia. O processo poderá se repetir até 6 vezes, mas quero bloquear cada atualização. Uma por dia. Eu estou pesquisando no fórum mas não encontro tópico semelhante ao meu problema. As imagens que postei são apenas para facilitar o entendimento. O formulário está em caixa alta no bd, é CADASTRO/RETORNO. Obrigado.

Amigão... eu realmente não sei porque está a procurar... se a solução para o teu problema eu ja postei aqui...

Com o DCount... esta expressão fornece varias configurações para impedir o processo... Basta uma boa observação para aplicar...

Pergunto: Tentou ao menos?

Sim, caro colega. Eu tentei e tentei, Olha só para você ver:

Private Sub SIPRO_Exit(Cancel As Integer)
If DCount("*", "tbl_devolucao", "SIPRO = " & Me.SIPRO & " And DATA_RETORNO =#" & Date & "#") > 1 Then
MsgBox "Não é permitido inserir o mesmo retorno novamente!", vbCritical, "ATENÇÃO"
End If
End Sub

Mas não está dando certo. Preciso impedir que o usuário cadastre mais de 1 retorno por dia, ou seja, poderá cadastrar o mesmo processo com data diferente, por exemplo: retorno hoje dia 12/12/2012, ao tentar retornar o mesmo processo ele não deixa, amanhã, dia 13/12/2012 ele deixará, seria isso que eu estou tentando fazer, mas não sei como fazer.

Está dando erro ma expressão.

Tai amigão.. os teus campos datas tem que ser do tipo Data Geral

'Para quando a Data de Devolução estiver em branco
If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao])= True  And SIPRO ='" & Me!SIPRO & "'") = 1 Then
    MsgBox "Este processo não foi incluído como devolução ou devolução gtap", vbInformation, "ATENÇÂO"
'Para quando a Data de Devolução for anterior
ElseIf DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao])= False  And SIPRO ='" & Me!SIPRO & "'") = 1 And DLookup("Data_Devolucao", "tbl_Devolucao", "SIPRO ='" & Me!SIPRO & "'") < Now() Then
    MsgBox "Aceita o Cadastro pois tem data/hora devolucao e é menor que a data/hora atual", vbInformation, "ATENÇÂO"
End If
    

Cumprimentos.

Cara, você é o gênio em access. Obrigado mesmo, era isso que eu estava precisando. Muito obrigado, Deus te abençoe.

Só mais uma coisa, dá para inserir da data_gtap?

Amigão uma pergunta.... Deseja soluções prontas ou aprender a fazê-las?

Se deseja aprender, o caminho das pedras está ai.. transformado em suave tapete...
Uma boa observação sei que conseguirás... Vamos la... estou aqui na torcida... qualquer coisa apite.

Não se esqueça de clicar no Joinha da Mensagem que o auxiliou.

Cumprimentos.

Aprender é claro, meu amigo! Vamos encerrar por aqui. Qualquer coisa caso eu tenha maiores dificuldades eu abro novo tópico. Valeu pela ajuda.

É isso ai, este é o espírito do Fórum, qualquer coisa sendo sobre o mesmo assunto poste neste mesmo tópico.

Uma última dica: Não abra tópicos sobre a mesma dúvida Ok?

Bons estudos.

Ok. Obrigado.

O Fórum agradece o Retorno.