Domino 9 und frühere Versionen > ND6: Entwicklung

Gültigkeit von Variablen

<< < (5/5)

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
--- Ende Code ---

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
--- Ende Code ---

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:

--- Zitat ---Markus, probiert einfach folgendes aus
--- Ende Zitat ---
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!


--- Zitat ---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.
--- Ende Zitat ---
Das habe ich dabei gelernt!

Markus

Navigation

[0] Themen-Index

[*] Vorherige Sete