Gültigkeit von Variablen

[koehlerbv]

Markus, probiert einfach folgendes aus:

Code

Sub Test (docTmp As NotesDocument)
	
	Dim session As New NotesSession
	Dim dbCurrent As NotesDatabase
	Dim collAllDocs As NotesDocumentCollection
	
	
	Set dbCurrent = session.CurrentDatabase
	Set collAllDocs = dbCurrent.AllDocuments
	Set docTmp = collAllDocs.GetFirstDocument
	
	If docTmp Is Nothing Then
		Msgbox "docTmp is Nothing"
	Else
		Msgbox "docTmp is NOT Nothing!" & Chr$ (10) & "Form = " & docTmp.Form (0)
		
	End If
End Sub

Button mit dem Test-Code:

Code

Sub Click (Source As Button)
	
	Dim session As New NotesSession
	Dim dbCurrent As NotesDatabase
	Dim docOther As NotesDocument
	
	Set dbCurrent = session.CurrentDatabase
	
	Call Test (Nothing)
	
	Set docOther = Nothing
	Call Test (docOther)
	
	Set docOther = dbCurrent.CreateDocument
	docOther.Form = "TEST"
	Call Test (docOther)
	
End Sub

Call Test (Nothing) zeigt das beklagte Verhalten, wie es Werner beschrieben und Markus (der andere) erlebt hat.

Bernhard

[MadMetzger]

Leider kann ich es nicht mehr ausprobieren... Ich habe seit 1,5 Jahren nicht mehr mit Notes gearbeitet und habe auch keinen Rechner, auf dem ich Notes installiert habe. Bernhard, aber ich glaube dir, dass das so ist, wie du es beschrieben hast.

[BigWim]

Markus, probiert einfach folgendes aus

ich weiß, ich bin nicht gemeint, habe es aber dennoch ausprobiert. Ich wollte wissen, ob ich das im Debugger hätte erkennen können.

Ergebnis: Nein!

Offensichtlich sparst du durch diesen Code keinen Aufwand, wie wir hier ja gerade sehen. Selbst wenn die Funktion zum Berechnen nur die Klasse verwendet, wäre das schon eine sinnvolle Trennung, in Iteration, Aufruf der Logik und Ausführung der Logik.

Das habe ich dabei gelernt!

Markus