设为首页
|
收藏本站
|
繁体中文
|
手机版
整站搜索
资讯
技巧
源码
行业
设备(待改)
资源
信息库(待改)
产品
作品(待改)
活动
培训(视频)
平台(待改)
二级(待改)
互动(作废)
交易
Access培训
-
Access开发平台
-
Access行业开发
首页
资讯
技巧
源码
行业
资源
活动
关于
资讯
公司动态
业界资讯
Access资讯
Excel资讯
Word资讯
PPT资讯
其它Office资讯
微软新闻
IT资讯
热门文章
微软携手纽约时报 Vist..
微软副总裁:中国软件产业进..
Sun总裁称PC将成历史 ..
中国互联网涌现口水剑客 马..
MessagEase能用同..
日本夏普公司发明“双视野”..
最新文章
李开复:中国高校急需根据社..
VBA编程常用语句300句
SQL基础:常用SQL语句..
ACCESS学习日记
多表查询技巧
Oracle数据库EXP、..
联系方式
Access交流网(免费Access交流)
QQ:18449932
网 址:
www.access-cn.com
当前位置:
首页
>
资讯
>
业界资讯
>
IT资讯
IT资讯
如何通过代码判断一条记录是否被选择
选择代码可以使用docmd.runcommand accmdselectrecord,但如何通过代码判断一条记录是否被选择呢
me.CurrentRecord和me.SelTop 和 me.SelHeight 和 me.SelWidth
me.CurrentRecord 得到当前记录数
me.SelTop 判断 当前被高亮选中的最小记录号
me.SelHeight =1 表示 1个记录被选中
me.SelWidth=字段数 表示一个记录的内容全部被选中
-------------------------
例子,假设字段数为 4
With Me.表1_子窗体.Form
If .SelHeight > 0 And .SelWidth = 4 Then
MsgBox "当前记录号:" & .CurrentRecord & vbCr & "当前整行选中的记录:" & .SelTop & "->" & (.SelTop + .SelHeight - 1)
End If
End With
发布人:Grant-IT学院
分享到:
点击次数:
更新时间:2006-11-21 22:37:37 【
打印此页
】 【
关闭
】
上一篇:
Dell惠普刺激1GB内存市场极速成长
下一篇:
ACCESS 用链接表方法链SQL SERVER
相关文章
•
李开复:中国高校急需根据社会需求培养学生
•
VBA编程常用语句300句
•
SQL基础:常用SQL语句详解 (转)
•
ACCESS学习日记
•
多表查询技巧
•
Oracle数据库EXP、IMP命令语句使用方法
•
SQL注入的高级应用ACCESS篇!
•
代码打开页面设置
热门文章
[2006-09-12]
马云:互联网有10年"高潮期" 要进世界前三强
[2006-09-23]
TOM否认收购新浪
[2005-03-12]
(BW)AMD凭借AMD Turion 64移动技术引领64位移动计算新时代
[2006-10-09]
明基称将追讨西门子补助金
[2005-03-12]
蔡冠深议案:推广Linux先要教会用
[2006-08-25]
DoCoMo售日本首款HSDPA手机 下载速度快10倍
热门产品