Delete a field if the field is blank for all records

Here is the command to delete a field (column) from the database if all of the records are blank in that field.

! Get Field Name com_FieldName="myField" ! Count records that are not empty COUNT FOR !EMPTY(&com_FieldName) TO com_Count ! Create a Delete Column String if Count is 0 com_AlterString=IIF(com_Count=0,[ALTER TABLE (ALIAS()) DROP COLUMN &com_FieldName],[]) ! Run AlterString line &com_AlterString

*!* Get Field Name
com_FieldName="myField"

*!* Count records that are not empty
COUNT FOR !EMPTY(&com_FieldName) TO com_Count

*!* Create a Delete Column String if Count is 0
com_AlterString=IIF(com_Count=0,[ALTER TABLE (ALIAS()) DROP COLUMN &com_FieldName],[])

*!* Run AlterString line
&com_AlterString

You proved once again AccuZip has the best support, and not just of software company but the best support of any company we do business with.

D.S., Cadiz OH