Domino 9 und frühere Versionen > ND6: Entwicklung

Werte übernehmen(kopieren)

<< < (3/4) > >>

fiuman007:
Hm. Also LotusScript. Da kenn ich mich ja noch weniger aus ....  :(

Hat schon jemand was ähnliches gemacht oder gibt es hier im Forum ein ähnliches Thema?

Ich habe bisschen rumgesucht, aber bis jetzt leider noch nichts gefunden ...

Semeaphoros:
Aehnliches hat es hier auch schon gegeben, aber mir fällt spontan nichts ein, wo man so einen Thread finden könnte. Mal abwarten, was die anderen noch so für Ideen bringen, musst mal ein bisschen abwarten, die sind offenbar alle am Aufschwung basteln :)

Axel:
Hi,

du erstellst dir einen Hotspot, entweder über einer Grafik oder einen Aktionshotspot.  In der Titelzeile des unteren Fenster des Designers wählst du Lostusscript aus und kopiert das Script hinein. Dann musst du das Script noch an deine Maskennamen und Feldnamen anpassen.

...
docNew.Form = "Name der Maske"  'Hier kommt der Maskenname´hin
docNew.Feld1 = docCurrent.Feld1    'Feld1 musst du durch deine Feldnamen ersetzen
docNew.Feld2 = docCurrent.Feld2    'Feld2 musst du durch deine Feldnamen ersetzen
...

docNew ist das neue Document und docCurrent ist das aktuelle Dokument mit den Feldern aus denen die Werte geholt werden sollen.

Ich hoffe ich einigermaßen verständlich erklärt.


Axel
 

fiuman007:
Hi,

hab das jetzt so gemacht wie du es mir geschrieben hast :


Sub Click(Source As Button)
   docNew.Form = "Anfragen"
   docNew.BezeichnungAnfrage = "Bezeichnung1"  
   docNew.ZeichnungAnfrage = "Zeichnung1"  
End Sub


Bekomme jetzt aber immer den Fehler wenn ich draufklicke :
"Variant does not contain an object" .....



 ???

Axel:
Hi,

dir fehlt noch einiges von meinem obigen Script.

Das ganze Script muss so aussehen.

Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docCurrent As NotesDocument
Dim docNew As Notesdocument  

Set uidoc = ws.CurrentDocument
Set docCurrent = uidoc.Document
Set db = session.CurrentDatabase  
Set docNew = New NotesDocument(db)  'Neues Dokument anlegen

docNew.Form = "Anfragen"
docNew.BezeichnungAnfrage = "Bezeichnung1"  
docNew.ZeichnungAnfrage = "Zeichnung1"  

Call docNew.Save(True, False)  'Sichern des Dokumentes

End Sub


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete