OpenOffice.info

Hallo HeritzP,
ich denke, da bist du aber verdammt auf dem Holzweg.
Dieses Makro funktioniert nur dann, wenn
[list][*]ein Formular
[*]das an eine Datenbank gebunden ist
[*]auf die Tabelle "Table1" zugreift
[*]eine Spalte "b" hat.
[*]Die Spalte "b" muss eine Spalte vom Datentyp BOOLEAN sein
[*]Das Makro muss von einem Kontrollelement, das sich auf dem Formular befindet, ausgelöst werden, z.B. von einer Schaltfäche.[/list]
Was genau willst Du denn machen?
Besser machst Du dazu einen eigenen Thread auf.
Gruß R

Hi HeritzP,
[quote="F3K Total"]Und binde es an das Ereignis "Aktion ausführen" des Buttons[/quote]Ich vermute, du hast das Makro nicht an eine Schaltfläche (Button) auf einem, mit einer Datenbank verbundenen Formular ausgeführt, oder?
Gruß R

Sub update_false(event)
     oForm = event.source.model.parent
     oConnection = oForm.activeconnection
     SQL_Statement = oConnection.CreateStatement
     sSQL = "UPDATE ""Table1"" SET ""b"" = FALSE"
     SQL_Statement.executeUpdate(sSQL)
     oForm.reload
end Sub

Hi,
versuch mal dieses
[code]Sub update_false(event)
oForm = event.source.model.parent
oConnection = oForm.activeconnection
SQL_Statement = oConnection.CreateStatement
sSQL = "UPDATE ""Table1"" SET ""b"" = FALSE"
SQL_Statement.executeUpdate(sSQL)
oForm.reload
end Sub[/code] Und binde es an das Ereignis "Aktion ausführen" des Buttons
Gruß R