Domino 9 und frühere Versionen > Entwicklung

Dokument über die ID kopieren

<< < (4/8) > >>

Selin:

--- Zitat von: Axel am 08.11.04 - 15:24:19 ---In dem Ersetzen-Script nimmst du den markierten Eintrag des Listenfeldes und "extrahierst" die ID.


...
intPos = InStr(doc.Ergebnisliste(0), "~")
strID = Mid$(doc.Ergebnisliste(0), pos+1)
...

 
Mit dieser ID kannst du dann auf das Dokument zugreifen.


...
Dim dbTarget As NotesDatabase
Dim docTarget As NotesDocument
...

'Hier kommt die Ermittlung der ID rein (Code siehe oben)

...
Set dbTarget = New NotesDatabase( "Name des Servers", "Name der Datenbank")
Set docTarget = dbTarget.GetDocumentByUNID( strID)
'Ab hier kann das Dokument manipuliert werden
...


--- Ende Zitat ---
Mit Set docTarget = dbTarget.GetdocumentByUNID(strID) klappt das nicht. Da kommt die Meldung "Invalid universal ID"
Mein Ersetzen Script sieht so aus...

Sub Click(Source As Button)
   Dim ws As New notesUIWorkspace
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection
   Dim docTarget As NotesDocument
   Dim dbTarget As NotesDatabase
   
   Set dbTarget = New NotesDatabase(  "Server", "Ordner/VIP.nsf" )
   Msgbox("db")   
   Set docTarget = dbTarget.GetDocumentByUNID(strID)
   
   Set doc = ws.CurrentDocument.document
   Msgbox("doc")
   
   
   intPos = Instr(doc.Ergebnisliste(0), "~")
   strID = Mid$(doc.Ergebnisliste(0), pos+1)
   Msgbox(strID)
   
   '   Set dc = dbTarget.Search( |"|+doc.Ergebnisliste(0)+|"| ,Nothing,0 )
   'Set doc = dc.GetFirstDocument
   
   
End Sub


Was ist da falsch?

danke + Gruß
Selin


 

koehlerbv:
Und an welcher Stelle ermittelst Du die UNID ?? strID ist ja nicht mal deklariert (also hast Du noch nichtmal Option Declare gesetzt !) ...

Bernhard

Axel:
Hi,

so kann das auch nicht gehen. Als Erstes erwartet GetDocumentByUNID einen String als Parameter. Du hast die Variable nicht deklariert. Außerdem belegst du die Variable garnicht.

Sub Click(Source As Button)
   Dim ws As New notesUIWorkspace
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection
   Dim docTarget As NotesDocument
   Dim dbTarget As NotesDatabase
  
   Dim intPos As Integer
   Dim strID As String
  
   Set doc = ws.CurrentDocument.document
   Msgbox("doc")
  
   intPos = Instr(doc.Ergebnisliste(0), "~")
   strID = Mid$(doc.Ergebnisliste(0), intPos+1)
   Msgbox(strID)


   Set dbTarget = New NotesDatabase(  "Server", "Ordner/VIP.nsf" )
   Msgbox("db")  
   Set docTarget = dbTarget.GetDocumentByUNID(strID)
  
    
   '   Set dc = dbTarget.Search( |"|+doc.Ergebnisliste(0)+|"| ,Nothing,0 )
   'Set doc = dc.GetFirstDocument
  
End Sub

Sei mir nicht böse, aber solche Dinge sind eigentlich Grundwissen in Script. An deiner Stelle würde ich mich erstmal in Script einarbeiten und dann solche Probleme lösen. Im Moment baust du einfach irgendwelche Scriptteile zusammen, ohne dir über die Funktion und Voraussetzungen bewusst zu sein.

Axel

Selin:
Danke.

Ja hast Recht.
Versuche das zwar nachzuvollziehen, aber es fällt mir schwer nur mit Büchern.
Schulung hatte ich zwar auch schon, aber der Trainer war nicht wirklich gut.
Na ja....

Don Pasquale:

--- Zitat von: Selin am 09.11.04 - 14:21:28 ---Schulung hatte ich zwar auch schon, aber der Trainer war nicht wirklich gut.

--- Ende Zitat ---

Das ist ja interessant, auch für andere. Wen hattest Du denn ? Welches Schulungscenter ?

Ciao
Don Pasquale

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete