设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 807|回复: 3
打印 上一主题 下一主题

[其它] 当寻找到首记录或未记录后,如何使寻找按钮失效(变灰)

[复制链接]
跳转到指定楼层
1#
发表于 2002-10-26 16:42:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
当寻找到首记录或未记录后,如何使寻找按钮失效(变灰)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2002-10-26 20:39:00 | 只看该作者
if rst.eof or rst.bof then
寻找按钮.enable=false
end if
3#
 楼主| 发表于 2002-11-10 00:10:00 | 只看该作者
找到首记录后按钮变失效已做到,(me.currentrecord=1 then
first.enabled=false
.........)。如何确定未记录呢?
4#
发表于 2006-3-18 03:07:00 | 只看该作者
Private Sub Form_Current() '使下一项记录按钮失效


If Me.CurrentRecord = Me.Recordset.RecordCount Then
'如果当前记录为最后一个记录
   Me.下一项记录.Enabled = False '失效
    Else
     Me.下一项记录.Enabled = True
   
End If


  If Me.CurrentRecord = 1 Then '如果当前记录为第一个记录
      Me.前一项记录.Enabled = False
    Else
     Me.前一项记录.Enabled = True
   
End If
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-10 16:03 , Processed in 0.091233 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表