ta dando erro

[mestre fyoda 1]

A tabela Consulta tem as consultas agendadas e a tabela vazio tem isso :

cliente hora data telefone

VAGO 8:00 VAGO --------

VAGO 8:30 VAGO --------

VAGO 9:00 VAGO --------

VAGO 9:30 VAGO --------

VAGO 10:00 VAGO --------

VAGO 10:30 VAGO --------

VAGO 11:00 VAGO --------

VAGO 11:30 VAGO --------

VAGO 12:00 VAGO --------

VAGO 13:00 VAGO --------

VAGO 13:30 VAGO --------

VAGO 14:00 VAGO --------

VAGO 14:30 VAGO --------

VAGO 15:00 VAGO --------

VAGO 15:30 VAGO --------

VAGO 16:00 VAGO --------

VAGO 16:30 VAGO --------

VAGO 17:00 VAGO --------

Caso a Tabela Consulta tenha alguma consulta agendada antes das 17:00 , a hora 17 horas no aparece . Vou mostrar como ficaria com o exemplo :

Tabela Consulta :

cliente->Rafael

hora->16:00

data->18/8/2005

telefone->36363636

 

cliente hora data telefone

VAGO 8:00 VAGO --------

VAGO 8:30 VAGO --------

VAGO 9:00 VAGO --------

VAGO 9:30 VAGO --------

VAGO 10:00 VAGO --------

VAGO 10:30 VAGO --------

VAGO 11:00 VAGO --------

VAGO 11:30 VAGO --------

VAGO 12:00 VAGO --------

VAGO 13:00 VAGO --------

VAGO 13:30 VAGO --------

VAGO 14:00 VAGO --------

VAGO 14:30 VAGO --------

VAGO 15:00 VAGO --------

VAGO 15:30 VAGO --------

Rafael 16:00 18/8/2005 3636-3636

VAGO 16:30 VAGO --------

VAGO 17:00 VAGO --------

 

 

O q esta em vermelho era pra aparecer mas nao aparece , pq ?

 

Private Sub Form_Load()

   Centralizar Me

 

   Set hora = cn.Execute("SELECT * FROM Consulta where data = '" & Date & "' ")

   Set hora2 = cn.Execute("SELECT * FROM vazio ")

     

      While Not hora.EOF

       

           If hora.Fields("hora").Value = hora2.Fields("hora").Value Then

           Set Item = ListView.ListItems.Add(, , hora("cliente"))

           Item.ListSubItems.Add , , hora("data")

           Item.ListSubItems.Add , , hora("hora")

           Item.ListSubItems.Add , , hora("telefone")

           ListView.View = lvwReport

           hora.MoveNext

           hora2.MoveNext

          

           Else

 

           Set Item = ListView.ListItems.Add(, , hora2("cliente"))

           Item.ListSubItems.Add , , hora2("data")

           Item.ListSubItems.Add , , hora2("hora")

           Item.ListSubItems.Add , , hora2("telefone")

           ListView.View = lvwReport

           hora2.MoveNext

           End If

        Wend

        End Sub

Caso altere a linha vermelha no codigo para While Not hora2.EOF ela da erro de :

BOF e EOF sao verdadeiros , ou o registro atual foi excluido . A operação solicitada pelo aplicativo requer um registro atual .

[Luizgrs 0]

Ali depois do else, você ñ teria que usar o hora.movenext tb?

[mestre fyoda 1]

o problema é q eu to fazendo um teste só com um dado na tabela Consulta . ai nessa caso nao ira funcionar . iria cair na mesma situação .