Object Varibale not set

[stitze]

Moin liebes Forum,

ich bekomme immer oben genannte Fehlermeldung. Folgender Zustand.

Ich habe eine Maske ("frmPublikation") mit einem Listenfeld und einen Button.
Über den Button rufe ich mit folgendem Code eine Dialogbox auf:

Code

Sub Click(Source As Button)
	
	Const constrObjectName = "frmPublikation"
	On Error Goto ErrHandler
	
	Dim uiws As New NotesUIWorkspace 
	Dim db As New NotesDatabase( "", "ar13ra01.nsf" )
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim dialogdoc As NotesDocument 	
	Dim varOk As Variant
	
	Set uidoc = uiws.Currentdocument	
	Set doc = uiws.currentdocument.document
	Set dialogdoc = db.createdocument
	
	varOk = uiws.DialogBox( "frmDlgPublication" , False , False  , True  , False , False , False , "Änderungsbriefe auswählen",  dialogdoc, True, True )
	
	If ((varOk = True)) Then
		doc.txtAenderungsbriefeUnID = dialogdoc.GetItemValue( "txtAenderungsbreife" )	
	End If
	
	Call uidoc.refresh
	Call uidoc.refresh
	
Ende:	
	Exit Sub   
	
ErrHandler:
	Call arOutputError(constrObjectName, Err, Erl(), Error())
	Resume Ende	
	
End Sub

In der Postopen Methode der Maske "frmDlgPublication" steht folgender Code:

Code

Sub Postopen(Source As Notesuidocument)
	
	Const constrObjectName = "frmDlgPublication"
	On Error Goto ErrHandler
	
	Dim dbThis As New NotesDatabase( "", "ar13ra01.nsf" )
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim item As NotesItem
	
	Dim docCollectionDocuments As NotesDocumentCollection
	
	Dim docDocument As NotesDocument 
	
	Dim strSearchString As String
	Dim strNewValue As String
	Dim aryAEBFNr() As String
	
	Dim i As Integer 
	Dim j As Integer
	Dim intCount As Integer
	
	Dim bolFind As Boolean 
	
	Dim aryClean As Variant 
	
	strSearchString = "@Contains( Art; ""Schlüsselbeschreibung"" )"
	
	Set docCollectionDocuments = dbThis.Search( strSearchString, Nothing, 0 )
	
	Redim aryAEBFnr( docCollectionDocuments.Count, 2 )
	
	intCount = 1
	j = 1
	
	For i = 1 To docCollectionDocuments.Count
		
		bolFind = False
		
		Set docDocument = docCollectionDocuments.GetNthDocument( i )
		
		For j = 1 To Ubound( aryAEBFNr, 1 )
			If Not aryAEBFNr( j, 1 ) = "" Then
				If docDocument.AEBF(0) = aryAEBFNr( j, 1 ) Then
					bolFind = True
					
					j = Ubound( aryAEBFNr, 1 )
				End If
			End If
		Next
		
		If Not bolFind Then
			aryAEBFNr( intCount, 1 ) = docDocument.AEBF(0)
			aryAEBFNr( intCount, 2 ) = docDocument.UniversalID
			
			intCount = intCount + 1
		End If
	Next
	
	Set uidoc = workspace.CurrentDocument
	Set item = uidoc.Document.GetFirstItem("txtAenderungsbreife")
	
	Msgbox item.Name  
	
	For i = 1 To Ubound( aryAEBFNr, 1 )
		If Not aryAEBFNr( i , 1 ) = "" Then
			strNewValue =aryAEBFNr( i, 1 ) & "|" & aryAEBFNr( i, 2 )
			item.AppendToTextList(strNewValue)
		End If
	Next
	
	uidoc.Refresh
	
Ende:	
	Exit Sub   
	
ErrHandler:
	Call arOutputError(constrObjectName, Err, Erl(), Error())
	Resume Ende	
	
End Sub

Rufe ich nun über den Auswahlbutton den Dialog auf, bekomme ich eben oben genannte Fehlermeldung.

Rufe ich das Formular "frmDlgPublication" aus dem Designer auf, funktioniert das ganze und wie gesagt in der Dialogbox scheitert das.

Hat jemand eine Ahnung wo der Denkfehler liegt?

Als Anmerkung, das Formular "frmPublication" soll nicht gespeichert werden, sondern dient nur zum zwischenspeichern des Ergebnisses aus der Dialogbox, weil im weiteren Verlauf noch eine Dialogbox aufgerufen werden soll und diese Ergebnisse plus die Ergebnisse der ersten Dialogbox werden dann auf die Datenbank angewandt.

Mfg

Sebastian

[koehlerbv]

Und in welcher Zeile kommt der Fehler ? Wo ist Dein ErrorHandling ?

Bernhard

[stitze]

Wo der Fehler kommt ist schwer zu sagen, da der LS Debugger nicht den Quelltext aus einer Dialogbox debuggt, aber mittels Msgbox konnte ich feststellen das es anscheinend schon in der Ersten Zeile vorkommt.

Mh, Error Handling, das wär nochmal was, binde es mal ein, vieleicht bringt mich das ja weiter, thx, für den Tipp, sollten wir eigentlich auch immer machen, war etwas faul das einzubinden.

Gruß

Sebastian

[stitze]

So hab das Errorhandling hinzugefügt, aber kommt trotzdem noch die Fehlermeldung. Die Meldung, welche der Errorhandler rausschmeissen sollte, lässt auf sich warten  .

Mfg

Sebastian