office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access vba設置有記録級的效性規則

2019-01-24 15:58:00
tmtony8
原創
4180

在Access中,我們録入數據需要判斷數據是否符閤規則。所以在錶設計時,可以設置有效性規則來限製數據的録入。

前麵的文章中有講解如何在錶中設置有效性規則《Access限製錶字段中録入不規則的數據


這裡我們講下如何用vba創建有效性規則

使用 SetTableValidation 函數來設置記録級的有效性規則,以確保“離職日期”字段中的值比“工作開始日期”字段中的值要晚。

    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



如果“離職日期”比“離職日期”工作日期早。會提示錯誤。



如果“離職日期”比“工作日期”要晚,正常填寫數據



    分享