[Resolvido]Busca por data - verificação de vaga disponível

Olá pessoal, boa noite!
Estou com um problema curioso e não consigo enxergar onde estou errando. Fiz um formulário com um campo para a entrada de dados com uma máscara de data, o que faço com este Form e verificar se a data de término do contrato de qualquer um dos locatários (armazenada no Form "Vagas_quartos") é maior ou igual a 15. O código informa se dentro de quinze dias aquela vaga estará disponível ou se já está disponível, pois não há ocupante. O código está funcionando direitinho, mas o problema é que no final ele apresenta a MsgBox com a informação: "está vago!". Ele não encerra ao completar o Loop e na MsgBox não faz referência a quarto algum. Só para constar os nomes dos quartos estão armazenados numa tabela, pois a quantidade de vagas é limitada (só usei o DCount para ficar mais dinâmico) e verifiquei direitinho se não há quarto sem nome. Se alguém puder me dar uma luz!

Aqui está o código:

Dim varA As Date
Dim varB As Variant
Dim varc As Date
Dim varD As Integer
Dim varE As Variant
Dim varx As Variant
Dim vart As Integer
Dim vary As Integer
On Error Resume Next
'
vary = DCount("*", "Vagas_quartos")
vart = 0
Do While vart <= vary
vart = vart + 1
If IsNull(Me.data_busca) Then
    MsgBox "Informe uma data para a busca!", vbCritical, "Erro"
      Exit Sub
Else
  varA = Me("data_busca")
    If IsNull(DLookup("[contratante]", "Vagas_quartos", "[Autonumeracao] =" & vart)) Then
          varx = DLookup("[quarto]", "Vagas_quartos", "[Autonumeracao] =" & vart)
             MsgBox varx & " está vago!", vbInformation, "Resultado"
    Else
     varA = Me.data_busca
      varB = DLookup("[verificacao]", "Vagas_quartos", "[Autonumeracao] =" & vart)
        If varB = "-1" Then
              varE = DLookup("[quarto]", "Vagas_quartos", "[Autonumeracao] =" & vart)
                 varc = DLookup("[fim_contrato]", "Vagas_quartos", "[Autonumeracao] =" & vart)
                    varD = DateDiff("d", varc, varA)
                       If varD >= 15 Then
                             MsgBox varE & " estará vago!", vbInformation, "Resultado"
                       End If
        End If
     End If
End If
Loop
'
'Finalizando busca
'
MsgBox "Busca finalizada, " & vary & " registros analisados!", vbInformation, "Sucesso"

Pessoal, aqui está o banco de dados, tirei tudo que não precisa, só deixei o problema mesmo!

Link: https://drive.google.com/file/d/0B52QNjNdV488YTM5WkdYVDNFb3M/edit?usp=sharing

Desde já agradeço pela ajuda! Não sou da área e este Fórum tem me ajudado MUITO!

Poxa vida ninguém   !

Mas tá tranquilo, resolvi o problema com a ajuda de um brother, foi falta de atenção mesmo!

O erro estava na linha: Do While vart <= vary, o correto seria Do While vart < vary. Obrigado de

qualquer forma!

Att.

Olá José Faustino,
Sou novo no fórum, estive buscando ajuda acho que semelhante a sua. Veja se pode me ajudar.

Estou fazendo um projetinho pequeno para um hotel.
Criei uma tabela para cadastrar os apartamentos
Criei também uma tabela/formulário de reservas onde insiro os apartamentos alugados.

Minha dificuldade está sendo a seguinte: No formulário reservas tem um campo "DATA RESERVA" e "APARTAMENTO", gostaria que quando digitasse a data da reserva o campo "DATA RESERVA" quando eu fosse para o outro campo "APARTAMENTO" listasse somente os apartamentos disponíveis(não locados) na data digitada.

Será que pode me ajudar?
agradeço

Beleza amigão!

Tô meio sem tempo agora, mas vou ver se este final de semana faço mais ou menos um BD com o que você está querendo. Não manjo muito, então talvez eu complique um pouco as coisas no começo, mas aí é só você modificar.

Valeu!

Ok, fico no aguardo,
Obrigado

Tá aqui meu camarada, conforme prometido!
Coloquei a maioria das instruções no Form principal. Não sei se ficou como você precisa, mas fiz o mais próximo do que eu gosto de usar. Qualquer coisa é só adaptar à sua necessidade!
Como não consegui fazer funcionar o caminho relativo do banco para as sintaxes de SQL, para o banco funcionar tranquilo, pelo menos agora antes das suas modificações, copie a pasta "Exemplo" juntamente com o arquivo "Exemplo" que ela contém e cole dentro do diretório "C". Daí basta somente executar o arquivo "Exemplo" e modificar o código como preferir.
No código que criei coloquei para ele indicar como apartamento disponível qualquer apartamento que não tenha locatário, óbvio, e também qualquer apartamento cuja diferença com a data que você quer consultar seja maior ou igual a 5 dias. Isto significa que se o algoritmo identificar que a pessoa irá desocupar o apartamento dentro de no mínimo cinco dias ele entenderá como "apartamento livre". Pode modificar o que quiser e não precisa colocar os créditos não.

Valeu meu camarada, espero que ajude! E qualquer dúvida, que eu possa resolver, é só lançar aqui valeu?

Att.

Tá aqui o Link: https://drive.google.com/file/d/0B1soiFmmCAuGQW9kS1ludUNJejA/edit?usp=sharing

Obs.: Não esqueça de baixar a pasta e colá-la no diretório "C"

Valeu meu camarada,
Vou testar aqui mas desde já agradeço sua presteza e me coloco á disposição para lhe ajudar no que for preciso.
Grade abraço.

Tranquilo meu brother!

Só não esquece de me avisar se funcionou de boa aí com você beleza? É que lembrei agora que no meu Access eu desabilito algumas coisas, então às vezes quando abro em outro PC um BD qualquer, aparece alguns avisos e pedidos de permissão, se for o caso, me avisa que aí lhe passo como desabilitar isto também, pois o SQL é pra funcionar direto.

Um abraço!

Fala parceiro,
Desculpe a demora estava enrolado essa semana. Olha adequei ao meu projeto e esta funcionando perfeitamente, muito bom.
Mais uma vez muito obrigado e se precisar de alguma ajuda é só chamar.
Abraço.
Henry Airlie

Que bom meu brother, fico feliz por ter funcionado!! Precisando de alguma ajuda é só falar, se eu souber resolver pode contar comigo!
Um abraço.