[RESUELTO] Macro para borrar campos de una columna

[JFRAN80]

En esta ocasión, quiero saber si hay alguna macro, para borrar el contenido de una columna en una tabla.

[mauricio]

Para esto no necesitas macro, o tal vez si, pero debes de dar más detalles de lo que "exactamente" quieres hacer.

[Longi]

"Pos eso!"
Que según lo que quieras, pero con un SQL "Delete" se puede eliminar todos los datos, o solo los que se quieran seleccionar.
Lo que en Access se llama una consulta de acción.

Un saludo!

[JFRAN80]

OK, a ver si se explicarme correctamente.

Tengo una base de datos con la cual saco los informes en Writer mediante la opción combinar correspondencia (se que esta forma es la menos ortodoxa pero me está funcionando). La cuestión es que ese informe de Writer tira de una consulta y hasta aquí todo bien, pero en Writer me aparecen todos los registros de la consulta y yo solo quiero que aparezcan aquel o aquellos que quiero imprimir.
Para ello, he creado un campo en mi tabla principal denominado "Informe", de tal modo que si el usuario quiere sacar únicamente un informe determinado de la consulta, indique en dicho campo "Si" o "No", obviamente si es si, la consulta filtra por dicho valor y en mi informe de writer aparece todo perfecto. Así estoy trabajando pero es un poco engorroso tener que volver a desmarcar manualmente los que he puesto como "Si" cuando no quiero que me aparezcan para la próxima vez.

Por ello, quiero que cuando se cierre la base de datos, automáticamente se borren todos los registros de la columna "Informe", es decir que no aparezca ni "Si" ni "No".

Si veis que no me explico bien, subo la base de datos, aunque me llevará un rato bastante grande porque tengo que borrar todos los datos confidenciales.

Gracias por vuestro tiempo!!

[RMG]

Hola,

Algo así como esto te puede valer.

Código: Seleccionar todo

Sub Actualizar()
Dim oStat As Object
Dim sSQL As String
oStat = ThisDatabaseDocument.CurrentController.ActiveConnection.CreateStatement
sSQL = "UPDATE ""nombretabla"" SET ""nombrecampo"" = NULL"
oStat.ExecuteUpdate(sSQL)
End Sub

Esta macro la puedes asignar al evento "Documento va a ser cerrado"

Desde la ventana principal menú Herramientas->Personalizar->Eventos->Documento va a ser cerrado

Saludos

[JFRAN80]

Efectivamente era la solución. Muchas gracias por vuestra ayuda.

Saludos,