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

Thanks very much for your help. As always, you guys have the best tech support I have ever run into.

S.S., Allegheny, PA