VB Forum / Database Access / August 2005

I get the "Either BOF or EOF is true, or current record has been deleted.
Requested operation requires a current record." when i have loaded a listview
with records on a form. Happens when i double click on the Listview or click
the command button EDIT, which edits the record. I get it because the ms
access db is empty.  I'm looking for some error handling to let the program
know that no records have been returned.

'''ADO connection COde:
Public sub connectDatabase()
Set rsTransactions = New ADODB.Recordset
rsTransactions.Open "TABLE1", cnBank, adOpenKeyset, adLockOptimistic
End Sub

'''Form1 Code:
Private Sub Form_Load()

Call connectDatabase
Call LoadListView(rsTransactions)

End Sub

Public Sub LoadListView(myRs As Recordset)
With myRs

While Not .EOF
lstItem.SubItems(1) = ![LAST NAME]
lstItem.SubItems(2) = ![FIRST NAME]

'lvwTransactions.ListItems.Add , , !CustomerID & " " & !AccountNo ' & " " &
!Narration & " " & !Dated & " " & !Debit & " " & !Credit
.MoveNext
Wend
End If

End Sub

Private Sub cmdEdit_Click()
With rsTransactions
.MoveFirst

While Not .EOF

If lvwTransactions.SelectedItem.ListSubItems(1) = !LASTNAME Then
'edit as needed
   .MoveLast
   .MoveNext
   Else
   .MoveNext
   End If
Wend

End With
End Sub

Private Sub lvwTransactions_ColumnClick(ByVal ColumnHeader As _
   MSComctlLib.ColumnHeader)
   ' Sort according to data in this column.

   If lvwTransactions.Sorted And _
       ColumnHeader.Index - 1 = lvwTransactions.SortKey Then
       ' Already sorted on this column, just invert the sort order.
       lvwTransactions.SortOrder = 1 - lvwTransactions.SortOrder
   Else
       lvwTransactions.SortOrder = lvwAscending
       lvwTransactions.SortKey = ColumnHeader.Index - 1
   End If
   lvwTransactions.Sorted = True  
End Sub