2

AUNID特定の子ドキュメントの一意の ID が入力されたフィールドを持つフォルダーにドキュメントがあります。AUNIDフォルダのアクションバーには、ユーザーが編集するために関連するドキュメントを開くためのボタンがあります。

アクション ボタンを押すと、ユーザーに次のエラーが表示されます。

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

ただし、[OK] を押すと、正しいドキュメントが編集用に開きます。デバッガーを使用しましたが、コードはすべて予想どおりに実行されていますが、このエラーは理由がないように思われます。

これが私のコードです：

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
4

1 に答える 1

4

開いている子ドキュメントのフォームを確認してください。そのドキュメントのロード中にエラーの原因となっている何かがあると思われますが、それは親ドキュメントのアクションまたは AUNID アイテムとは関係ありません。

または、新しい子ドキュメントを作成して、エラーが表示されるかどうかを確認してください

于 2013-01-23T21:07:04.767 に答える