Set model = ActiveModel
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox “Le modèle courant n’est pas un modèle physique.”
Else
For each Itm in model.Tables
Itm.Delete
Next
End if
Set model = ActiveModel
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox “Le modèle courant n’est pas un modèle physique.”
Else
For each Itm in model.Tables
Itm.Delete
Next
End if