OpenOffice.info

Hallo DPunch,

ich war doch froh keine globalen Variablen nutzen zu müssen ;)

Deine Lösung funktioniert einwandfrei.

Vielen Dank

Andreas

oPerfDlg = CreateUnoDialog(Dialoglibraries.Standard.PerfDialog)
If isNull(oPerfDlg) Then
  MsgBox "Es läuft bereits ein anderer Dialog oder Dialog nicht gefunden"
  Exit Sub
End If
oPerfDlg.getControl("User").text = UserName

Aloha

Das ist ein schon seit über einem Jahr bekanntes Problem, siehe auch [url=http://openoffice.org/bugzilla/show_bug.cgi?id=109032]Bug 109032 - CreateUnoDialog returns Null when Dialog/s running from other odb file at the same time[/url].

Das einfachste ist die Abfrage mit isNull nach Erzeugen des Dialogs.

[code]oPerfDlg = CreateUnoDialog(Dialoglibraries.Standard.PerfDialog)
If isNull(oPerfDlg) Then
MsgBox "Es läuft bereits ein anderer Dialog oder Dialog nicht gefunden"
Exit Sub
End If
oPerfDlg.getControl("User").text = UserName[/code]

Die zweite, sehr viel umständlichere Variante wäre das Verwenden einer, bzw mehrerer globaler Variablen.

Dialoglibraries.Loadlibrary("Standard")
EingabeDlg = CreateUnoDialog(Dialoglibraries.Standard.Dialog1)

Dialoglibraries.Loadlibrary("Standard")
oPerfDlg = CreateUnoDialog(Dialoglibraries.Standard.PerfDialog)

oPerfDlg.getControl("User").text = UserName

Dialoglibraries.Loadlibrary("Standard")
SokoDlg = CreateUnoDialog(Dialoglibraries.Standard.SoKoDlg)

SpediCtr = SoKoDlg.getControl("SpediteurList")

[quote="komma4"][quote="keksi1970"]Die einzige Meldung : BASIC-Laufzeitfehler, Objektvariable nicht belegt.[/quote]

Das bedeutet, dass bei der Belegung des Objektes ein Fehler aufgetreten ist und Du deswegen nicht auf das Objekt zugreifen kannst.

Zeige uns dochmal den Code 8)[/quote]

1. Datei
[code]Dialoglibraries.Loadlibrary("Standard")
EingabeDlg = CreateUnoDialog(Dialoglibraries.Standard.Dialog1)[/code]

2. Datei
[code]Dialoglibraries.Loadlibrary("Standard")
oPerfDlg = CreateUnoDialog(Dialoglibraries.Standard.PerfDialog)[/code]

Und hier der 1. Zugriff der 2. Datei bei geöffnetem Dialog der 1.
[code]oPerfDlg.getControl("User").text = UserName[/code]

3. Datei
[code]Dialoglibraries.Loadlibrary("Standard")
SokoDlg = CreateUnoDialog(Dialoglibraries.Standard.SoKoDlg)[/code]
Bei Zugriff auf ein Dialog-Objekt :
[code]SpediCtr = SoKoDlg.getControl("SpediteurList")[/code]

Die Fehlermeldung kommt wie gesagt nur, wenn bereits einer dieser 3 Dialoge gestartet ist ( Es gibt mehr als diese 3 Dateien ). wenn ich den gestarteten Dialog schliesse, ohne die Datei zu beenden, gibts keinen Fehler.

[quote="keksi1970"]Die einzige Meldung : BASIC-Laufzeitfehler, Objektvariable nicht belegt.[/quote]

Das bedeutet, dass bei der Belegung des Objektes ein Fehler aufgetreten ist und Du deswegen nicht auf das Objekt zugreifen kannst.

Zeige uns dochmal den Code 8)

Global  MyDlg as Object   'oder public ... ?

Sub create
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
End Sub

sub ausfuehren
onError: create
myDlg.execute()
end sub

Hallo
Die Fehlermeldung deutet eher darauf hin das eine Variable noch nicht deklariert/intitialisiert wurde, evtl. der Dialog selbst ?

Hier mal ein Minimalbeispiel wie du jederzeit "myDlg.execute()" ausführen kannst, und nur im Fehlerfall vorher deklarierst.
[code]Global MyDlg as Object 'oder public ... ?

Sub create
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
End Sub

sub ausfuehren
onError: create
myDlg.execute()
end sub[/code]

Gruß Karo

Die einzige Meldung : BASIC-Laufzeitfehler, Objektvariable nicht belegt.
Die Variablen sind jedoch einwandfrei deklariert und haben auch unterschiedliche Namen. Die Reihenfolge des Startens spielt keine Rolle. Sobald das hinterlegte Makro auf den Dialog oder ein Objekt im Dialog zugreift, bricht Basic mit dieser Fehlermeldung ab.

Daher suche ich nun eine Möglichkeit, auf einen bereits geöffneten Dialog zu prüfen.

[quote="keksi1970"]Folglich stürzt Basic mit einem Laufzeitfehler ab.[/quote]

Warum?
Fehlermeldung?


Ansonsten: setze eine globale Variable, wenn ein Dialog geöffnet ist und frage diese vor weiteren Versuchen ab.

Hallo zusammen,

ich brauche Hilfe, um auf einen bereits geöffneten Dialog zu prüfen. ( Hinweise, Vorschläge, Lösungen sind willkommen ). Ich weiß z.Zt. nicht, wo ich danach suchen soll.

Folgendes Szenario :

eine Datei öffnet einen Dialog zur Kommunikation mit einer MySQL-DB.
Jetzt kommt dem Anwender aber was dazwischen und dieser öffnet eine andere Datei, die wiederum einen Dialog öffnet, ebenso Verbindung zur MySQL-DB.
Folglich stürzt Basic mit einem Laufzeitfehler ab.

Jetzt würde ich gerne prüfen, ob in irgendeiner OOO-Instanz schon ein Dialog geöffnet ist, so dass kein weiterer geöffnet werden kann.

mfg
Andreas