[ Gelöst] Hauptformular starten
Verfasst: Do, 29.04.2010 16:04
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
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