Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-表

删除记录,判断记录位置

时 间:2007-11-21 08:24:12
作 者:gdjdyyj   ID:54  城市:东营
摘 要:删除记录,判断记录位置
正 文:

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 "delete * 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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助