Lotus notes （Domino Notes）如何将文档移回原始NSF？

我已经问过“如何将文档从原始NSF移动到另一个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

---

错误消息是什么？@PerHenrikLausten错误消息是“当NotesUIDocument实例化时无法删除NotesDocument”，请查看此答案是否对您有帮助：当您a）关闭该文档和/或b）在后端执行该作业时，应能工作