安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access vba设置有记录级的效性规则

2019-01-24 15:58:00
tmtony8
原创
664

在Access中,我们录入数据需要判断数据是否符合规则。所以在表设计时,可以设置有效性规则来限制数据的录入。

前面的文章中有讲解如何在表中设置有效性规则《Access限制表字段中录入不规则的数据


这里我们讲下如何用vba创建有效性规则

使用 SetTableValidation 函数来设置记录级的有效性规则,以?#32321;!?#31163;职日期”字段中的?#24403;取?#24037;作开始日期”字段中的值要晚。

    Dim strTblName As String
    Dim strValidText As String
    Dim strValidRule As String
    Dim intX As Integer
    
    strTblName = "工作"
    strValidRule = "离职日期 > 工作日期"
    strValidText = "录入的离职日期必须必工作日期要晚!"
    intX = SetTableValidation(strTblName, strValidRule, strValidText)
    
    

Function SetTableValidation(strTblName As String, strValidRule As String, strValidText As String) As Integer
    
    Dim dbs As DAO.Database, tdf As TableDef
    
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(strTblName)
    tdf.ValidationRule = strValidRule
    tdf.ValidationText = strValidText
End Function



如果“离职日期”比“离职日期”工作日期早。会提示错误。



如果“离职日期”比“工作日期”要晚,正常填写数据



    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
    内存占用:7.75MB
    PHP 执行时间:0.17
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    白银之手五骑士 鹈鹕vs火箭视频直播 奥格斯堡vs莱比锡红牛预测 幸运飞艇是哪个国家的彩票 好运快3走势图 武则天怎么玩 巴黎到斯特拉斯堡的火车 妹妹很饿试玩 超级马赛克兄弟 2019龙珠激斗平民攻略