ValidationMode=True
InteractiveMode=im_Batch
Dim MDL 'the current model
'get the current active model
The Set of MDL=ActiveModel
If (MDL Is Nothing) Then
MsgBox "There is no current Model", "
ElseIf Not MDL. IsKindOf (PdPDM. Cls_Model) Then
MsgBox "The current model is not an Physical Data model."
The Else
ProcessFolder MDL
End the If
'This routine copy name into code for each table, each column and each view
'of the current folder
Private sub ProcessFolder (folder)
Dim the Tab 'running table
For each Tab in the folder. The tables
If not TAB. IsShortcut then
Dim col 'running column
For each col TAB. In the columns
If col.com ment & lt; & gt;" "Then
Col. Name=col.com ment
The else
Col. Name=col. Code
End the if
Next
End the if
Next
'go into the sub - packages
Dim f 'running folder
For Each f In the folder. Packages
If not f.I sShortcut then
ProcessFolder f
End the if
Next
End sub
CodePudding user response:
This is a VB!CodePudding user response:
The table to make the data window, with circulation assignment will comment assign values to the name