Script gesucht

[skywook]

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 :)

[animate]

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)

[skywook]

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.

[Semeaphoros]

If dokbegleit1 is nothing then
  messagebox "Kein Dokument gefunden"
else
  .......
end if


* edit * korrigiert von "null" zu "nothing"
war wohl erst ein Auge wach :-(