Domino 9 und frühere Versionen > ND6: Entwicklung

Werte übernehmen(kopieren)

<< < (4/4)

fiuman007:

--- Zitat von: Axel am 26.07.04 - 12:28:11 ---...
docNew.Form = "Anfragen"
docNew.BezeichnungAnfrage = "Bezeichnung1"  
docNew.ZeichnungAnfrage = "Zeichnung1"  
...



--- Ende Zitat ---

Also jetzt speichert er schon mal. Nur sind aber im neuen Dokument anstelle vom Inhalt der Felder "Bezeichnung1" & "Zeichnung1", diese Bezeichnungen.

Also es steht nicht der Inhalt drin, sondern die Namen der Felder.
Habs jetzt auch ohne Anführungszeichen versucht, aber dann übernimmt er garnichts.

Kann ich es auch so machen, dass wenn ich auf den Hotspot klicke, auch den Maske zu sehen bekomme?  Weil so speichert er sie nur, ohne sie vorher zu zeigen.

Axel:
Hi,

sorry, so kommts wenn man nur copy und paste macht.  :-\

So sollte es nun aber funktionieren:

Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uidocNew 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 = doc.Current.Bezeichnung1  
docNew.ZeichnungAnfrage = docCurrent.Zeichnung1  

Set uidocNew = ws.EditDocument(True, docNew)  'Dokument im Frontend öffnen
Call uidocNew.Refresh 'Dokument aktualisieren

End Sub

Axel
 

fiuman007:
Danke danke !!! Es geht jetzt.  
Echt vielen Dank Axel.

Axel:
Hi,

prima.

Setzt du den Thread bitte noch auf "Erledigt".  Danke.


Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete