Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Denker30 am 23.08.02 - 10:52:03
-
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
-
Hi,
das Problem lässt sich nicht so einfach lösen. DAS WUSSTEST DU BIS EBEN AUCH. Warum ? Du willst ein Gestaltungsdokument kopieren. Das ist super heftig. Es geht. Dafür gibt es Tools, die auf dem Markt verkauft werden. Das ist nicht mal eben zu machen. Diese Tools können Masken und Ansichten sogar Felder austauschen in bestehenden Masken.
Sorry. Mehr kann man da nicht zu sagen. Dir Firma IT-Factory hat so ein Tool.
Gruss
Andreas Schmidt 8)
http://www.lotus-schmidt.de