OpenOffice.info

Ok, vielen Dank.


Gruß
Dirk

Stardesktop.terminate

Nein, habe ich nicht.
Das Schließen von AOO per Makro geht zwar mit [code]Stardesktop.terminate[/code]birgt bei BASE aber das Risiko von Datenverlust, ich würde es dir nicht empfehlen.
Gruß R

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:
[quote]Wie kann ich dem "Schließen Button" beibringen, dass er auch das Hauptfenster der Datenbank schließt und nicht nur das Formular?[/quote]

Gruß
Dirk

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

Hi,
dieses Makro geht für die Tabelle [color=#0040FF][b]Adressen[/b][/color].[code]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[/code]
Allerdings würde ich mir ein Formular bauen, um Kundendaten zu bearbeiten.
Gruß R

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


[color=#800000]Moderation,4[/color]: verschoben in MAKROS (und allgem. Programmierung)-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst