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

在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

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

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