记录移动问题

Question

为什么我把记录移动到最后一条，再按“下一条”按钮式会出错！
Private Sub Command3_Click()
If Not Adodc1.Recordset.EOF Then
          Adodc1.Recordset.MoveNext
  Else
        Adodc1.Recordset.MoveLast
        MsgBox "已经移动到最后一条记录!"
  End IfEnd Sub
让最后一条记录在文本框中显示!
实时错误“6160”，数据访问错误！
不知道为什么？请求高手相助！感激！

Answer 1

LZ，你这个按钮是“下一条”还是“最后一条”'如果是“下一条”
Private Sub Command3_Click() 
    If Not Adodc1.Recordset.EOF Then 
        Adodc1.Recordset.MoveNext 
    Else 
        MsgBox "已经移动到最后一条记录!" 
    End If End Sub 
'如果是“最后一条”
Private Sub Command3_Click() 
    If Not Adodc1.Recordset.EOF Then 
        Adodc1.Recordset.MoveLast 
    End If 
End Sub 

Answer 2

Recordset.EOF 就已经越过最后一条记录了。

Answer 3

Recordset.EOF 就已经不能再向下移动了
改为
Private Sub Command3_Click() 
  If Not Adodc1.Recordset.EOF Then 
          Adodc1.Recordset.MoveNext 
  Else 
          MsgBox "已经移动到最后一条记录!" 
  End If End Sub 

Answer 4

adodc1中的记录集不能反映在datagrid上，出现“实时错误‘6160’，数据访问错误”！
不知道为什么？

Answer 5

adodc1中的记录集不能反映在datagrid上，出现“实时错误‘6160’，数据访问错误”！
不知道为什么？
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Not Flg Then
        If (Adodc1.Recordset.BOF = True) And (Adodc1.Recordset.EOF = True) Then
            DataGrid1.Enabled = False
          Else
 Text1.Text = DataGrid1.Columns("事故编号").CellValue(DataGrid1.Book)（这一行变黄）！！！！
 DTPicker1 = DataGrid1.Columns("日期").CellValue(DataGrid1.Book)
 DTPicker2 = DataGrid1.Columns("时间").CellValue(DataGrid1.Book)
Combo6 = DataGrid1.Columns("主干道").CellValue(DataGrid1.Book)
  Combo7 = DataGrid1.Columns("目的地").CellValue(DataGrid1.Book)
Combo4 = DataGrid1.Columns("基层").CellValue(DataGrid1.Book)
 Combo5 = DataGrid1.Columns("路线").CellValue(DataGrid1.Book)
 Text7.Text = DataGrid1.Columns("自编号").CellValue(DataGrid1.Book)
 Text8.Text = DataGrid1.Columns("牌照").CellValue(DataGrid1.Book)
Combo6 = DataGrid1.Columns("车辆性质").CellValue(DataGrid1.Book)        End If
    End IfEnd Sub

Answer 6

我想如果移动到最后一条记录，command3变灰，那么就不能移动到下一条了！我这样做对不对，为什么还是出错！！
Private Sub Command3_Click()
If Not Adodc1.Recordset.EOF Then
          Adodc1.Recordset.MoveNext
  Else
         Command3.Enabled = False      
  End If
End Sub