Moderator: Moderatoren
Code: Alles auswählen
oDoc = ThisComponent
oDoc.close(true) 'Fenster schliessen 
Code: Alles auswählen
sub FORM_BEARBEITUNG_NUMMERNFILTER
Dim oFeld as variant
Dim oDoc2 as variant
Dim oForm2 as variant
oDoc2 = ThisComponent
oForm2 = oDoc2.DrawPage.Forms.getByIndex(0)
REM das Feld des Formulars wird ausgelesen:
oFeld = oForm2.getByName("WertTextBox")
sSuchwort = oFeld.text
oForm2.filter = "`Nr` = "+ cInt(sSuchwort) 'dann Filter setzen
oForm2.ApplyFilter=true 'setzen des Filters für das neue Formulardokument
if oForm2.isModified = true then 'Überprüfung ob Datensatz modifiziert wurde - wenn ja, dann:
oForm2.upDateRow() 'geänderten Datensatz speichern
end if
oForm2.reload()
end subCode: Alles auswählen
Sub DATENBANK_DEFRAGMENTIEREN
Dim DatabaseContext as Object
Dim oDatenquelle as Object
Dim oHandler as Object
Dim oDatVerb as Object
Dim oStatement as Object
Dim oErgSet as Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
oDatenquelle = DatabaseContext.getByName("Datenbankname")
If not oDatenquelle.IsPasswordRequired Then
oDatVerb = oDatenquelle.getConnection("","")
else
oHandler = oDatenquelle.createUnoService("com.sun.star.sdb.InteractionHandler")
oDatVerb = oDatenquelle.ConnectWithCompletion(oHandler)
end if
oStatement = oDatVerb.createStatement()
oErgSet = oStatement.executeQuery("Checkpoint Defrag")
end sub
Vielen Dank für deine Mühe. Ich bin jetzt nun schon ein großen Stückchen weiter.Code: Alles auswählen
Sub FENSTER_MINIMIEREN_UND_STARTFORMULAR_OEFFNEN
Dim oFrame As Object
Dim handle
oFrame = ThisComponent.CurrentController.Frame
oMenuWin = oFrame.ContainerWindow()
handle = oMenuWin.getWindowHandle(dimarray(), 1) ' 1 = WIN32
ShowWindow( handle, 2 ) ' ' 1 = SW_NORMALIZE / 2 = SW_ICONIZE / 3 = SW_MAXIMIZE
Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
FormName = "STARTFORMULAR"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DB-Name")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args) REM << BASIC-Laufzeitfehler.
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()
ThisDatabaseDocument.FormDocuments.getByName("STARTFORMULAR").open
End Sub