Hallo,
Ich hab mir ein Formular mit einer Tabelle erstellt mit der ich die Daten
meiner MySQL-Datenbank bearbeiten kann.
In einer Spalte (als numerisches Feld) möchte ich automatisch ein Makro
starten, wenn ich das Feld verlasse oder wenn halt die Daten geändert
wurden.
Das Makro soll dann überprüfen ob der eingegeben Wert überhaupt passen kann
und falls nicht diesen Wert korrigiert.
Beim einzigen Ereignisse bei dem das Makro überhaupt gestartet wird ist
"Nach dem Aktualisieren". ("Bei Fokusverlust" oder "Text modifiziert"
passiert nichts)
Nachdem das Maktro abgearbeitet ist will ich mit
Field.GetByIndex(7).Value = Rabattausgrp
denn Wert von "Rabattausgrp" in die Spalte 7 schreiben.
Wenn ich mit
msgbox Field.GetByIndex(7).Value
den Wert anzeigen lasse, dann seht dieser auch dort, aber optisch sichtbar
in der Tabelle ist dieser nicht.
Hab dann versucht am Ende des Makros über das sufgezeichnete Makro die Daten
in die Datenbank zu schreiben. Dabei hängt sich aber mein OOo1.9.122 auf.
dim dispatcher as object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
Da ich keine Lösung finden konnte hab ich ein seperates Numerisches Feld in
das Formular eingefügt.
In dieses Feld kann ich dann den Wert schreiben, das dieser auch wirklich
dort ist.
Field.Value = Rabattausgrp
Hierbei hab ich aber das Problem, daß ich das Makro beim Ereignis "Bei
Fokusverlust" starten lassen muß, denn sonst wird das Makro bei jeder
Änderung irgendwelcher Daten in der Tabelle gestartet. Das interessant ist,
wenn ich in der Tabelle mit der Tastatur zwischen den Spalten hin- und
herspringe funktioniert das ganze, aber wenn ich mit der Maus die Spalte
wechsle, dann wird immer das Makro gestartet.
Kann mit vielleicht jemand sagen, wie ich eines der Probleme lösen kann,
damit wenigstens eine Methode funktioniert?
DANKE
Georg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
