设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

当进入某个记录的时候发生“Current“事件,请问当离开某个记录的时候发生的是什么

[复制链接]
跳转到指定楼层
1#
发表于 2002-7-1 21:50:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
例如在离开某个记录的时候用代码检测用户是否符合填写记录的要求,如果不符合则不能
离开该记录,直到符合填写记录的要求。(窗体是数据表形式)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
7#
发表于 2002-7-3 01:47:00 | 只看该作者
应该一样吧,在过程里面加上一句if 无绑定控件A="修改状态"then 不能退出。。。
6#
 楼主| 发表于 2002-7-3 00:35:00 | 只看该作者
thank you!问题已基本解决了,但Form_BeforeUpdate只能对已绑定数据
的控件起作用,对没有绑定数据的控件没有反应,例如,窗体中有一选择
框,用户选择后系统表示正处于修改状态而不能跳转到其他记录,
直到取消选择为止,但选择框无须绑定数据,所以Form_BeforeUpdate没有反应?
5#
发表于 2002-7-2 19:23:00 | 只看该作者
只要能用表达式说明的有效性规则都可以写在公式、宏、过程里。
两列的准则:
  private sub 列2_afterUpdate()
    if 列1+列2<>100 then
  msgbox "输入错误!。。。。"
    me.列2.select
end if
end sub

也可以用Northwind.mdb的例子:
由于不同国家的邮政编码不一样,所以存储各个国家邮政编码的数据库不能只依靠简单的有效性规则来确保输入的邮政编码是正确的。

不过,可以通过创建事件过程首先检测“国家”控件上输入的国家名称,然后再检查“邮政编码”控件上输入的值是否符合该国的邮政编码特征。

首先,在“设计”视图中打开包含上述控件的窗体,然后将下面的 Visual Basic 代码添加到窗体的 BeforeUpdate 事件过程中,以根据“国家”控件的值和“邮政编码”控件的输入值长度显示不同的信息。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Select Case Me![国家]
        Case "法国", "意大利", "西班牙"
            If Len(Me![邮政编码]) <> 5 Then
                MsgBox "ostalCode must be 5 characters."
                Cancel = True
            End If
        Case "澳大利亚", "新加坡"
            If Len(Me![PostalCode]) <> 4 Then
                MsgBox "ostalCode must be 4 characters."
                Cancel = True
            End If
    End Select
End Sub注意   您应将 Visual Basic 代码添加到窗体的 BeforeUpdate 事件过程中,而不是控件的事件过程,因为有效性规则涉及窗体上两个不同的控件。

现在,向窗体上添加新的供应商时,Access 会在输入完新记录,但没有保存到“供应商”表之前运行有效性规则过程。如果满足过程中的任何一个条件,将显示相应的信息并且不保存记录。

4#
 楼主| 发表于 2002-7-2 18:18:00 | 只看该作者
只能对某一列作有效性规则,但是对多列就没有办法,例如其中的两列的和等于100!
3#
发表于 2002-7-2 02:03:00 | 只看该作者
如果改变了记录,那可使用beforeupdate事件
2#
发表于 2002-7-1 21:59:00 | 只看该作者
请参阅MS access帮助文件-->使用窗体-->在窗体中验证或限制数据
通过验证或限制数据,可以立即对用户输入的数据作出反馈,确保用户在文本框或窗体上的其他控件中输入了正确的信息。

请选择:
创建控件的输入掩码

使控件失效或锁定控件

创建控件的有效性规则

请阅读有关应用不同类型中的有效性规则的顺序

请阅读有关使用宏或事件过程进行更复杂的数据验证


您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-2 13:50 , Processed in 0.098151 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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