Hi,
Ich möchte eine Form aus einer Datenbank kopieren in eine ander.
Bisher habe ich es geschaft mir die Einzelnen Formen (Masken) jeder Datenbank anzeigen zu lassen, aber wie kopiere ich diese?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim item As notesitem
Dim a As String
Dim strListe() As String
Set ws = New notesuiworkspace
Set uidoc =ws.currentdocument
Set doc = uidoc.document
Set db = session.getDatabase("",uidoc.fieldgettext("dbLokal"))
doc.Liste_Lokal = ""
formCount = 0
msgString = ""
Forall form In db.Forms
formCount = formCount + 1
msgString = msgString & Chr(10) & " " & form.Name
Set item = doc.GetFirstItem( "Liste_Lokal" )
a = form.Name
Call item.AppendToTextList(a)
Call uidoc.refresh()
Call doc.Save( True, True )
End Forall
End Sub
