Program Freeze :-(

[a_student]

Hello All,

When I use the following code my program freezes and I end up having to terminate vb, any ideas?

Private Sub Form_Load()
    dcCars.Refresh
    'adds cars to list box
    While Not dcCars.Recordset.EOF
        'Only displays cars which aren't on hire
        If dcCars.Recordset("OnHire") = "No" Then
            lstCars.AddItem (dcCars.Recordset("Reg"))
            dcCars.Recordset.MoveNext
        End If
    Wend
End Sub

Thanks!

[Leather]

Move the MOVENEXT to outside the if block...

Private Sub Form_Load()
    dcCars.Refresh
    'adds cars to list box
    While Not dcCars.Recordset.EOF
        'Only displays cars which aren't on hire
        If dcCars.Recordset("OnHire") = "No" Then
            lstCars.AddItem (dcCars.Recordset("Reg"))
            
        End If

      dcCars.Recordset.MoveNext

    Wend
End Sub

[Cander]

move dcCars.Recordset.MoveNext to after the End If

[a_student]

Thanks alot, I would normally have seen that, I guess you start to miss things after 8 hours or programming :-)


Thanks again!