[Notes] 使用設定方式驗證欄位不可空白

Dim setDoc As NotesDocument
Dim view As NotesView
Set view = db.Getview("vParameter")
Dim LeftKey As  String
Dim RightKey As  String
If Not view Is Nothing Then
Set SetDoc = view.Getdocumentbykey("VerifySubmit")
If Not setDoc Is Nothing Then
'Dim item As NotesItem
Set item = setdoc.Getfirstitem("ItemDescription")
For i =0 To UBound(setdoc.ItemDescription)
RightKey = StrRight(setdoc.Getitemvalue("ItemDescription")(i),"|")
LeftKey = StrLeft(setdoc.Getitemvalue("ItemDescription")(i),"|")
if doc.Getitemvalue(LeftKey)(0) = "" Then
errMsg$ = errMsg$ & "請輸入【"+ RightKey +"】！" & Chr(10)
End If
Next
End If
End If

confirmed_date|Case confirmed date
SCARNo|SCAR
CQEID| CQE
Functional|Category
PN|P/N
Type|Type
Team_member|Team member 
Customer|Customer
LN| L/N
Symptom| Defect Description
DQty| Defect Q'ty
DR| Defect Rate 
FanOut| 是否 Fan Out