OpenOffice.info

Hallo Stephan,

Wahnsinn wie schnell Du geantwortet hast. Das hatte ich zu dem Zeitpunkt gar nicht mitbekommen.

Eins hab ich jetzt in Bezug auf meine Frage dazu gelernt.
[quote="balu"]
Wie ist das möglich das ein Sprung in eine andere Sub initialisiert und ausgeführt wird, ob wohl es keinen direkten Makro programmierten dementsprechenden Befehl dafür gibt?
[/quote]
Ich beantworte jetzt selber mal meine Frage.
Die Zuweisung eines Makros für ein Dialog-Element, und folglich wohl hochstwahrscheinlich auch für ein Formular-Element, beziehen sich nicht immer nur auf das dementsprechende Element welches man im Dialog oder im Formular sieht, sondern auch auf den Makro-Code.

Oder anders ausgedrückt.

Die Auswirkung eines zugewiesenen Makros bewirkt nicht nur im Sichtbaren Element, sondern auch im Makro selber bestimmte Aktionen. So wie in diesem "ungünstigen" Falle.

Na ja, zumindest so, oder so ähnlich. Besser kann ich es momentan nicht erklären, aber ich habe es vom Prinzip her jetzt für mich verstanden.



[quote]
Du mußt eine Variable definieren die prüft was gerade abgearbeitet wurde bevor das Text-Ändern-Ereignis eingetreten ist und dann je nach WErt dieser Variable das Text-Ändern-Ereignismakro nur bei Bedarf ausführen.
[/quote]
Dieser Lösungsvorschlag ist einfach und gut, und wird auch von mir übernommen. Zumal er mit einem extrem minimalem Arbeitsaufwand erledigt ist. Die Alternative die mir im Traum so umhergeisterte, gefiel mir überhaupt nicht. Ein paar kleine Subs erstellen, und diese bei den Ereignissen z.B. für Fokus oder Maus oder ähnlichem zuweisen und die momentanige löschen. -{brrrr, da schauerts mir}-


Nur gut das ich mit Einzelschritt gearbeitet hatte, denn sonst wäre mir wohl die Entstehung zu der Fehlermeldung ein Rätsel geblieben.


Stephan ich Danke dir vielmals.



Gruß
balu

Dim nichtstun 

Sub EingabeFormular
  nichtstun = 1
  Monatsvariablen 

  '...

  Schaltflaeche_einstellen
  nichtstun = 0
  oDialog1.execute
End Sub

sub KopfDaten
  If nichtstun = 1 Then
    Exit Sub
  End If
  DlgModl = oDialog1.Model.getByName("ListBox1")
  '...

[quote]Das auskommentieren, bzw. das zugeordnete Makro für DateField1 löschen, sind leider keine brauchbaren Lösungen da ich diese Funktionaltäten brauche.[/quote]

Vorschlag 1:
Du mußt eine Variable definieren die prüft was gerade abgearbeitet wurde bevor das Text-Ändern-Ereignis eingetreten ist und dann je nach WErt dieser Variable das Text-Ändern-Ereignismakro nur bei Bedarf ausführen.

Grob gesagt:
schreib in den KOpf

[code]Dim nichtstun [/code]


Dann in:

[code]Sub EingabeFormular
nichtstun = 1
Monatsvariablen

'...

Schaltflaeche_einstellen
nichtstun = 0
oDialog1.execute
End Sub[/code]

und in:

[code]sub KopfDaten
If nichtstun = 1 Then
Exit Sub
End If
DlgModl = oDialog1.Model.getByName("ListBox1")
'...[/code]

Reicht das insgesamt schon?


Gruß
Stephan



Gruß
Stephan

[quote]Ich muss ergänzend dazu sagen, das dem DateField1 bei
- Ereignisse
- Text modifiziert
die Sub KopfDaten zugeordnet ist.[/quote]

Soweit hatte ich jetzt garnicht gelesen, aber wenn ich diese ZUweisung entferne startet bei mir der Dialog normal (OOo3.3.0), deswegen hielt ich diese ZUweisung für die Ursache.

WEitersuchen ist jetzt schwierig weil ich ja keinen FEhler mehr bekomme


GRuß
Stephan

[quote]Und nun geschieht das Unfassbare!
Und das ist kein Scherz![/quote]

Für DateField1 ist für das EReignis "Text modifiziert" das Makro Kopfdaten() zugewiessen.

[quote]Und diesmal ist es ja echt eine Mühseelige Arbeit.[/quote]

Nö.


Gruß
Stephan

Sub EingabeFormular

oDialog1.Model.Step = 1

Sub Ruecksetzen

oDialog1.getControl("DateField1").setEmpty()

Sub KopfDaten

oDialog1.getControl("DateField1").setEmpty()

Sub Ruecksetzen

Sub EingabeFormular

oDialog1.execute

Hallo ihr Spezialisten und Könner,

diesmal habe ich für mich eine echt extrem unverständlich harte Nuss zu knacken.
Beispieldatei ist im Anhang.

Beim klick auf einen Button im Tabellenblatt soll ein Dialog gestartet werden. Das funktioniert aber diesmal gar nicht wie geplant, und das Makro wird mit folgender Fehlermeldung abgebrochen.
[attachment=1]fehler.png[/attachment]
Okay, so eine Fehlermeldung ist für mich nichts neues. Aber diesmal versteh ich reine weg gar nichts, da mir das verständis wegen der Entstehung der Fehlermeldung einfach fehlt. Also habe ich in der IDE das Makro per Einzelschritt ausgeführt, und etwas sehr merkwürdiges beobachtet.
Ich versuch mal den Ablauf zu beschreiben.

In der Basic-IDE im Modul *Formular* das Makro per Einzelschritt starten.
Als erstes wird die
[code]
Sub EingabeFormular
[/code]gestartet -{steht ganz am Anfang}-. In dieser Sub wird einiges 'initialisiert'. Sie wird aber noch nicht beendet!!
Dann wird die gewünschte Seite eingestellt:
[code]
oDialog1.Model.Step = 1
[/code]

Jetzt folgt ein Sprung in die
[code]
Sub Ruecksetzen
[/code] Dort steht in der ersten Zeile
[code]
oDialog1.getControl("DateField1").setEmpty()
[/code]
Und nun geschieht das Unfassbare!
Und das ist kein Scherz!

Jetzt springt der Einzelschritt-Anzeiger im gleichem Modul in die
[code]
Sub KopfDaten
[/code]
Noch etwas zur Verdeutlichung, um das Unfassbare zu verstehen.
In der Sub Ruecksetzen sollen noch einige weitere Elemente nach dem DateField1 auf .Visible = False gesetzt werden. Doch dazu kommt es erst gar nicht, da der Einzelschritt-Anzeiger beim erreichen von
[code]
oDialog1.getControl("DateField1").setEmpty()
[/code][b][u][i]sofort[/i][/u][/b], also unverzüglich in die andere Sub springt. Und wenn der Einzelschritt-Anzeiger in der nicht gewollten Sub ist, wird die bis zu der Zeile wo die Fehlermeldung zustande kommt auch abgearbeitet.

Wie ist das möglich das ein Sprung in eine andere Sub initialisiert und ausgeführt wird, ob wohl es keinen direkten Makro programmierten dementsprechenden Befehl dafür gibt?
Ich muss ergänzend dazu sagen, das dem DateField1 bei
- Ereignisse
- Text modifiziert
die Sub KopfDaten zugeordnet ist.

Und wenn ich das Makro wie geplant über den Button im Tabellenblatt starte, dann kommt es an genau der gleichen Stelle zu der eingangs gezeigten Fehlermeldung.


Und nun leg ich noch eins oben drauf, nein, besser gesagt sogar zwei!

1.)
Wenn ich das DateField1 auskommentiere, dann wird die
[code]
Sub Ruecksetzen
[/code]ordnungsgemäß bis zum Ende ausgeführt und es erfolgt der geplante Rücksprung in die
[code]
Sub EingabeFormular
[/code]Dort werden dann noch ein paar weitere Initialisierungen durchgeführt, und erst dann kommt es zu
[code]
oDialog1.execute
[/code]

2.)
Wenn ich dem DateField1 das zugeordnete Makro lösche, und im Makro die DateField1-Zeile NICHT auskommentiere, dann gibts auch keine Fehlermeldung. und der ganze Prozess wie bei 1.) beschrieben läuft auch jetzt ab.

Das auskommentieren, bzw. das zugeordnete Makro für DateField1 löschen, sind leider keine brauchbaren Lösungen da ich diese Funktionaltäten brauche.

WinXP, OOo 3.2.1 & 3.3.0

- Was zum Donnerwetter ist da nur los?
- Weiß einer von euch wie ich das Problem beseitigen kann?
- Kann mir überhaupt jemand helfen?
- Könnt ihr das unter anderen Bedingungen bestätigen, Betriebssystem und anderes Office?

Ich bedanke mich schon mal für eure Bemühungen. Und diesmal ist es ja echt eine Mühseelige Arbeit.

Freue mich auf eure Antworten.



Gruß
balu