0

私の目標は、あるデータベースから別のデータベースにドキュメントを作成し、フィールドにソース データベースの値を入力することです。他のデータベースに接続して文書を作成することはできたのですが、編集ができません。

Sub Click(Source As Button)

Dim mydb As NotesDatabase
Dim workspace As NotesUIWorkspace 
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Dim Server As String 
Dim DBPath As String 
Dim DBForm As String

'----------------------------------------------------------------- 
' Set target database information 
'-----------------------------------------------------------------
Server = "Server"
DBPath = "Path"
DBForm = "Form"

'----------------------------------------------------------------- 
' Attempt connection to target server
'-----------------------------------------------------------------
Print "Connecting to target database"
Set mydb = New NotesDatabase("", "") 
Call mydb.Open(Server, DBPath)  

If (mydb.IsOpen) Then 
    '-----------------------------------------------------------------
    ' Create new document 
    '-----------------------------------------------------------------
    Print "Connection established to: " + mydb.FileName 
    Set workspace = New NotesUIWorkspace 
    Print "Composing change management record" 
    Set uidoc = workspace.ComposeDocument (Server, DBPath, DBForm)

    Call uidoc.FieldSetText("FIELD", "12345")
Else
    Msgbox "Warning: unable to open target database." 
End If      

End Sub

私が電話しているとき

Call uidoc.FieldSetText("FIELD", "12345")

ドキュメントを編集モードで開く必要があるというエラー メッセージが表示されます。で編集モードを変更しようとすると

uidoc.EditMode = True

「ドキュメント コマンドは使用できません」というエラー メッセージが表示されます。誰かがここで私を助けてくれますか?

4

1 に答える 1

2

フロントエンドクラスではなくバックエンドを取ることは可能です

Dim workspace As New Notesuiworkspace
Dim session As New NotesSession
Dim myDb As NotesDatabase
Dim doc As notesdocument

Set myDb= session.Getdatabase("Server", "Path", false)
If (mydb.IsOpen) Then 
Set doc = myDb.Createdocument()
doc.field="12345"


Call workspace.Editdocument(true, doc)
Else
Msgbox "Warning: unable to open target database." 
End If
于 2014-09-12T07:40:01.830 に答える