OpenOffice.info

Verfasst: **So, 02.04.2017 08:36**

Hallo zusammen,
bin wieder am am "rumwerkeln" und komme doch nicht mehr weiter.
Ich möchte aus einem Formular "Kurs-Belegung 3" die Tabelle des entsprechendes Kurses öffnen und Daten eingeben.
Aufbau:
Ich habe die Tabellen
- ! Teilnehmer
- Kurs 01 xxx --> Kurs xx jeweils als eigene Tabelle
- Kursbelegung (in ihr sind zu den Kursen die z.Zt aktuellen Teilnehmer zugewiesen)
(Teilnehmer, die den Kurs abgeschlossen haben sollen aus der Tabelle wieder gelöscht werden!)

Im Formular "Kurs-Belegung 3" (auch in "Kurs-Belegung 2" und "Kursbelegung 1", aber in anderer Darstellung)
werden die Daten der Tabelle "Kursbelegung" angezeigt.
Aus diesem Formular will ich jetzt, wenn ich einen Kurs anwähle, dass sich die zugehörige Tabelle des Kurses öffnet
und ich Daten eingeben kann.

Optimal wäre dann noch, wenn in der aufgerufenen Tabelle nur die gem Tabelle "Kursbelegung" angegebenen Teilnehmer erscheinen.

Hat da jmd eine Idee und könnte mir helfen??

mfG
Manni Bartsch

Verfasst: **So, 02.04.2017 09:22**

Hallo Eupendiver,

prinzipiell kannst Du die Tabelle natürlich über die Gestaltung einer Abfrage öffnen. Dann hast Du auch Deine Filterung.
Hier einmal das Makro aus dem Handbuch:

Code: Alles auswählen

SUB Open_Table_Query_View(stName AS STRING, inType AS INTEGER)
DIM oController AS OBJECT
DIM oConnection AS OBJECT
oController = ThisDatabasedocument.CurrentController
IF NOT oController.isconnected THEN oController.connect
oConnection = oController.ActiveConnection
DIM URL AS NEW com.sun.star.util.URL
DIM Args(5) AS NEW com.sun.star.beans.PropertyValue
URL.Complete = ".component:DB/DataSourceBrowser"
Dispatch = StarDesktop.queryDispatch(URL,"_Blank",8)
Args(0).Name = "ActiveConnection"
Args(0).Value = oConnection
Args(1).Name = "CommandType"
Args(1).Value = inType '0=Table 1=SQL_Query 2=Command
Args(2).Name = "Command"
Args(2).Value = stName
Args(3).Name = "ShowMenu"
Args(3).Value = True
Args(4).Name = "ShowTreeView"
Args(4).Value = False
Args(5).Name = "ShowTreeViewButton"
Args(5).Value = False
Dispatch.dispatch(URL, Args)
END SUB

Das habe ich dort universell in ein Startmakro für Tabellen, Abfragen, Formulare und Berichte eingebaut.#Über stName kannst Du
- den Namen der Tabelle
- den Namen der Abfrage
- den SQL-Code für eine selbstgestaltete Abfrage (Für Deine Filterung)
angeben. Du musst dann den entsprechenden Typ wählen (steht in dem Kommentar).

Gruß

Robert

OpenOffice.info

Tabelle aus Formular öffnen

Tabelle aus Formular öffnen

Re: Tabelle aus Formular öffnen