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

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

前面的文章中有講解如何在表中設(shè)置有效性規(guī)則《Access限制表字段中錄入不規(guī)則的數(shù)據(jù)》

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

使用 SetTableValidation 函數(shù)來設(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ù)