Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Mar 18, 2009, 11:17 AM by 9notes/9Notes|Topic Responses: 11 |
&action=openDocument&documentId=281E |
ตามนี้ครับ continue = false จะทำให้ออกจากหน้าจอโปรแกรมไม่ได้ครับ ถ้า FieldName มีค่าเป็น blank ครับ
Dim ws as New NotesUIWorkspace
Dim uidoc as NotesUIDocument
Dim doc as NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
if doc.FieldName(0) = "" then
Msgbox "Fieldname must not be blank"
Continue = false
exit sub
End If |
|