[Resolvido]Impede impedir o registro de entrada de dois moradores no mesmo apartamento em uma mesma data período;

Olá
Como posso definir em uma tabela, chamada APARTAMENTO, que tem os campos Apt_Numero, Apt_Nome, ENTRADA_APT, SAIDA_APT e etc. que somente poderá ser cadastrado novamente o Apto_Numero se ele estiver livre/vazio, então tenho o campo SAIDA_APT que registra a data de saida do ultimo morador, como posso fazer para que somente possa ser preenchido novamente o registro do APT_Numero se o campo SAIDA_APT foi maior que a saída do último morador?


Exemplo
Apt_Numero Apt_Nome ENTRADA_APT SAIDA_APT
101 COB 01 Fernando 10/02/94 12/12/96
101 COB 01 Fabricio - Só permite cadastrar este depois da saída de 12/12/96 !!!

Essa condição seria feita em um formulário ou na propria tabela APARTAMENTO?
Grata pela ajuda
Stella Maris

Olá Stella

Tem de ser no formulário

If DCount("*","Tabela","Apt_Numero='" & controloapt & "' and (IsNull(saida_apt) or saida_apt>=#" & controlodata &"#)>0 then
msgbox "Não pode cadastrar esta data."
controlodata.setfocus
end if

Alexandre
Esta condição eu coloco exatamente a onde porque na propriedade do form não funcionou !
e nem da propriedade do APT_Numero
grata

Olá

Pode ser ao sair do controlo apt_numero desde que a data esteja preenchida
ou
ao sair do controlo data desde que o apt_numero esteja preenchido

Alexandre

Fiz das duas maneiras colocando ao PERDER O FOCO e deu este erro:

Erro de Compilação
Era esperado: Separador de Lista ou )

dá para você ver para mim?
grata
Stella

Estou dando meu tiquinho de opinião, rsrsrsrs.
Me parece que faltou fechar um parêntese no final. Pos foram abertos 3 parêntese e fechados dois.

Eu prefiro colocar no Após atualizar da caixa de texto que irá verificar se a outra está preenchida. Tambem pode ser no campo Ao sair, mas aí se a outra caixa não estiver preenchida não dá para sair dele.

Criquio,
Eu coloquei o parentese, mas o erro continua, como não sei este tipo de comando fico na duvida de como fazer: Outra dúvida é "controloApt" ou "ControlAPT_Numero"?

If DCount("*","APARTAMENTO","Apt_Numero='" & controloApt & "' and (IsNull(saida_apt) or saida_apt>=#" & controlodata &"#))>0 then
msgbox "Não pode cadastrar esta data."
controlodata.setfocus
end if

grata
Stella

Stella, Apt_Numero é o campo do número do apartamento na sua tabela, controloApt é o campo do seu formulário referente ao apartamento, saida_apt é o campo data da saída da sua tabela e controlodata é o campo da data de entrada no seu formulário. É que o amigo Alexandre é de Portugal e lá algumas palavras são diferentes daqui do Brasil.

Pessoal não consegui !!!!
eu coloquei o procedimento após atualizar no campo APT_numero, e continua dando erro de compilação....

Private Sub Apt_Numero_AfterUpdate()
If DCount("*","APARTAMENTO","Apt_Numero='" & controloApt & "'and (IsNull(saida_apt)or saida_apt>=#" & controlodata &"#)>0 then
MsgBox "Não pode cadastrar esta data."
controlodata.SetFocus
End If

End Sub

não sei qual a besteira que estou fazendo, me ajuda !!!

Stella, você está substituindo os nomes para se adaptar ao seu caso? Controlo no português de Portugal quer dizer controle, ou seja, os campos que você usa na tabela e no form. Controlodata quer dizer o seu campo data no form e na tabela. Você precisa substituir pelos nomes desses campos.

sim substitui, porém continua dando erro, inclusive com o parentese !

Veja se o erro é falta de espaço:
Private Sub Apt_Numero_AfterUpdate()
If DCount("*","APARTAMENTO","Apt_Numero='" & controloApt & "' and (IsNull(saida_apt)or saida_apt>=#" & controlodata &"#)>0 then
MsgBox "Não pode cadastrar esta data."
controlodata.SetFocus
End If

End Sub

Alexandre

O erro que dá é:
Erro de Compilação
Era esperado: Separador de Lista ou )

Erro de compilação:
Erro de Sintaxe

na linha:

If DCount("*","APARTAMENTO","Apt_Numero='" & controloApt & "' and (IsNull(saida_apt)or saida_apt>=#" & controlodata &"#)>0 then

grata

Oi Stella, teste assim;

If DCount("*", "APARTAMENTO", "Apt_Numero='" & controloApt & "' and (IsNull(saida_apt)or saida_apt>=#" & controlodata & "#") > 0 Then

Afinal de contas, o Grande Alexandre tem a instrução totalmente correta, apenas faltava umas aspas no final do controlodata >=#" & controlodata & "#")

legal JPaulo

vou testar e te falo, obrigaaaaaaaaaaaaaaa

oi Pessoal !

Definitivamente não consigo, !!!!
Eu preciso: que o usuário somente possa cadastrar novamente o mesmo numero de apartamento (Apt_Numero) e data de nova entrada (ENTRADA_APT), se o antigo inquilino tiver saido do imovel (SAIDA_APT).
Eu segui as orientações, colocando o procedimento após atualizar do Apt_Numero, tentei no após atualiza do campo SAIDA_APT, e outras tentativas, mas não está dando certo.
Dá erro 3075.
Teria alguma possibilidade de eu postar este bd para vocês poderem analisar melhor, talvez eu não esteja me expressando direito, se possivel, onde e como devo postar.
agradeço muito a todos que estão me ajudando

Stella Maris

Stella, pode colocar no www.esnips.com e postar o link aqui.

Criquio

não estou conseguindo me cadastrar no esnips!!!
tem outro local?

Mande para o meu email que eu coloco no esnips para você. criquio@yahoo.com

grata
acabei de enviar

Bom dia Stella,

Só uma pergunta:

Se o inquilino ainda não saiu do apartamento, o campo SAIDA_APT deverá está nulo certo?
Se a resposta for sim, voçê poderia tentar algo + ou - assim:

If IsNull(SAIDA_APT) Then
MsgBox "Cadastro nâo Permitido"
(aqui você determina o que que fazer: voltar, cancelar, etc)
End If

Nivaldo.

Vou deixar aqui o link do bd, para apreciação dos colegas: http://www.esnips.com/doc/0464cdd3-e301-4991-80cb-9e0bab5946a5/CONDOdisp

Olá Stella, só hoje vi com olhos de ver rsrsrsrs

teste assim, mas no evento depois de atualizar do campo ENTRADA_APT;

Private Sub ENTRADA_APT_AfterUpdate()
If DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And IsNull([SAIDA_APT])") > 0 Then
MsgBox "Não pode cadastrar nesta data."
Me.Undo
Me.Apt_Numero.SetFocus
End If
End Sub

Meus amigos,
antes de mais nada quero agradecer o empenho de vocês que estão me ajudando. vou responder a cada um neste topico para facilitar ok !

Alexandre: obrigada por sua ajuda.
Nivaldo: com relação a sua pergunta a resposta é sim. Tentei o procedimento e não funcionou.
Criquio: continuo cadastrando o apt_numero com data anterior a saída
JPaulo: usei o seu procedimento e não está permitindo cadastrar nenhuma data.

Fiz o seguinte: cadastrei um morador no apart 101, com entrada em 02/01/90 e saída em 05/05/90. Entendo que a partir do dia 06/05/90 eu poderia cadastrar outro NOVO morador, então cadastrei a entrada do novo morador como 25/05/2010 e nem assim está permitindo.

mas tenho fé que meus professores irão resolver este pepino !!!
um abraço a todos
Stella

teste por favor e retorne;

Private Sub ENTRADA_APT_AfterUpdate()
If DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And CVDate(Int([SAIDA_APT])) >= DateValue('" & Me.ENTRADA_APT & "')") > 0 Then
MsgBox "Não pode cadastrar nesta data."
Me.Undo
Me.Apt_Numero.SetFocus
ElseIf DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And IsNull([SAIDA_APT]=True )") > 0 Then
MsgBox "Não pode cadastrar nesta data."
Me.Undo
Me.Apt_Numero.SetFocus
End If
End Sub

JPaulo

Funcionou perfeitamente quando o ano é de 1990, 1991, 1992 .... é exatamente isso que quero, porém
quando cadastro as datas dos anos 2001, 2002, 2003 .... ou seja 25/05/10 aparece a mensagem que não é possivel cadastrar !!!
será que ele entende que 31/12/99 é maior que 25/05/2010 ?

mais uma vez grata
Stella

Stella, dê uma olhada na máscara de entrada do campo. Provavelmente o ano está com dois dígitos. Se for isso, altere para quatro dígitos.

Criquio e JPAulo

Era isso mesmo, que o Criquio me informou!

agradeço a todos vocês, agora vou passar isso tudo para o definitivo

muito obrigaaaaaaaaaaaa

vocês são um ESPETACULOOOOOOOOOOOO

Sempre configuro minha maquina para data abreviada, para apenas digitar 2 digitos, isso pode causar problemas?

Stella, veja bem, se você for trabalhar apenas com dados do século corrente, não terá problemas, mas no seu caso você tinha digitado entrada em 90 que seria 1990, se for digitar 2010 não vai dar certo porque 10 é anterior a 90, por isso daria problemas.

ok obrigada pela Dica

valeu a ajuda de todos vocês
obrigadaaaaaaaaaaaa

Bom dia Stella e obrigado pelo seu retorno.

Já que este poste deu trabalho e agora que está a funcionar, pode aproveitar e personalizar, que fica mais PROFISSIONAL.

Private Sub ENTRADA_APT_AfterUpdate()
If IsNull(Me.Apt_Numero) Or Me.Apt_Numero.Value = "" Then
MsgBox "Unidade Vazia, tem de preencher...", vbCritical
DoCmd.CancelEvent
Me.Undo
Me.Apt_Numero.SetFocus
Else
If DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And CVDate(Int([SAIDA_APT])) >= DateValue('" & Me.ENTRADA_APT & "')") > 0 Then
MsgBox "Não pode cadastrar nesta data... " & vbCrLf & "O Apatarmento:" & Apt_Numero & vbCrLf & _
"Está ocupado.", vbOKOnly + vbCritical
Me.Undo
Me.Apt_Numero.SetFocus

ElseIf DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And IsNull([SAIDA_APT]=True )") > 0 Then
MsgBox "Não pode cadastrar nesta data... " & vbCrLf & "O Apatarmento:" & Apt_Numero & vbCrLf & _
"Está ocupado.", vbOKOnly + vbCritical
Me.Undo
Me.Apt_Numero.SetFocus
End If
End If
End Sub

JPaulo,

Você é show!
Realmente este meu topico deu trabalho, ufa ! Mas vocês conseguiram isso que importa.
Eu vou mudar o seguir seu conselho, realmente fica mais profissional e elegante.
um grande abraço e + uma vez obrigadaaaaaaaaa
Stella

JPaulo / Criquio
Help!!!! deu zebra !!!

Esse tópico continua dando trabalho a vocês, mas quando pensei que tinha resolvido encontrei um problemão !
Esta funcionando, ou seja é isso que eu preciso, porém o que está ocorrendo, e é claro foi falta de informação minha para com vocês, é que não consigo cadastrar outro apto em outro bloco. Vou tentar explicar:
Tenho 4 tabelas relacionadas um para muitos:
Condominio -> Bloco -> Apartamento -> MoradoresInquil (nesta ordem que elas estão relacionadas)
Tenho um formulário CONDOMINIO com subform BLOCO que tem outro subform APARTAMENTO que tem outro subform MORADORESINQUIL.
Quando cadastro por exemplo no condominio LIMA, bloco LARANJA, o apartamento 101 (campo Apt_Numero) tudo perfeito, porém quando eu cadastro no mesmo condominio em outro bloco ou em outro condominio em outro bloco o apartamento 101 (campo Apt_Numero), não me é permitido, porque devido ao procedimento usado a mensagem me informa que: "
MsgBox "Não pode cadastrar nesta data... " & vbCrLf & "O Apatarmento:" & Apt_Numero & vbCrLf & _
"Está ocupado.", vbOKOnly + vbCritical
Seria compreensivel se eu não tivesse este apartamento 101 em outro bloco do mesmo condominio ou em condominio diferente.
Para melhor visualização e entendimento de vocês, eu consegui disponibilizar, neste link, porque tive problemas com Esnips.
http://www.speedyshare.com/files/22663697/CONDOdispon.rar

Nem preciso dizer o quanto estou chateada em mais uma vez encomodar vocês com este assunto.
Acontece que este é a base do meu trabalho, se isso não funciona, nada para frente irá funcionar. Estou trabalhando que nem louca neste bd, até porque estou desenvolvendo no access 2007, que tenho um conhecimento mínimo, mas tenho tido muita ajuda de vocês de do Avelino para que eu possa entregar um trabalho perfeito.
Fico aguardando com muita ansiedade um retorno
um abraço
Stella Maris

No APARTAMENTO sunformulário, terá de preencher primeiro o CodBloco para ser validado, por isso tem de inverter a ordem de preenchimento, arraste essa combox para primeiro lugar, depois vamos testar a validação assim;

Private Sub ENTRADA_APT_AfterUpdate()
If IsNull(Me.Apt_Numero) Or Me.Apt_Numero.Value = "" Then
MsgBox "Unidade Vazia, tem de preencher...", vbCritical
DoCmd.CancelEvent
Me.Undo
Me.Apt_Numero.SetFocus
Else
If DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And CodBloco=" & Me.CodBloco & " And CVDate(Int([SAIDA_APT])) >= DateValue('" & Me.ENTRADA_APT & "')") > 0 Then
MsgBox "Não é possível cadastrar novamente " & vbCrLf & "A Unidade " & Apt_Numero & vbCrLf & _
"Porque está ocupada !" & vbCrLf & " Verifique se desocupou e então preencha a data de saída da Unidade ", vbOKOnly + vbCritical
Me.Undo
Me.Apt_Numero.SetFocus

ElseIf DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' And CodBloco=" & Me.CodBloco & " And IsNull([SAIDA_APT]=True )") > 0 Then
MsgBox "Não é possível cadastrar novamente " & vbCrLf & "A Unidade " & Apt_Numero & vbCrLf & _
"Porque está ocupada !" & vbCrLf & " Verifique se desocupou e então preencha a data de saída da Unidade ", vbOKOnly + vbCritical
Me.Undo
Me.Apt_Numero.SetFocus
End If
End If
End Sub

JPaulo,

Fiz os testes da forma que me recomendou e para o apartamento funcionou, mas para o inquilino continuo não podendo cadastrar o apartamento, porque a mensagem aparece como apt_numero ocupado, eu aproveitei o seu codigo mas esta dando erro.
A ultima atualização que fiz está no link abaixo, para melhor facilidade.

http://www.speedyshare.com/files/22670269/CONDOdispon.rar

mais uma vez obrigada por atender meu pedido
um abraço
Stella

No BLOCO Subformulário, tem um campo de nome CodBloco

Você vai colocar esta instrução no evento depois de atualizar desse campo;

Private Sub CodBloco_AfterUpdate()
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
End Sub

JPaulo,

eu coloquei a instrução, porém continuo não podendo cadastrar o INQUILINO (MORADORESINQUIL_Subform)
eu disponibilizei nOvamente porque coloquei em cores para facilitar e uma tela que colei no word.
FrmCONDOMINIO abre todos os dados que preciso - Bloco em azul, Apartamento em verde e o INQUILINO em vermelho.
Cadastrei o INQUILINO stella no apartamento 101 do bloco LARANJA – OK
Quando quero cadastrar o INQUILINO do apartamento 101 do bloco LIMÃO – APARECE a MENSAGEM QUE NÃO É POSSIVEL PORQUE O APARTAMENTO ESTA OCUPADO, mas o apt que esta ocupado é do bloco LARANJA e não do LIMÃO

http://www.speedyshare.com/files/22671282/tela.docx
http://www.speedyshare.com/files/22671281/CONDOdispon.rar

Sempre grata por sua ajuda, fico no aguardo

Bom Dia Stella, pelos meus testes está a funfar...

http://www.speedyshare.com/files/22678665/CONDOdispon_II.rar

Jpaulo,
Bom dia!
Estou te dando trabalho, neste topico rssss!

Estou com varios probleminhas agora: Estou trabalhando no condominio TEste - Bloco Branco

1 - quando cadastro (apartamentosubform) um novo apto_numero aparece a seguinte mensagem: "Erro 3075 - If DCount("*", "APARTAMENTO", "Apt_Numero='" & Apt_Numero & "' CodBloco=" & Me.CodBloco.Column(0) & " And CVDate(Int([SAIDA_APT])) >= DateValue('" & Me.ENTRADA_APT & "')") > 0 Then " - eu não sei consertar !!!!
2 - eu pude cadastrar o apt 103 novamente mesmo estando com a data de saida em branco, !
3 - e também pude cadstrar o inquilino no apto 103 sem a saida do morador anterior !!!

http://www.speedyshare.com/files/22681114/CONDOdispon_III.rar

Agora acho que os problemas acima tem um pouco a ver com este erro 3075, porque tem momento que a mensagem aparece e outras não.
obrtigada mais uma vez e desculpe o trabalho !
Meu final de semana será trabalhando !!! snifffff

Repare que tem de preencher sempre o Bloco, para o código poder chekar.

Veja;
http://www.speedyshare.com/files/22690829/CONDOdispon_III.rar

JPaulo,

Desculpe não ter respondido antes, mas fiquei todo o final de semana sem internet, somente agora pouco consertaram rssss!!!

Eu entendi que tenho que preencher o bloco para poder incluir outros dados.

agora irei fazer todos os testes e te falo, pelo pouco que fiz de teste já deu para perceber que está funcionando, mas de qualquer forma irei testar de todos os modos ok !

mil vezes obrigada por sua especial atenção e ajuda
um abraço
Stella

Valew, fico no aguardo.

JPaulo,

Funcionou perfeitamente, ufa !!!
Só tenho a agradecer a boa vontade de todos vocês para com este meu tópico.

Vocês especialmente, um grande abraço
e muito, muito obrigadaaaaaaaaaaaaa


Stella

Mais um tópico resolvido mais uma vitoria.

Valew pelo retorno Stella, precisando estamos ae.