Access vba設置有記録級的效性規(guī)則

在Access中，我們録入數(shù)據(jù)需要判斷數(shù)據(jù)是否符閤規(guī)則。所以在錶設計時，可以設置有效性規(guī)則來限製數(shù)據(jù)的録入。

前麵的文章中有講解如何在錶中設置有效性規(guī)則《Access限製錶字段中録入不規(guī)則的數(shù)據(jù)》

這裡我們講下如何用vba創(chuàng)建有效性規(guī)則

使用 SetTableValidation 函數(shù)來設置記録級的有效性規(guī)則，以確?！半x職日期”字段中的值比“工作開始日期”字段中的值要晚。

    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

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

如果“離職日期”比“工作日期”要晚，正常填寫數(shù)據(jù)