Domino 9 und frühere Versionen > ND8: Entwicklung

Datenübernahme in andere DB

<< < (3/3)

Peter Klett:
Mit Script ist das eine Kleinigkeit. Willst Du es damit einmal versuchen?

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim db As NotesDatabase
Set db = doc.ParentDatabase

Dim newdb As New NotesDatabase (db.Server, "Allgemein\Telefon.NSF")
If Not newdb.IsOpen Then
   Msgbox "TelefonDB konnte nicht geöffnet werden", 16, "Fehler"
   Exit Sub
End If
Dim newdoc As New NotesDocument (newdb)
newdoc.Form = "Telefonbuch"
'Hier kommt die Feldübernahme
newdoc.TXT_Vorname = doc.P_Vorname
...

Call workspace.EditDocument (True, newdoc)

Keydins:
Ja, ich erzeuge in einer anderen Datenbank (sogar auf einem anderen Server) per

@Command([Compose];"vollständiger Servername":"Pfad & Zieldatenbank";"Maske");

Funktioniert seit Notes 6 ohne Probleme.

Hast du in deinem [Compose] den vollständigen Servernamen eingetragen? Das ist nämlich der einzige Unterschied, den ich zwischen deiner Formel und meiner erkennen kann. Und bei Namen ist Notes manchmal sehr empfindlich.


Gruß
Dirk

Thunder:
Habe jetzt einmal den vollständigen Namen eingetragen - keine Änderung.  :-:

@Peter: Mit dem Script läuft das einwandfrei. Besten Dank dafür!  :knuddel:
              Ich muss mich da wohl doch einmal mit befassen...

Gruß
Remko

Navigation

[0] Themen-Index

[*] Vorherige Sete