删除记录,判断记录位置

文章作者 100test 发表时间 2008:01:04 13:00:58
来源 100Test.Com百考试题网

VB语句删除记录：
For I = 1 To 20
SQL = "Delete 订单明细ID FROM 订单明细 Where 订单明细ID=" &. I
DoCmd.RunSQL SQL
Next
或：
CurrentProject.Connection.Execute "Delete * FROM要删除记录的表"

清空表记录的方法
1、CurrentDb().Execute "0delete * from 表名"
2、docmd.runsql "SQL语句"
3，RunSQL "Delete * From 表名"

确定所显示的当前记录的记录编号。
下面的示例显示如何使用 Currentrecord 属性来确定所显示的当前记录的记录编号。在通用过程 Currentformrecord 中将当前记录的编号值赋给变量 Lngrecordnum。
Sub CurrentFormRecord(frm As Form)
Dim lngrecordnum As Long
lngrecordnum = frm.CurrentRecord CurrentRecord是当前记录号
End Sub

读取最后一条记录
dlast("字段名","表名")

在字段默认值中用此函数能使该字段的新纪录显示上一条记录该字段的值
怎样使窗体一打开就定位到指定记录上
定义了一个变量lngbh，要窗体打开时显示ID=Lngbh的这条记录。
DoCmd.OpenForm "formname", acNormal, , "ID =" &. LNGBH, acFormEdit, acWindowNormal

如何在打开窗体时自动到相应记录
用法:DoCmd.RunCommand acCmdRecordsGoToNew
acCmdRecordsGoToFirst 移到第一条记录
acCmdRecordsGoToLast 移到最后一条记录
acCmdRecordsGoToNew 新增一条记录
acCmdRecordsGoToNext 移到下一条记录
acCmdRecordsGoToPrevious 移到上一条记录

判断记录的位置
me.Recordset.AbsolutePosition = 0 第一条记录
me.Recordset.AbsolutePosition = me.Recordset.RecordCount -1 最后一条记录
me.Recordset.AbsolutePosition=-1 第一条记录前 me.Recordset.bof=true
me.Recordset.AbsolutePosition=me.Recordset.RecordCount 最后一条记录后 me.Recordset.eof=true
me.Recordset.AbsolutePosition=n 第n 1条记录

判断是否为新增记录
me.newrecord=true
me.newrecord=false