Question

我的文件夹中包含一个字段AUNID的文档，其中填充了特定子文档的唯一ID。在文件夹的操作栏上，我有一个按钮，用于打开与AUNID相关的文档，供用户编辑。

按下操作按钮时，会给用户以下错误：

Invalid UNID; UNID must be a 32-digit hex string.

然后，按“确定”后，将打开正确的文档进行编辑。我已经使用了调试器，代码完全按照我预期的方式执行，但是这个错误弹出似乎没有理由。

这是我的代码：

Sub Click(Source As Button)
    On Error Goto handleError
    Dim ws As New NotesUIWorkspace
    Dim s As New NotesSession
    Dim leaddoc As NotesDocument
    Dim action As NotesDocument
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesUIDocument

    Set db = s.CurrentDatabase
    Set leaddoc = db.UnprocessedDocuments.GetFirstDocument
    Set view = db.GetView("(ActionsByLead)")
    If (leaddoc.GetFirstItem("AUNID").Text = "") Then
        Msgbox ("There is nothing to edit!")
        Exit Sub
    End If
    Dim uid As String
    uid = Cstr(leaddoc.GetFirstItem("AUNID").Text)
    Set action = db.GetDocumentByUNID(uid)
    Call ws.SetTargetFrame("")
    Call ws.EditDocument(True, action,,,, False) 'Error occurs on this line according to the debugger. 

    Exit Sub 
handleError:
    Resume Next
End Sub

Answer 1

检查您要打开的子文档的表单。我怀疑在加载该文档时会出现导致错误的内容，并且它与父文档中的操作或AUNID项无关。

或尝试创建新的子文档并查看是否出现错误

编辑文档时无效的UNID

1 个答案: