设为首页
|
收藏本站
|
繁体中文
|
手机版
整站搜索
资讯
技巧
源码
行业
设备(待改)
资源
信息库(待改)
产品
作品(待改)
活动
培训(视频)
平台(待改)
二级(待改)
互动(作废)
交易
Access培训
-
Access开发平台
-
Access行业开发
首页
资讯
技巧
源码
行业
资源
活动
关于
资讯
公司动态
业界资讯
Access资讯
Excel资讯
Word资讯
PPT资讯
其它Office资讯
微软新闻
IT资讯
热门文章
10岁女童成微软认证工程师..
不要随意安装IE7插件
国内首推数字化合同 企业管..
福布斯发布富豪榜盖茨再登榜..
全球业务离美国 IBM采购..
新一代游戏机大战开打 体验..
最新文章
李开复:中国高校急需根据社..
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-01-01]
中国政府网1月1日正式开通 设中文简繁体和英文版
[2006-08-07]
64位CPU+X700仅5399 热点游戏机型推荐
[2005-03-12]
(BW)AMD凭借AMD Turion 64移动技术引领64位移动计算新时代
[2006-11-20]
新一代游戏机大战开打 体验任天堂Wii之旅
[2005-03-27]
中国女专家破两大密码算法 证明电子签名可伪造
[2006-11-21]
传千橡互动将收购eNet硅谷动力
热门产品