Database - reports - suppress empty fields

Question

I have a fairly large database which frequently has a number of empty fields in the records. Is there a way I can suppress the empty fields when I print a report? It might reduce a nearly 60 page report to 30. A significant saving.
Thanks for any help or ideas.

Answer 1

Here is an enhanced version.
--[SCRIPT report visible records]
Enregistrer en tant que Script: report visible records.scpt
déplacer le fichier créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:AppleWorks 6:
Il vous faudra peut-être créer le dossier AppleWorks 6 et peut-être même le dossier Applications.
Ouvrir votre base de données,
rendre visible les fiches à imprimer
menu Scripts > AppleWorks 6 > report visible records
Le script crée un document traitement de texte à partir du contenu de ces fiches
À droite des noms de champs, le script insère un caractère 'deux points' suivi d'un TAB ce qui permet d'aligner aisément le début des données affichées.
--=====
L'aide du Finder explique:
L'Utilitaire AppleScript permet d'activer le Menu des scripts :
Ouvrez l'Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case "Afficher le menu des scripts dans la barre de menus".
+++++++
Save the script as Script: report visible records.scpt
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:AppleWorks 6:
Maybe you would have to create the folder AppleWorks 6 and even the folder Applications by yourself.
Open your database
Make visibles the records to print.
menu Scripts > AppleWorks 6 > report visible records
The script creates a new WP document with the contents of these records.
After the fields name, it inserts a colon and a TAB so it would be easy to align the beginning of data values
--=====
The Finder's Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the "Show Script Menu in menu bar" checkbox.
--=====
Yvan KOENIG (VALLAURIS, France)
2009/09/20
--=====
property myWP : "my report.cwk"
property doWhat : 1
1 = skip empty fields
2 = display fieldName for empty fields
3 = display fieldName and "unavailable" for empty fields
property liste : {}
property nomsChamps : {}
property nbf : missing value
--=====
on run
my nettoie()
tell application "AppleWorks 6"
activate
if document kind of document 1 is not database document then error "Document 1 is not a database !"
set myDB to name of document 1
tell document myDB
set my nomsChamps to name of fields
set my liste to index of every record whose visible is true
end tell -- document 1
end tell -- AppleWorks
if my liste is {} then error number -128
set nbf to count of my nomsChamps
tell application "AppleWorks 6"
make new document with properties {document kind:text document, name:myWP}
set nbr to count of my liste
repeat with rec from 1 to nbr
set the clipboard to my readRecord(myDB, rec)
tell document myWP
paste
if rec < nbr then select menu item 12 of menu 4 (* Inserts Page break *)
end tell -- document
end repeat
end tell -- AppleWorks
my nettoie()
end run
--=====
on nettoie()
set my liste to {}
set my nomsChamps to {}
set nbf to missing value
end nettoie
--=====
on readRecord(d, r)
tell application "AppleWorks 6" to tell document d
set l_fiche to {}
repeat with f from 1 to nbf
set valF to value of field f of record r
if doWhat = 1 then
if valF is not unavailable then copy (item f of my nomsChamps) & " :" & tab & valF & return to end of l_fiche
else if doWhat = 2 then
if valF is unavailable then set valF to ""
copy (item f of my nomsChamps) & " :" & tab & valF & return to end of l_fiche
else
copy (item f of my nomsChamps) & " :" & tab & valF & return to end of l_fiche
end if
end repeat
end tell
return my recolle(l_fiche, return)
end readRecord
--=====
on recolle(l, d)
local t
set AppleScript's text item delimiters to d
set t to l as text
set AppleScript's text item delimiters to ""
return t
end recolle
--=====
--[/SCRIPT]
Yvan KOENIG (VALLAURIS, France) lundi 21 septembre 2009 15:32:47