Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Web Browser) |
Tags1: | Created on Feb 12, 2008, 2:08 PM by 9notes/9Notes|Topic Responses: 2 |
&action=openDocument&documentId=13BE |
ถ้าเป็น loop ของ database บน server ก็ตามนี้ครับ
Dim dbdir As New NotesDbDirectory("ServerName")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
Msgbox db.Title, , db.FileName
Set db = dbdir.GetNextDatabase
Wend
ถ้าเป็น loop ของ record ก็ตามนี้ครับ
SearchFormula$ = "Form = ""FormName""" + "&" + TmpSubject$
Set Collection = db.Search(SearchFormula$, dateTime, 0 )
for i = 1 to Collection.Count
set doc = collection.GetNthDocument(i)
'..... ระบุ code เพิ่มเติมได้เลย.....
.............................
.............................
next
:yellow_cool.gif: |
|