[ Gelöst] Hauptformular starten

[Flashzero]

Schönen guten Tag an alle und Danke das Ihr dieses Thema euch schonmal anschaut

Also habe folgendes Problem und zwar möchte Ich versuchen Meine Datenbank über ein Formular zu starten was sich allerdings als sehr schwierig herausgestellt hatt:(

Benutze die Open Office Version 3.1 da bei 3.2 ein Fehler ensteht wenn man den Datensatz speichern will, er schreibt zwar die Daten in die Tabelle aber es kommt trozdem eine Fehlermeldung.
Kenntnise habe Ich in Access und auch HTML.

Ich Entschuldige mich im Vorraus das ich schonwieder dieses Thema neu erstelle weil es schon viele Beiträge über dieses Thema gibt.
Nun aber zum Problem und zwar wie schon erwähnt startet das Formular beim starten der Datenbank nicht.

Habe in diesem Forum schon oft Hilfe gefunden bei problemen die mir auch sehr gut weitergeholfen haben allerdings finde ich keine Lösung zu meinen Problem.
Hier im Forum habe Ich folgenden Code gefunden

Sub openOnlyBaseForm
oContexto = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oFonte = oContexto.getRegisteredObject("Datenbankname")
oForms = oFonte.DatabaseDocument.FormDocuments
oAConnection = oFonte.getConnection("","")
Dim pProp(1) As New com.sun.star.beans.PropertyValue
pProp(0).Name = "ActiveConnection"
pProp(0).Value = oAConnection
pProp(1).Name = "OpenMode"
pProp(1).Value = "open"
oForm = oForms.loadComponentFromURL("Formularname", "_blank", 0, pProp())
End Sub

Ok Ich habe ihn angepasst dann sieht er so aus

Sub openOnlyBaseForm
oContexto = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oFonte = oContexto.getRegisteredObject("Kundendatenbank")
oForms = oFonte.DatabaseDocument.FormDocuments
oAConnection = oFonte.getConnection("","")
Dim pProp(1) As New com.sun.star.beans.PropertyValue
pProp(0).Name = "ActiveConnection"
pProp(0).Value = oAConnection
pProp(1).Name = "OpenMode"
pProp(1).Value = "open"
oForm = oForms.loadComponentFromURL("Menue", "_blank", 0, pProp())
End Sub

Ok normal müsste dieser Code/Makro auch funktionieren aber jedesmal, wenn Ich die Datenbank öffne kommt folgende Fehlermeldung
(siehe Anhang Bild "fehlermeldung")

So wie Ich das verstehe findet er irgendwas nicht aber eigentlich müsste der Code doch funktionieren.
Oder könnte es sein das dies nicht mit Version 3.1 geht weil glaub hab hier im Forum etwas gelesen das es irgendwie noch nicht realisiert wurden ist mit dem Starten der Datenbank.

Hoffe Ihr könnt mir bei meinem Problem helfen
Und Danke schonmal im Vorraus für eventuelle Hilfe

Gruss David

[turtle47]

Hallo David,

schau Dir mal die Beispieldatenbank mal an. Dort wird das Hauptformular beim Start direkt geöffnet.

Der Code lautet wie folgt:

Code: Alles auswählen

Sub Fomular_starten
    dbFrame = StarDesktop.currentComponent
    oDataSource = dbframe.datasource
    oConnection = oDataSource.getConnection("","")
    dim Args(1) as new com.sun.star.beans.PropertyValue  
    Args(1).name = "OpenMode"
    Args(1).value = "open"
    Args(0).name = "ActiveConnection"
    Args(0).value = oConnection
    oForms = oDataSource.DataBaseDocument.getFormDocuments
    oForms.loadcomponentfromURL( "IMG_Formular", "_Default", 63, Args())
End Sub

Viel Erfolg.

Jürgen

[Flashzero]

Hallo Jürgen

Erstmal Dankeschön das du mir so schnell Helfen konntest und deine Zeit dafür geopfert hast^^

Also dein Beispiel und der Code sehen ja schonmal sehr gut aus muss Ich sagen^^

Aber leider gibt es selbst bei diesem Code ein Problem:(

Und Zwar Zeigt mir Base wie auf dem Bild zu sehen einen Basic Laufzeitfehler an das die Objetkvariable nicht belegt ist???
Dieser fehler kommt auch selbst bei deiner Beispieldatenbank was überhaupt nicht sein dürfte:(

Dies verstehe ich jetzt mal überhaupt nicht weil eigentlich müsste der makierte Bereich den der fehler anzeigt in Ordnung sein oder übersehe ich da irgendwas.

Vielleicht liegt es doch daran das meine 3.1 Version irgendwie nicht Korekt Funktioniert muss mal deinstallieren und wieder neu drauf machen vielleicht klappt es dann dadurch^^

Aber erstnochmal vielen Dank für deine Hilfe vielleicht hast du oder jemand anderes ja noch eine Idee was da falsch läuft bei mir.

Gruss und schönen Tag noch David

PS: wenn es hilft kann ich auch mal meine Datenbank als Anhang beilegen, falls ja sagt einfach bescheid^^

[turtle47]

Hi David,

ich kann leider den oberen Teil des Codes nicht sehen, aber ich vermute mal das dort

Code: Alles auswählen

Option Explicit

steht.

Das heisst, dass alle Variablen deklariert sein müssen was aber im obigen Code nicht der Fall ist.
Zugegeben darin bin ich wirklich faul.

Ersetze den oberen Teil in der Sub Fomular_starten mal durch:

Code: Alles auswählen

Sub Fomular_starten
Dim dbFrame, oConnection as Object
Dim oDataSource, oForms as Object
    dbFrame = StarDesktop.currentComponent
    ..........

Dann klappt es auch mit dem Starten.

Noch ein Hinweis:
Du kannst das Formular nicht aus der IDE raus öffnen! Es muss die Sub Fomular_starten mit dem Ereignis "Dokument öffnen" unter Menue > Extras > Reiter Ereignisse eingestellt werden.
Dann DB schliessen und DB wieder starten.


Jürgen

Edit: Was ich aber auch nicht verstehe ist folgendes:

Dieser fehler kommt auch selbst bei deiner Beispieldatenbank was überhaupt nicht sein dürfte:(

[Flashzero]

Hallo Jürgen

Nochmals vielen Dank für deine Hilfe bin dir sehr Dankbar dafür
Und es macht auch Nichts das du bei solchen Sachen faul bist^^ Mein Ihr leistet hier so gute Arbeit da darf man sich sowas mal erlauben^^
Denn Ohne die Hilfe dieses Forums hätte Ich immernoch eine Leere Datenbank mit nichts^^

Allerdings kommt selbst durch das Deklarieren der Variablen der selbe Fehler wie davor "Objektvariable nicht belegt"

Hab auch das Makro so wie du meintest bei Extras eingefügt
Also Extras > Anpassen > Ereigniss hatte Ich ja davor auch schon aber es will einfach nicht Funktionieren

Langsam glaub ich echt das irgendwas mit meiner Open Office Verison nicht stimmt:(

Dachte ja auch das die Variablen deklariert werden müssten vielleicht aber selbst dadurch passiert nichts

Es tut mir echt leid das ich deine Zeit sosehr in Anspruch nehme.

Ich habe mal meine Makros im Anhang gespeichert vielleicht liegt da irgendwo ein Fehler


Ich danke dir trozdem für deine zeit und Hilfe die du für mich investiert hast

Gruss David

[turtle47]

Hallo,

Dieser fehler kommt auch selbst bei deiner Beispieldatenbank was überhaupt nicht sein dürfte:(

Das macht mich immer noch stutzig.
Das Beispiel hat ja nicht nur bei mir funktioniert, sondern auch bei den anderen Usern.

da bei 3.2 ein Fehler ensteht wenn man den Datensatz speichern will, er schreibt zwar die Daten in die Tabelle aber es kommt trozdem eine Fehlermeldung.

Dito stutzig. Welche Fehlermeldung?

Hast Du OO.o mit oder ohne JRE installiert und mit welchem BS arbeitest Du?

Ich werde morgen mal mit der Version 3.1.1 testen.

Jürgen

[Flashzero]

Hallo Jürgen

Also ich benutze Windows 7 BS.
Beim Installieren von Open Office weiss ich jetzt nicht ob JRE mit installiert wurde weil da schau ich eigentlich nie drauf aber nach der Installation war Java aufjedenfall auf meinen Laptop mit drauf, also denke Ich das es JRE mit Installiert hatt.
Habe mir auch nochmal JRE rundergeladen und installiert aber leider ohne Erfolg kommt immernoch die selbe Fehlermeldung.

Genauso wollte Ich Open Office 3.1 deinstallieren und neu Installieren, jedoch zeigt er mir da auch einen Fehler an was ich nicht verstehe.
Deswegen kann ich dir die Fehlermeldung under Open Office 3.2 nicht genau sagen aber glaub das war so eine ähnliche wie Datensatz konnte nicht gespeichert werden, nur komischer Weise speichert er trozdem die Daten in die Tabelle.

Ich werd heute meinen Laptop mal neu Formatieren und nochmal alles runderladen und Installieren vielleicht liegt es an meinem Laptop.

Was mir auch in den Sinn gekommen ist das es vielleicht daran liegt das Ich das Hauptformular einmal Neu benannt habe allerdings habe Ich dann mal ein komplett Neues Formular erstellt und es kommt immernoch der selbe Fehler.

Genauso verstehe Ich es auch nicht das selbst bei deinem Beispiel der selbe Fehler auftaucht normal dürfte dies nicht passieren wie du meintest aber es passiert trozdem.

Ich melde mich nochmal wenn der laptop Formatiert ist und alles Neu draufgemacht ist.

Bis dahin noch ein schönes Wochenende

Gruss David

[turtle47]

Hallo David,

Ich melde mich nochmal wenn der laptop Formatiert ist und alles Neu draufgemacht ist.

H A A A L T !

Nicht gleich formatieren.

Beim Installieren von Open Office weiss ich jetzt nicht ob JRE mit installiert wurde

Schau mal unter Menue > Extras Optionen > OO.o > Java ob dort ein Haken gesetzt ist bei [X] Java Laufzeitumgebung.

Weitere Möglichkeit: Benenne Dein Benutzerverzeichnis um und versuche es noch einmal.

Oder aber versuche es mit einer portable Version von OO.o.

WIN7 mit OO.o-Portable 3.1.1 hat gestern Abend bei einem Versuch mal kurz aufgemuckt aber danach lief alles ohne Probleme.
Mit OO.o-Portable 3.1.1 auf XP läuft alles einwandfrei.

Arbeitest Du als Admin oder mit eingeschränkten Rechten?

Schöne Grüsse.

Jürgen

[Flashzero]

Hallo Jürgen^^

Erstmal ein grosses Danke an dich, denn es Funktioniert^^

Habe Open Office Portable 3.2 installiert und die Datenbank gestartet und das Formular öffnet sich wie durch Zauberhand.^^

Aber Ich verstehe trozdem immer noch nicht warum das mit dem normalen Open Office 3.1 nicht funktioniert?

Naja macht ja auch nichts hauptsache der Fehler ist behoben und Ich kann beruhigt aufatmen ^^

Also nochmal ein grosses Danke an Dich für die Hilfe glaub alleine hätte Ich das nicht hinbekommen^^

Aber nochmal eine andere Frage.

Kann man das makro noch verändern so das die Datenbank nicht mit geöffnet wird oder müsste ich da die Datenbank per Writer öffnen lassen?

da bei 3.2 ein Fehler ensteht wenn man den Datensatz speichern will, er schreibt zwar die Daten in die Tabelle aber es kommt trozdem eine Fehlermeldung.

So durch Open Office Portable 3.2 kommt der selbe Fehler wie bei der Normalen Open Office 3.2 Version und zwar "No Data is available" siehe Anhang

Gruss David

Und nochmals vielen Dank^^

[turtle47]

Hallo David,

Kann man das makro noch verändern so das die Datenbank nicht mit geöffnet wird oder müsste ich da die Datenbank per Writer öffnen lassen?

Wenn Du wie folgt vorgehst brauchst Du kein Makro zum öffnen, denn es ist grundsätzlich möglich nur mit einem Formular zu arbeiten welches mit einer Datenbank verbunden ist die angemeldet wurde.

Öffne das Formular in der Datenbank und speichere dieses als Writerdokument ab.
Entferne die Verlinkung der Datenbank zum Startmakro unter Menue > Extras > Anpassen > Ereignisse
Schliesse die Datenbank.

- Klicke an eine freie Stelle in das Writer-Formular
- Dann klick Menue > Ansicht > Symbolleisten > Formular-Steuerelemente
- Schalte den Entwurfsmodus ein (Dreieck/Lineal/Stift)
- Klicke auf das Symbol Formular (Frame/Schalter)
- Klick in dem sich öffnenden Dialog auf den Reiter Daten
- Datenquelle: "Deine_Datenbank.odb" auswählen
- Art des Inhalts: Tabelle einstellen
- Inhalt: "DeineTabelle" in der Datenbank wählen
- Den Entwurfsmodus wieder auschalten
Hoffentlich habe ich nichts vergessen

Das Formular sollte jetzt die Daten aus der Datenbank anzeigen. Zum Abschluss das Dokument abspeichern.
Wenn Du das Writer-Dokument schliesst und nochmal öffnest sollte die Verbindung zur Datenbank wieder hergestellt sein.

Solltest Du weiter mir Makros arbeiten wollen, so musst Du diese im Formular hinterlegen oder unter "Meine Makros"!

Andere Baustelle:

So durch Open Office Portable 3.2 kommt der selbe Fehler wie bei der Normalen Open Office 3.2 Version und zwar "No Data is available" siehe Anhang

Oh, das sagt mir jetzt leider gar nichts.
Vielleicht bringt Dir die Suchfunktion des Forums geeignete Hilfe.
Wenn nicht, dann bitte dort Deine Frage zu dem Problem stellen.

An sonsten viel Erfolg.

Jürgen

[Flashzero]

Hallo Jürgen

Vielen Dank nochmal für deine grossartige Hilfe.

Jetzt klappt alles perfekt wie es soll^^

Zu dem problem mit Open Office 3.2 werde ich gleich mal die Suche gebrauchen und Hoffen das Ich was gutes finde^^

Also nochmals vielen Dank für die Hilfe und dir auch noch einen schönen Feiertag und auch allen Anderen Usern^^

Gruss David

PS: Hiermit makiere Ich den Beitrag als gelöst^^