Wo ist bloß der Fehler?

[zyrak2003]

Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden. Passiert aber nicht:

Sub Click(Source As Button)
   Dim s As New Notessession
   Dim db As NotesDatabase
   Dim dbAdr As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim docAdr As NotesDocument
   
   Dim ws As New NotesUIWorkspace
   Set doc=ws.CurrentDocument.Document
   
   Dim ID As String
   Dim servername As String
   Dim dbname As String
   
   Servername="xxx"
   DBname="xxx.nsf"
      
   Set dbAdr=s.GetDatabase(Servername, DBname)
   
   If Not dbAdr.IsOpen Then
      Msgbox "Die Datenbank konnte nicht geöffnet werden." & Chr(13) & "Der Vorgang wird abgebrochen!"
      Exit Sub
   End If
   
   Set view=dbadr.GetView("LUDocID")
   id=doc.AdrDocID(0)
   Set docAdr=view.GetDocumentByKey(ID)
   docAdr.FirstName=doc.FirstName(0)
   docAdr.LastName=doc.LastName(0)
   docAdr.StreetAddress=doc.StreetAddress(0)
   docAdr.Anrede=doc.Anrede(0)
   docAdr.Zip=doc.Zip(0)
   docAdr.City=doc.City(0)
   docAdr.Country=doc.Country(0)
   docAdr.save True, False
   doc.Save True, False
   doc.close
   
End Sub

Danke für einen Tipp!

[ZaLudtske]

Hallo,

für die notesdocument-Klasse gibt es keine Methode close.

Du mußt entweder das Document mit

Code

set doc = nothing

oder

Code

delete doc 

schliessen.


mfg

rainer

[m3]

NotesDocument != NotesUIDocument

"Schließen" und damit die Methode "Close" gibts nur beim UIDocument (UserInterface...)!

[pete_bla]

Hi,

genau!

und ausserdem würde ich dir 2 dinge vorschlagen:
1. verwende noch in Opitons:

Code

Option Declare  

dann bekommst du bereits im Desinger eine Fehlermeldung wo es nicht passt.

2. ein Errorhandling:
gleich am Anfang:

Code

on error goto Hell

und am Ende, noch vor end sub

Code

Hell:
      if Not err() = 0 then
	Messagebox "Fehler #" & Cstr(err()) &  " " & Error() & " in Zeile: " & cstr(erl())
	Exit sub  ' oder: exit function ' oder resume
     End if

Gruss, Pete(r)

[koehlerbv]

Abgesehen davon ist LotusScript bzw. Notes sehr gnädig, was "garbage collection" angeht: Ein "Close" eines Backend-Dokuments ist vollkommen unnötig, da es mit der Terminierung des Moduls sowieso im Orkus verschwindet.

Bernhard

[flaite]

Abgesehen davon ist LotusScript bzw. Notes sehr gnädig, was "garbage collection" angeht

Meine profesorale Viertelstunde vergib mir heute.
Also das ist ziemlich binär:
entweder hat eine Programmiersprache einen automatischen Garbage Collector Mechanismus wie z.B. Lotus Script, Ruby, Basic oder Java oder eben nicht (wie C). Der Begriff der Gnade ist in diesem Zusammenhang irreführend. Wenn es close() geben würde, könnte man es als Objekt-Lebenszyklus Methode kategorisieren; in keinem Fall als ist es ein Destruktor zur Speicherfreigabe.

[koehlerbv]

Natürlich ist Dir vergeben, Axel, und natürlich hast Du Recht. Ich wollte es nur nicht kompliziert machen für einen offensichtlich blutigen Anfänger  Dass ein (nicht vorhandenes) Close oder Set to Nothing auch keinen Platz im Raum für Aufschnitt und Margarine (RAM) freigibt, habe ich mir schon verkniffen.

Bernhard

[ata]

... was soll denn passieren, du speicherst dein doc und nicht das docAdr

doc.Save True, False

Toni

[pete_bla]

Hi,

@All: ich glaub es war wohl so gemeint, dass zyrak2003 das Dokument des Anwenders, also das NotesUIDocument schliessen wollte .... 
Nicht irgendwelche NotesDocument recyclen oder Speicherbelegung freigeben....

@zyrak2003:
Ergänze mal die fetten Teile in Deinem Script:
und lösche die durchgestrichenen.

Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden.

'...
   Dim UIdoc As notesUIdocument
   Dim doc As NotesDocument
   Dim docAdr As NotesDocument
   
   Dim ws As New NotesUIWorkspace
   Set UIdoc=ws.CurrentDocument
   Set doc=ws.CurrentDocument.Document
   
'...   
   docAdr.save True, False
   ' doc.Save True, False
        call UIDoc.Save()
   ' doc.close
        call UIDoc.close()
   
End Sub

Gruss, Pete(r)

[koehlerbv]

Toni: Eine Zeile darüber steht docAdr.Save

Pete: Das ist jetzt Kaffeesatzleserei, und was er wirklich will, soll uns der namenlose "zyrak2003" schön selber erklären.

Bernhard

[ata]

*uuppps* - habe ich in meiner Eile übersehen...

Toni

[pete_bla]

Pete: Das ist jetzt Kaffeesatzleserei, und was er wirklich will, soll uns der namenlose "zyrak2003" schön selber erklären.

stimmt - aber so weit bin ich auch schon wieder...
.... wer hat meine Tasse schon wieder leergemacht?

[zyrak2003]

Vielen Dank für die Ratschläge. Da ich wirklich blutiger Anfänger auf dem Gebiet Lotus Script bin (vielleicht sogar noch weniger als Anfänger) hab ich mich für ein Seminar angemeldet. Danach werd ich einen weiteren Anlaufversuch unternehmen oder vielleicht selbst die Lösung heraus arbeiten.   

[Axel]

Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden. Passiert aber nicht:

So ganz verstanden habe ich noch nicht was du überhaupt machen willst.

Welches Dokument soll den geschlossen werden? Erklär mal ein bisschen genauer.

Axel