In kopiertem Datensatz mit hinterlegtem Makro, Felddaten löschen

[Pensionär]

Guten Tag

Es gibt ja im Base eine komfortable Lösung um Datensätze zu kopieren, indem man in der Tabelle einen Datensatz mit der Maus über den nächsten Datensatz zieht. Im neuen Datensatz sind dann alle Werte übernommen.
In meinem Fall wäre es super, wenn das Datum und die Belegnummer gelöscht wären.
Kann man mit einem Makro auf Felder zugreifen und diese löschen und dieses Makro im Formular Eigenschaften, (unter: Nach der Datensatzaktion...) hinterlegen?
Ich finde keine anwendbare Lösung, weder in der Anleitung noch im Forum.

Vielen Dank, falls jemand einen Vorschlag hat.

Einen schönen Abend
und beste Grüsse
Markus

[RobertG]

Hallo Markus,

Du kannst natürlich auf den aktuellen Datensatz zugreifen und mit updateNULL ein entsprechendes Feld leeren. Das ginge z.B. mit so etwas wie

Code: Alles auswählen

oForm.updateNULL(oForm.findColumn("Datum"))
oForm.updateRow()

Jetzt musst Du natürlich heraus bekommen, mit welchem Event genau Du das verbinden darfst. Schließlich willst Du das nur bei einem Insert über das Kopieren und Einfügen machen und nicht bei jeder Datensatzaktion. Da müsste ich auch mit xray testen, an welcher Bedingung das denn fest gemacht werden kann. Nicht dass Du grundsätzlich kein Datum mehr speichern kannst …

Gruß

Robert

[Pensionär]

Guten Abend Robert

Vielen Dank für die schnelle Antwort.

Ich versuchte es schon mehrmals mit dem Löschen, aber es kommt immer wieder die Meldung:
BASIC-Laufzeitfehler.
Objektvariable nicht belegt.

Auch mit Deinem Vorschlag.

Habe dann immer wieder gegoogelt wegen der Objektvariablen, aber keine Lösung gefunden.

Herzliche Grüsse
Markus

[RobertG]

Hallo Markus,

das, was ich da geschrieben habe, ist natürlich nicht eine komplette Prozedur. Wenn Du z.B. die Prozedur an ein Ereignis des Formulars koppelst, dann könnte das so lauten:

Code: Alles auswählen

SUB InhaltLoeschen(oEvent AS OBJECT)
oForm = oEvent.Source
IF oForm.ImpelementationName = "com.sun.star.comp.forms.ODatabaseForm" THEN
oForm.updateNULL(oForm.findColumn("Datum"))
oForm.updateRow()
END IF
END SUB

Die Variable oForm wird aus dem auslösenden Ereignis ermittelt. Die Abfrage zur Implementation kann eventuell entfallen. Das habe ich mir jetzt für die Prozedur nicht weiter angeschaut.

Gruß

Robert

[Pensionär]

Guten Abend Robert

Vielen Dank für Deine Hilfe.
Du hast natürlich recht, dass ich diesen Makro schwerlich hinterlegen kann, weil dann diese Aktion auf bestehenden Datensätzen auch ausgeführt wird, wenn ich mich darin bewege.

Ich habe nun bei der Tabelle einen Schalter hinterlegt, welcher beim kopieren nicht übersehen werden kann und dieser löscht dann die beiden Felder, mit diesem Makro:

SUB Datum_Beleg_loeschen
DIM oForm AS OBJECT
oForm = thisComponent.drawpage.forms.MainForm
oForm.updateNULL(oForm.findColumn("Datum"))
oForm.updateNULL(oForm.findColumn("Belegnummer"))
END SUB

Ich wünsche Dir einen schönen Abend
und grüsse Dich herzlich
Markus