Domino注意如何将文档移回原始NSF？

如何解决Domino注意如何将文档移回原始NSF？

我已经问过“如何将文档从原始NSF移至另一个NSF？”

(Domino Notes)How to move documents from the original NSF to another NSF?

现在，我仍然想问“如何将文档移回原始NSF？”

---

我想制作可以移回原始数据库的表单，但是命令中有错误，并且无法移回。

以下说明写在NOTES表单的按钮中。

如何修改它们？

Sub Click(Source As Button)
    Dim ws As New notesuiworkspace
    Dim uipr As NotesUIDocument
    Dim ask_me As Variant
    Set uipr = ws.CurrentDocument

    data(0) = "Back original NSF"
    data(1) = "Non-person case"
    ask_me = ws.Prompt(PROMPT_OKCANCELEDITCOMBO,"Reset Reason","Choose a reason...",data(0),data())
    If ask_me = False Then Exit Sub
    If uipr.editmode=False Then uipr.editmode=True
    If ask_me = data(0) Then
        Dim achiveDB As New NotesDatabase("fcpnotesM","EFA00B7.nsf")
        Dim doc As Notesdocument
        Set doc = uipr.Document
        Call ChangeField
        MsgBox "Change field OK"
        Call doc.copyToDatabase(achiveDB)
        MsgBox "copy success"
        Call doc.Remove(True)
        MsgBox "Move success"
    End If
End Sub

解决方法

uipr似乎已在定义/分配之前使用

If uipr.editmode=False Then uipr.editmode=True //used here
If ask_me = data(0) Then
    Dim achiveDB As New NotesDatabase("fcpnotesM","EFA00B7.nsf")
    Dim uipr As NotesUIDocument //defined here,but no asignment