Domino 9 und frühere Versionen > Entwicklung

Probleme beim kopieren

<< < (2/2)

koehlerbv:
Auf jeden Fall hast Du Option Declare nicht eingeschaltet, Donner:

--- Zitat ---Dim newdic As notesdocument
--- Ende Zitat ---

aber dann

--- Zitat ---Set newdoc = olddoc.copytodatabase(db)
--- Ende Zitat ---

dic = doc ? Eher nicht.

HTH,
Bernhard

Thunder:
Hast Recht Berhard und danke für die Hilfestellung Glombi - hoffe Dein Grillfleisch war gut !  ;)
Leider funzt das immer noch nicht, so wie ich das gern hätte.
Problem ist wohl das speichern zwischendurch. Wenn ich die Befehle rausnehme:
call uidoc.Reload
  Call uidoc.Save
Dann wird anstandslos kopiert - aber halt ohne die neuen Änderungen.
Dubios !
 ???

Glombi:
Ja, war lecker  :)

ich habe es getestet und es funktioniert - allerdings war ein anderer Fehler da: Die Zieldatenbank muss erst geöffnet werden:

Sub Click(Source As Button)
   Dim ws As New notesuiworkspace
   Dim uidoc As NotesUIDocument
   Dim s As New notessession
   Dim db As notesdatabase
   Dim olddoc As notesdocument
   Dim newdic As notesdocument  
   
   Set uidoc = ws.CurrentDocument
   Set olddoc = uidoc.Document  
   
   olddoc.Status = "Aktenlager"
   olddoc.Aktenort = "Aktenlager"
   
   Call uidoc.Reload
   Call uidoc.Save
   
   Set db = New NotesDatabase("","")
   Call db.Open("S155LN03","Kredit\Aktenanforderung (Archiv).nsf")

   If db.IsOpen Then
      Set newdoc = olddoc.copytodatabase(db)
   End If
   
   Call uidoc.close
   
End Sub

Thunder:
Yo - das funzt.
Herzlichen Dank !

Navigation

[0] Themen-Index

[*] Vorherige Sete