Repetição

[mestre fyoda]

ta dando erro de automation error na linha vermelha

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 hora2.EOF

       

           If hora("hora") = hora2("hora") 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

[Graymalkin]

Experimente assim:

If hora.fields("hora").value = hora2.fields("hora").value Then

Abraços,

Graymalkin

[mestre fyoda]

agora ta dando erro de :

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

e agora aonde é q eu errei ?

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 hora2.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

[Graymalkin]

agora ta dando erro de :

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

e agora aonde é q eu errei ?

Um dos recordsets (hora ou hora2) está vazio, ou seja, não possui registro nenhum. Verifique se a sua SQL realmente vai retornar registros.

Abraços,

Graymalkin

[mestre fyoda]

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 não aparece , porque ?

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

[mestre fyoda]

sem querer ser chato , mas presizo resolver esse problema com urgencia .

Grato Pela atenção que vocês sempre deram a mim e a todos .