文書を更新する（NotesDocument クラス）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Dim key As String
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	key = "L01"
	Set doc = view.GetDocumentByKey(key, True)
	If Not(doc Is Nothing) Then
		doc.Price = doc.Price(0) * 2
		Call doc.Save(True, True)
	Else
		Print "一致する文書が見つかりませんでした。"
	End If	
End Sub

Select XSnippet to copy to Clipboard