Office中国论坛/Access中国论坛

标题: If Not EOF() 是不是不对?我想将表从头到尾走一遍，请教... 谢谢 [打印本页]

作者: CCXF2004 时间: 2004-3-28 01:22
标题: If Not EOF() 是不是不对?我想将表从头到尾走一遍，请教... 谢谢
Private Sub 命令4_Click()
DoCmd.GoToRecord , , acFirst
   Do While Me.CurrentRecord
   i = 0
         ts.Value = i
   i = i + 1
   If Not EOF() Then DoCmd.GoToRecord , , acNext
   Loop
End Sub
[em24]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)