Buenas tardes, estoy intentando crear un botón que, cuando se pulse me borre los registros de una tabla, que cumplan con la condición de que el campo Tramitada sea verdadero. He encontrado el código de más abajo y lo he adaptado a mi circunstancia, y he asignado la macro al botón pero al pulsarlo me da el siguiente error:
Error de ejecucion BASIC. Se ha producido una excepcion.
type:com.sun.star.sdbc.SQLException
Message: Column not found: TRAMITADA/build/libreoffice-NdMkh2/libreoffice-7.2.3rc2/-connectivity/source/drivers/jdbc/Object.cxx:175.
El código de la macro es este:
Sub EliminarRegistros ()
Dim opcion As integer
opcion = MsgBox ("¿Realmente deseas borrar los registros ",36,“BORRAR REGISTROS”)
If opcion = 6 Then
Dim oCon
Dim oStat
Dim sSQL
oCon = ThisDatabaseDocument.CurrentController.ActiveConnection
oStat = oCon.CreateStatement
‘Ejecuto la consulta
sSQL = "DELETE FROM "“tbl_SOLICITUD_FEDERACION”"WHERE Tramitada=TRUE "’
oStat.ExecuteUpdate(sSQL)
Wait 1000 'Aqui modificas el tiempo de espera
MsgBox “Los registros han sido borrados”
End If
End Sub
No sé a qué corresponde este error. Me podrían ayudar?. Muchas gracias