Menü-Formular

[TuoDesperado]

Hallo, liebe Forenmitglieder.

Ich würde gerne in OO-Base eine Datenbank erstellen, mit einem Menü-Formular, welches automatisch startet.

In Ms-Access hab ich so etwas schon einige male gemacht. Da ich aber allergisch auf Microsoftprodukte reagiere, will ich jetzt mein Glück in OO versuchen.

Ich versuch schon seit Tagen, ein Formular zu erstellen, mit Schaltflächen (bearbeiten, neu anlegen, suchen, ende), das zudem beim starten der Base-Datei automatisch aufgeht. Zudem sollte OO minimiert werden, so dass ich nur mein Formular auf dem Desktop sehe. (Hat in MS-Access (so um 2000-2004) mit dem Macro "autoexec" funktioniert)

Meine VBA-Kenntnisse sind etwas eingerostet, aber zum Glück nicht ganz verschwunden.

Hat einer von euch netten OO-Usern vielleicht eine Ahnung wie ich das anstellen kann, gibt es vielleicht einen älteren Beitrag hier im Forum oder hat jemand sogar eine kleine Datenbank.

Nur so am Rande erwähnt, ich möchte mit meiner Datenbank eigentlich nur eine Adressverwaltung für meine Friseuse erstellen, die sich am 1. Januar selbständig macht.

Ich dank euch allen schon mal im Voraus für eure Beiträge.

Gruß Frank




Betriebssystem: Windows 7 64 Bit (naja)
Office: OO 3.2.1

[TuoDesperado]

Hi clipnotic,

irgend wie fehlt mir was in meinem OpenOffice 3.2.1.

zu Punkt 2:
ich hab meine Datenbank fertig (Tabelle und Formular) und gespeichert, hab die dann wieder geöffnet und im Menü unter Datei gesucht und gesucht, da steht bei mir leider nur Neu; Öffnen; zuletzt benutze Dokumente; Assistenten; schließen; speichern; speichern unter; alles speichern; exportieren; senden; beenden

Kopie speichern unter finde ich leider nicht.

die weiteren Punkte sind ok, tut zumindest bist zum Punkt Datenquelle aussuchen, was vermutlich dann auch tut, wenn ich das hin bekomme mit der Kopie speichern unter...

zumindest hast du mir mal sehr viel weiter geholfen. Danke

[TuoDesperado]

aaaah
aaaaaaah

aha, ja jetzt geht es.

aber ganz genial, wow, super *freu mich wie ein kleines Kind*

[Stephan]

Da ich aber allergisch auf Microsoftprodukte reagiere

na dann herzliches Beleid. Da ich gerne und oft mit Produkten von MS arbeite kann ich nachempfinden welcher Verlust eine solche Allergie sein muß.

Hat in MS-Access (so um 2000-2004) mit dem Macro "autoexec" funktioniert

Funktioniert dort bereits viel länger!

Funktioniert bei OOo hingegen erst seit Kurzen (möglicherwise ab 3.0?) man muß nur das Makro welches das Formular aufruft dem Ereignis Dokument öffenen unter Extras-Anpassen zuordnen, die Frickelei mit externen Formularen erübrigt sich dadurch.

Gruß
Stephan

[DPunch]

Aloha

Ich habs so probiert aber da kommt dann ein BASIC-Laufzeitfehler ... No connection to the database exists
(ich verwende noch die Version 3.1)

Siehe Hier

[TuoDesperado]

Hallo zusammen,

also irgend wie hab ich heute 2 linke Hände, bei mir tut nicht mal das mit der msgbox von clipnitic.

Beim Start meiner Datenbank kommt nur ein Hinweis, dass ein Macro ausgeführt wird. Das war es dann aber auch schon.

Hab jetzt die Sicherheitshinweise für Macros deaktiviert. Aber die msgbox ist immer noch nicht sichtbar. *heul*

OK, jetzt funktioniert das mit dem Formular starten

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

End Sub
sub Fomular_starten
    Dim dbFrame, oConnection as Object
	Dim oDataSource, oForms as Object
    dbFrame = StarDesktop.currentComponent
    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( "Kundenstamm", "_Default", 63, Args())
End Sub

Schon mal ein ganzes Stück weiter.

Wie kann ich nun Openoffice dazu bringen, dass es minimiert wird und zwar über Macros.

[TuoDesperado]

ich hab das Makro einfach so wie die beiden Helfer hier beschrieben haben im Base Startfenster
über Extras - Anpassen - Dokument öffnen - verbunden:

Das war anfangs mein großes Problem, bis ich das herausgefunden habe, hat es schon mal ein paar Stunden gebraucht, aber vielen Dank noch an euch alle, ist ja super gelaufen.

Kann mir jetzt noch einer sagen, wie ich von einer Schaltfläche aus so ein Formular starten kann und wie ich das OO-Base minimieren kann

[TuoDesperado]

Frohe Weihnachten zusammen.

Ja ich kann nicht schlafen, ob es an dem Formular liegt, eher weniger, aber dennoch wurmt es mich.

Ich hab jetzt ein Formular erstellt, mit lediglich 4 Schaltfächen (suchen, bearbeiten, neu und ende).

Des weiteren hab ich jeweils ein Formular mit für suchen/bearbeiten und ändern angelegt, welche mit der Tabelle "Kundenstamm" verbunden ist.
Die Suche über das Kombinationsfeld klappt auch ganz gut.
Autostart für das Formular "menue" tut auch, aber ich hab jetzt wie oben beschrieben die Schaltfläche "suchen" einem Makro zugewiesen, das mein Formular "suchen" öffnen sollte.

Weder

Code: Alles auswählen

Sub Kundenstammsuchen
   ThisDatabaseDocument.FormDocuments.getByName("suchen").open
End Sub

noch

Code: Alles auswählen

Sub Kundenstammsuchen
If isNull(ThisDatabaseDocument.CurrentController.ActiveConnection) Then
   ThisDatabaseDocument.CurrentController.Connect
End if
   ThisDatabaseDocument.FormDocuments.getByName("suchen").open
End Sub

und schon gar nicht

Code: Alles auswählen

sub Kundenstammsuchen
    Dim dbFrame, oConnection as Object
   Dim oDataSource, oForms as Object
    dbFrame = StarDesktop.currentComponent
    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( "suchen", "_Default", 63, Args())
End Sub

bringen irgend einen Erfolg.

Leider, ich weis nicht warum, funktioniert die Suchfunktion hier im Forum nicht, somit muss ich alle Beiträge durchforsten, bis dato ohne Erfolg.
ich hab schon OO-Anwendungen gesehen, die eine Menüseite haben, in der man durch klicken von Schaltflächen, Sachen auswählen und Formulare öffnen kann.

Lieber Weihnachtsmann, kannst du mir verraten, wie ich das programmieren kann.

Dein kleiner, braver Frank

[TuoDesperado]

genau so sieht es aus, und wenn ich die Schaltfläche "suchen" drücke kommt die Fehlermeldung

BASIC Laufzeitfehler

Eigenschaft oder Methode nicht gefunden: Datasource

Code: Alles auswählen

Sub Formularoeffnen
Dim dbFrame, oConnection as Object
Dim oDataSource, oForms as Object
    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( "suchen", "_Default", 63, Args())
End Sub

oder aber auch

BASIC Laufzeitfehler
Objektvariable nicht belegt

wenn ich dieses Makro nehme

Code: Alles auswählen

Sub openform
'If isNull(ThisDatabaseDocument.CurrentController.ActiveConnection) Then
'   ThisDatabaseDocument.CurrentController.Connect
'End if
   ThisDatabaseDocument.FormDocuments.getByName("suchen").open
End Sub

Ich werd hier noch zum Elch

[TuoDesperado]

keine Ahnung was ich in meiner Datenbank verbockt habe, aber in deiner Datenbank tut es, als ob es so sein müsste.

Jetzt erst mal ein riesengroßes Dankeschön an cliptronic, an alle anderen die hier mir geholfen haben und an den ganzen Rest des Forums, wow, bin ich grad glücklich

Schöne Weihnachten noch und wenn man sich nicht mehr lesen sollte, noch einen guten Rutsch

Gruß Frank

PS: hab meine verbockte Version mal hoch geladen, nach dem ich rund 500 Kundendaten gelöscht habe *Lach*, aber egal, ist eh nur ne Kopie zum spielen.