Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: skywook am 06.01.04 - 22:43:36
-
Hallo Programmierer,
habe ein Script Problem. Vielleicht kann mir jemand helfen.
In einer Datenbank A sind die UniversalID von Dokumenten die in der Datenbank B verwaltet werden. Nun soll von Datenbank A mit GetDocumentByUnID das gewünschte Dokument in der Datenbank B gesucht werden einen Feldwert ändern und ausgeben.
Leider funktioniert das Script nicht:
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=ws.currentdocument
Dim a1 As Variant
a1=uidoc.fieldgettext("DokId")
Messagebox a1
'Bis hier ist alles OK nun soll auf die Datenbank B zugegriffen werden.
Dim Datenbank1 As NotesDatabase
Dim DokBegleit1 As NotesDocument
Server = ""
Filename = "Tsicht.nsf"
Set Datenbank1 = New NotesDatabase("",Filename)
Set dokbegleit1= datenbank1.getDocumentByUnId(a1)
'wie gehts jetzt weiter bzw. ist dies bis jetzt OK
Messagebox a2
End Sub :)
-
ich denke, so sollte das funktionieren, bis jetzt.
ggf. prüfst du jetzt, ob ein Dokument gefunden wurde.
Dann musst du dir in der Hilfe Infos zu folgenden Methoden der NotesDocument-Klasse holen:
ReplaceItemValue -> ändern eines Feldwerts
Save -> Änderungen speichern
Werte ausgeben kannst du ja schon (btw: was ist a2 in der vorletzten Zeile)
-
Danke Potsmoker,
Vielen Dank!!
Habe schon getestet und hat funktioniert.
Wie kann ich jetzt noch abprüfen ob ein Dokument gefungen wird. Ansonsten soll eine Meldung ausgegeben werden.
-
If dokbegleit1 is nothing then
messagebox "Kein Dokument gefunden"
else
.......
end if
* edit * korrigiert von "null" zu "nothing"
war wohl erst ein Auge wach :-(