Save fields other database

HCL Domino Domino Forum
1

Database 1field1

field12

field13

field14

Database 2

field2

field21

field23

field24

I have 4 fields in base one with a button

I need to save its content in another base

Do you help?

Thanks

2

Subject: Save fields other database

this is old school but it will help you

Dim s As New Notessession

Dim w As New NotesUIWorkspace

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Dim uidoc As NotesUIDocument

Dim thisUIDoc As NotesUIDocument

Dim thisDoc As NotesUIDocument

Dim sServer As String

Dim sDatabase As String

Dim Tuidoc As NotesUIDocument

Set Tuidoc = ws.CurrentDocument



Dim gProjSummary As String

Dim gProjObj As String

Dim gUNID As String

gProjSummary = Tuidoc.FieldGetText( "ProjSummary" )

gProjObj = Tuidoc.FieldGetText( "ProjObj" )

gUNID = Tuidoc.FieldGetText( "UNID" )

'Variables

sServer = "<serverName>"

sDatabase = "pDes.nsf"

sForm = "Description"

'Get other database and create document

Set db = s.CurrentDatabase

Set uidoc = w.ComposeDocument(sServer, sDatabase, sForm)



Call uidoc.FieldSetText("Title", gProjSummary)

Call uidoc.FieldSetText("ProjObj", gProjObj)

Call uidoc.FieldSetText("UNID", "pd" & gUNID)

Call uidoc.Refresh