ทำ dialogue ขึ้นมาก่อนครับ ให้มีชื่อกับค่าที่ต้องการระบุอาจจะกำหนดตามนี้
อาจจะตั้งชื่อฟอร์มเป็น UpdateDialogue โดยภายในฟอร์มมี 2 ฟิลด์ตามนี้
FieldName
FieldValue
จากนั้นสร้างปุ่มเพื่อเรียก dialogue ขึ้นมาเพื่อรับค่าแล้วส่งไป update รายการครับ
Dim s As NotesSession
dim w as New NotesUIWorkspace
Dim db As notesDatabase
Dim v As NotesView
Dim doc As NotesDocument
Dim item as NotesItem
Set s=New NotesSession
Set db=s.CurrentDatabase
dim tmpdoc as New NotesDocument(db)
tmpdoc.FieldName = ""
tmpdoc.FieldValue = ""
if w.DialogBox ( "UpdateDialogue", True, True, False, True, True, False, "Update" , tmpdoc) then
set collection = db.AllDocuments
For i = 1 to collection.count
set doc = collection.GetNthDocument(i)
set item = doc.ReplaceItemValue(tmpdoc.FieldName(0),tmpdoc.FieldValue(0))
Call doc.save (False,True)
Next
End If
หมายเหตุ
ตัวอย่างอันนี้จะ update ทุกรายการใน database เลยครับ ถ้าต้องการระบุแบบระบุ form ที่ต้องการ update อาจจะต้องใช้ db.search ผมเขียนตัวอย่างไว้ในหัวข้อของการค้นหาแล้วหล่ะครับ
http://www.9notes.net/webboard.nsf/0/02F2EBBEAFD28DD8472573E500146BFC?EditDocument#post02F2EBBEAFD28DD8472573E500146BFC
:yellow_cool.gif: |