9.14 Wie kann man ein Formular aus einem Formular öffnen?
Dies geht in Kombination mit meinen Tool Fensterwaehlen. Mit diesem kann man auf die Datenbankdatei zurückspringen und dann ein anderes Formular öffnen.

odoc=fensterwaehlen("Neue Datenbank2.odb")
  formularname = "Tabelle1"
  Dim arg(1) As New com.sun.star.beans.PropertyValue
  x = odoc.getFormDocuments().getElementNames()
  For i = LBOUND(x()) To UBOUND(x())
    if x(i) = formularname Then
      context = CreateUnoService("com.sun.star.sdb.DatabaseContext")
      db = context.getByName(odoc.GetLocation)
      verb = db.getConnection("", "")
      arg(0).Name = "OpenMode"
      arg(0).Value = "open"
      arg(1).Name = "ActiveConnection"
      arg(1).Value = verb
      odoc.getFormDocuments().loadComponentFromURL(x(i), "", 0, arg())
      Exit Sub
   End If
Next i
Seitenanfang