'******************************* **************************************** * ***** dim model 'current modelset model = activemodelif (model is nothing) thenmsgbox "there is no current model" elseif not model. iskindof (pdpdm. cls_model) thenmsgbox "the current model is not an physical data model. "elseprocesstables modelend if '*********************************** **************************************** **'************************************* **************************************** sub processtables (folder) dim tablefor each table in folder. tablesif not table. isshortcut thenprocesstable tableend ifnextdim subfolderfor each subfolder in folder. packagesprocesstables subfoldernextend sub '************************************ **************************************** *'************************************** * ************************************ sub processtable (table) dim colfor each Col in table. columnsif Col. primary and not Col. foreignkey thencol. identity = trueend ifnextend sub