[Resolvido]ajuda em data

Caro colega Piloto,

Agradeço imensamente por sua ajuda e por me ensinar cada vez mais os recursos que esta maravilhosa ferramenta Access disponibiliza, como eu disse em um tópico anterior, estou precisando mais uma vez de sua ajuda este código:

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"


Funciona perfeitamente, mas preciso inserir mais uma data, seria a data_gtap, tentei:


If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao]or[Data_Gtap])= True And SIPRO ='" & Me!SIPRO & "'") = 1 Then

If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao or Data_Gtap] = True And SIPRO ='" & Me!SIPRO & "'") = 1 Then

E não consegui de forma alguma passar o código, tentei estudar uns exemplos para ver, mas não consegui.

Pode me dar mais uma força? Obrigado.

Preciso só colocar uma cláusula Ou. O código verifica se a data_devolucao foi alimentada ou a data_gtap. Caso as duas estiverem nulas bloqueia, senão ou a data_devolucao estará preenchida ou a data Gtap, aí o código passa, se o usuário tentar lançar o mesmo registro novamente bloqueia porque a data_devolucao e a dataGtap estão nulas. Obrigado.

Caro Guilherme.. Atente sempre às regras do Fórum, evite ter sua barra de respeito as regras diminuídas. O Fórum é livre e a solicitação de ajuda não deve ser direcionada a um membro específico por mais que ele ja o tenha auxiliado em outras dúvidas.

Moderação.

Desculpe, eu não li as regras do fórum. Pois existe esta opção de enviar mensagens para os usuários do fórum. Sempre que tiver uma dúvida colocarei no geral. Não usarei esta opção de mensagem particular. Só achei que não seria nada demais. Mas de qualquer forma obrigado.

Tudo certo amigão, mas aconselho a ler as regras do Fórum, elas são enssenciais a boa manuteçnão do Fórum.


Para cada campo a instrução deve ser completa e inerente a este campo veja como fez e depois observe o correto:

If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao or
Data_Gtap] = True And SIPRO ='" & Me!SIPRO & "'") = 1 Then


Correto:

If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao] = True or IsNull([Data_Gtap] = True And SIPRO ='" & Me!SIPRO & "'") = 1 Then

Lembre-se que os operadores And e Or são condições que fazem modifica toda uma instrução, por exemplo

Condição X And COndição Y 'Aqui é necessário que ocorram as duas para efetuar a checagem

Condição X Or Condição Y 'Aqui ocorrerá a checagem caso ocorra uma ou a outra...

Cumprimentos.

Estes operadores eu já conhecia, porém eu pensei que a condição or ficaria dentro da expressão [data_devolucao or data_gtap] eu pensei que o código iria ler um ou outro. Vou estudar VBA para entender os operadores lógicos e quando aplicá-los corretamente. Obrigado e eu não farei mas postagens erradas meu amigo.

Não se preocupe.. puxões de orelha são normais afinal devemos manter o fórum sempre bem estruturado.

Ja os levei muitos quando aqui iniciei...

Resolveste o problema?

Cumprimentos.

Caro amigo, eu fiz a alteração mas quando eu envio uma devolução e retorno ele passa e depois bloqueia. Quando eu envio só o gtap e retorno ele não passa, pede para que passe pela devolução também. Estou postando novamente o BD para que você possa dar uma analisada. Eu efetuo login de um usuário classificado no grupo usuários e acesso o form/analista, clico em devolução eu dou logoff e entro com outro usuário do grupo gerentes, e acesso o form/ap e clico em retorno. Digito o SIPRO, caso o usuário tente lançar novamente o sistema bloqueia e informa que não foi lançado outra devolução ou devolução gtap. Só que o código está validando apenas devolução, apesar de que ele precisa verificar se uma ou outra foi lançada se foi enviado data_gtap ele descarta data_devolucao e aceita o retorno, se foi data_devolucao ele descarta data_gtap. Porque será que o código está barrando mesmo tendo o operador Or?

Segue novo link: http://speedy.sh/zCR2p/bd-ap.rar

Eu gostaria de que você só verificasse o evento e tirar uma conclusão.

Onde está o erro?

If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao])= True or IsNull([data_gtap])= True or SIPRO ='" & Me!SIPRO & "'") = 1 Then
MsgBox "Este processo não foi incluído como devolução ou devolução gtap!", vbCritical, "ATENÇÃO"
Me.Undo
End If
End Sub


A condição é para que uma ou outra estiver alimentada, não que uma dependa da outra. Eu preciso só que o código aceite o retorno se por acaso o analista enviar devolução. Quando retornar eu lanço o retorno, se o usuário tentar retornar novamente o sistema bloqueia informando que não foi dado envio. Se a data_devolução estiver vazia o código verifica se foi enviado o processo alimentando a data_gtap, aí quando o processo retornar e alimentar o retorno, se o usuário tentar novamente enviar o sistema bloqueia. O código está solicitando que as duas devem ser alimentadas, eu não quero que uma dependa da outra.

Seguinete amiggão.....
o erro est[á.....
em...
Puts..
Amanha respondo
Agora estou tomando um vinho e já passei da conta....

kkkkk
ja to bebin bebin
rsrs
Ate amannha

Cumprimentosl

Falô fi. Bebedeira fim de ano. kkkk.

Bom dia Guilherme envie uma imagem como aquela que tinha enviado com as setas indicando o que deseja para que eu possa entender.

Cumprimentos.

Caro colega, vou postar agora, só vou fazer uma correção na análise do evento, vou postar agorinha, espere só um pouco.

Caro amigo, segue o link com as imagens explicativas: http://speedy.sh/Cw9ab/Imagens-explicativas-bd-aposentadoria.rar

Obrigado.

Vamos lá guilherme

Na sua tabela coloque um campo de Chave primária do Tipo AutoNumeraçao...
Nome do Campo: ID_Devolucao


Para quando tem uma Data_Devolucao e uma Data_Retorno e o usuário tenta lançar mais uma Data_Retorno:
Este código deve ficar em eventos Antes de Atualizar da caixa texto Sipro

If DCount("SIPRO", "tbl_Devolucao", "IsNull([Data_Devolucao])= True And IsNull([Data_Retorno])= False And SIPRO ='" & Me!SIPRO & "'") = 1 Then
MsgBox "Este Processo não aceita no momento mais uma data de devolução", vbInformation, "ATENÇÃO"
Me.Undo
Cancel = True
Exit Sub
End If

Aqui para quando tem 1 Data_Devolucao, 1 Data_Retorno, 1 Data_Gtap

Dim X As Integer, Y As Integer
X = DMax("ID_Devolucao", "tbl_devolucao")
Y = DMax("ID_Devolucao", "tbl_devolucao", "IsNull([Data_Devolucao])= True And IsNull([Data_Retorno])= True And SIPRO ='" & Me!SIPRO & "'")
If X = Y Then
MsgBox "Aceita o Cadastro"
Exit Sub
End If


Agora amigo.. tente montar isso de forma consecutiva.. as soluções estão ai.

Bom trabalho.