OpenOffice.info

oForm = ThisComponent.Drawpage.Forms.getByIndex(0)
	with oForm
        .AllowInserts = true
        .AllowDeletes = false
        .AllowUpdates = false
	end with
	oForm.parent.parent.lockcontrollers
    oForm.reload
      oForm.parent.parent.unlockcontrollers
    oform.moveToInsertRow()

ah cool vielen dank... so bisl versteh ichs... hab das etwas anders gelöst.... zwar nicht so elegant aber funzt^^

[code]oForm = ThisComponent.Drawpage.Forms.getByIndex(0)
with oForm
.AllowInserts = true
.AllowDeletes = false
.AllowUpdates = false
end with
oForm.parent.parent.lockcontrollers
oForm.reload
oForm.parent.parent.unlockcontrollers
oform.moveToInsertRow()[/code]

mittels movetoinserrow springt er gleich zu den leeren datensatz, wo man dann die Daten einpflegen kann.
aber bei deinen spar ich mir code... :D

oForm.IgnoreResults = True

Aloha

[code]
oForm.IgnoreResults = True
[/code]

ist die Antwort zu Deiner Frage.

[url=http://api.openoffice.org/docs/common/ref/com/sun/star/sdb/RowSet.html#IgnoreResult]API: Service RowSet[/url]

Die Einstellung bewirkt im Endeffekt nichts anderes, als dass die Ergebnisse der Abfrage des Formulars an die verbundene Tabelle(n) direkt verworfen werden, so dass es logischerweise gar nicht erst möglich ist, bestehende Daten zu ändern - daraus folgt dann konsequenterweise, dass man [i]nur[/i] Daten hinzufügen kann.

oForm = ThisComponent.Drawpage.Forms.getByIndex(0)
	dim bReadOnly as boolean
	bReadOnly = bLock
	with oForm
        '
        .AllowInserts = true
        .AllowDeletes = false
        .AllowUpdates = true
	end with
	dim bkMark as variant
    bkMark = oForm.getBookMark
	oForm.parent.parent.lockcontrollers
    oForm.reload
    oForm.absolute( bkMark )
    oForm.parent.parent.unlockcontrollers

Hallo leute, gleich vorne weg die frage wurde schonmal gestellt [url]http://de.openoffice.info/viewtopic.php?f=18&t=21985&p=93994&hilit=formular+eigenschaft#p93994[/url]

also meine frage ist wie kann ich mit einen Makro die Formulareigenschaft auf "nur Daten hinzufügen" ändern.

das mit den Insert,update, und readonly das versteh ich und hab ich erfolgreich angewendet.

[code]oForm = ThisComponent.Drawpage.Forms.getByIndex(0)
dim bReadOnly as boolean
bReadOnly = bLock
with oForm
'
.AllowInserts = true
.AllowDeletes = false
.AllowUpdates = true
end with
dim bkMark as variant
bkMark = oForm.getBookMark
oForm.parent.parent.lockcontrollers
oForm.reload
oForm.absolute( bkMark )
oForm.parent.parent.unlockcontrollers[/code]

ich kann mir sowas wie .allowisertsonly vorstellen aber die Eigenschaft ist für Basic unbekannt. erzeugt eine fehlermeldung.
Ich verwende Openoffice 3.2., ich bin für jeden Hinweis Dankbar.... :) wäre super wenn ihr mir helfen könntet will nicht für jedes Formular ein Extraformular erstellen wo der Haken dann drin ist