![](https://csdnimg.cn/release/download_crawler_static/83738130/bg1.jpg)
當域為數字、日期等類型時,在保存文檔前怎樣判斷呢?
Dim doc As NotesDocument
Set doc=Source.Document
If checkday(doc)=False Then
Continue=False
Exit Sub
End If
Function checkday(doc As NotesDocument) As Boolean
Dim v As Variant
v=doc.GetItemValue("FSCJJR")
‘****判斷這個域值是否為空***
If Isempty(v) Then
Msgbox "節假日期有錯誤,請查日期與格式",,"系統提示"
checkday=False
Exit Function
End If
checkday=True
End Function