OpenOffice.info

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

Code: Alles auswählen

Sub Main
   Main2("a",)
End Sub

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

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)

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

Code: Alles auswählen

Sub insupd_editorid

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

End Sub