Hallo Reto!
Dieses Macro öffnet ein Formular du brauchst nur den Namen des Formulars
zu ändern und einen Button über Beim Auslösen damit verbinden
Das Original dieses Makros ist von Ariel Constenla
http://www.arielconstenlahaile.com.ar/ooo/BaseProg_Abrir_Forms.php
OPTION EXPLICIT
REM Das Ereignis: "Beim Auslösen" von dem Button (Schaltfläche) mit
diesem Sub verbinden und "Formular Namen" gegen
das formular tauschen.
Sub AbrirFormConNombre(oEv as Object)
Dim oModeloControl
Dim sNombreFormulario$
Dim oDataBaseForm
Dim oColeccionForms
Dim oDocWriter
Dim oDocBase
Dim oContenedorFormsODB
Dim oConexActiva
Dim oDBContext
Dim oFuenteDatos
Dim sNomreFuenteDatos$
sNombreFormulario = "Formular Namen" '<<<<<< gegen den richtigen Namen
tauschen
oModeloControl = oEv.Source.Model
oDataBaseForm = oModeloControl.Parent
oColeccionForms = oDataBaseForm.Parent
oDocWriter = oColeccionForms.Parent
oDocBase = oDocWriter.Parent
oContenedorFormsODB = oDocBase.FormDocuments
If NOT oContenedorFormsODB.hasByName(sNombreFormulario) then
MsgBox "No hay ningún formulario llamado " + sNombreFormulario
Exit Sub
End If
oConexActiva = oDataBaseForm.ActiveConnection
If IsNull(oConexActiva) Then
'sURL = oDocBase.URL
sNomreFuenteDatos = oDocBase.DataSource.Name
oDBContext = createUNOService("com.sun.star.sdb.DatabaseContext")
oFuenteDatos = oDBContext.getByName(sNomreFuenteDatos)'( sURL )
oConexActiva = oFuenteDatos.getConnection("","")
End If
Dim aProps(1) as New com.sun.star.beans.PropertyValue
aProps(0).Name = "OpenMode"
aProps(0).Value = "open"
aProps(1).Name = "ActiveConnection"
aProps(1).Value = oConexActiva
oContenedorFormsODB.loadComponentFromURL(sNombreFormulario, "", 0, aProps)
End Sub
Hasler Reto escribió:
Hallo zusammen
Habe folgendes Problem, ich habe 2 Formulare in einer Base-Datei erstellt.
Jetzt möchte ich einen Button im Formular 1 erstellen, der das Formular 2
aufruft. Also so wie wenn ich das von Hand machen würde.
Kennt jemand eine solche Funktion? Habe zwar im Internet Ansätze gefunden,
aber nichts hat bislang funktioniert.
Vielen Dank für eure Hilfe
Reto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
