BASIC-Laufzeitfehler. Objektvariable nicht belegt

[oliver1804]

Hallo liebe Gemeinde,

ich benutze folgende Prozedur:

Code: Alles auswählen

Option Explicit

' bei INSERT, UPDATE und DELETE Ident ins Formular-ResultSet eintragen
Sub insert_into_ResultSet(Optional oForm as Object, sFormname as String, sResultfield as String, iKz as Integer)

	' iKz = 0: INSERT/UPDATE
	' iKz = 1: DELETE
	
	Dim nSp as Long

	If isMissing(oForm) Then	
		oForm = ThisComponent.drawpage.forms.getByName(sFormname)
	End If
	
	nSp = oForm.findColumn(sResultfield)
	oForm.updateString(nSp,iUserID)
	
	' vor dem DELETE erfolgt ein UPDATE
	If iKz = 1 Then
		oForm.upDateRow()
	End If

End Sub

, die ich (in diesem Fall) mittels

Code: Alles auswählen

Sub insupd_editorid

	insert_into_ResultSet(,"MainForm","id_staff_editor",0)

End Sub

aufrufe.

Weshalb bekomme ich nun die Fehlermeldung, obwohl ich doch das Argument als optional übergebe?

Danke für die Hilfe
Oliver

[peterschleif]

Hallo Oliver.

Du darfst optionalen Parametern keinen Datentyp zuweisen (außer Variant) sonst liefert IsMissing() immer False. Du müsstest den Datentyp also ganz weglassen oder Variant wählen.

Code: Alles auswählen

Sub insert_into_ResultSet(Optional oForm,            sFormname as String, sResultfield as String, iKz as Integer)
Sub insert_into_ResultSet(Optional oForm As Variant, sFormname as String, sResultfield as String, iKz as Integer)

Peter

[Stephan]

Weshalb bekomme ich nun die Fehlermeldung, obwohl ich doch das Argument als optional übergebe?

Bin ich mir auch nicht im Klaren.

Du könntest diesen Parameter aber wohl ans Ende der Paramerterliste stellen, dann sollte e funktionieren auch wenn Du ddeen nicht übergibst.

Du darfst optionalen Parametern keinen Datentyp zuweisen (außer Variant) sonst liefert IsMissing() immer False.

Für mich nicht nachvollziehbar. In folgendem Beispiel wird trotz DEklaration als String bei IsMissing() True geliefert:

Code: Alles auswählen

Sub Main
   Main2("a",)
End Sub

Sub Main2(x As String, Optional y As String)
Msgbox isMissing(y)
End Sub

Gruß
Stephan

[peterschleif]

Hallo Stefan.
Hallo Oliver.

Das stimmt. Bei Parametern am Ende der Liste geht es. Also entweder am Anfang lassen (ohne Typ bzw mit Variant) oder ans Ende setzen.
Gut zu wissen.

Code: Alles auswählen

Sub Main
   Main2(,"a",)
End sub

Sub Main2(Optional w As String, x As String, Optional y As String)
	print isMissing(w), isMissing(y)
End Sub

Peter