[gelöst] BASE: eine Datenbank-Tabelle öffnen?

[junmod]

Hallo Forum,

ich bin bin am verzweifeln und ich hoffe Ihr könnt mir helfen.
Ich habe eine Datenbank erstellt und auch ein Formular dazu gebastelt, dass bei Programmstart automatisch aufpoppt (funktioniert perfekt!). Im Formular habe ich natürlich die Eingabefelder, einen Speicherbutton der die eingegebenen Daten in die Tabelle speichert und das Formular für weitere eingaben leert (funktioniert einwandfrei!), einen "Schließen" Button (funktioniert, schließt aber nur das Formular) und einen "Daten bearbeiten" Button.

Hier nun mein Hauptproblem: Der "Daten bearbeiten" Button soll die Base-Tabelle, in diesem Fall "Kunden-Datenbank" zum Bearbeiten öffnen, damit ich eventuell Daten ändern oder ergänzen kann. Wie muss das makro aussehen? Ich habe schon überall gesucht, finde aber leider nichts.

Meine Nebenfrage wäre: Wie kann ich dem "Schließen Button" beibringen, dass er auch das Hauptfenster der Datenbank schließt und nicht nur das Formular?

Ich würde mich sehr freuen wenn mir jemand helfen könnte.

Gruß
Dirk


Moderation,4: verschoben in MAKROS (und allgem. Programmierung)-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

[F3K Total]

Hi,
dieses Makro geht für die Tabelle Adressen.

Code: Alles auswählen

Sub Open_Table
    Dim aURL as New com.sun.star.util.URL
    Dim Props(5) as New com.sun.star.beans.PropertyValue
    oController = thisDatabaseDocument.CurrentController
    if not oController.isconnected then oController.connect
    oConnection = oController.ActiveConnection
    aURL.Complete = ".component:DB/DataSourceBrowser"
    Dispatch = StarDesktop.queryDispatch(aURL,"_Blank",8)
    Props(0).Name = "ActiveConnection"   : Props(0).Value = oConnection
    Props(1).Name = "CommandType"	     : Props(1).Value = 0':Table/View  1:SQL 2:Command
    Props(2).Name = "Command"            : Props(2).Value = "Adressen"
    Props(3).Name = "ShowMenu"           : Props(3).Value = True
    Props(4).Name = "ShowTreeView"       : Props(4).Value = false
    Props(5).Name = "ShowTreeViewButton" : Props(5).Value = false
    Dispatch.dispatch(aURL, Props)
End Sub

Allerdings würde ich mir ein Formular bauen, um Kundendaten zu bearbeiten.
Gruß R

[junmod]

Hallo F3K Total,

ich danke Dir, das funktioniert schonmal perfekt!!! Das mit dem Formular lasse ich mir nochmal durch den Kopf gehen.

Hättest Du eventuell noch eine Idee für meine Nebenfrage:

Wie kann ich dem "Schließen Button" beibringen, dass er auch das Hauptfenster der Datenbank schließt und nicht nur das Formular?

Gruß
Dirk

[F3K Total]

Nein, habe ich nicht.
Das Schließen von AOO per Makro geht zwar mit

Code: Alles auswählen

Stardesktop.terminate

birgt bei BASE aber das Risiko von Datenverlust, ich würde es dir nicht empfehlen.
Gruß R

[junmod]

Ok, vielen Dank.


Gruß
Dirk