c'est etrange quand je cherche a effacer des vue "private a first use" je ne passe pas par le desktop
mais je cherche dans les vues les privates pour les effacer en script
un bout de code dans une base
mais je cherche dans les vues les privates pour les effacer en script
un bout de code dans une base
- Code : Tout sélectionner
Forall views In Db.Views
Set PrivateFolder = views
If Isempty(PrivateFolder.Readers) = False Then
If (Left (PrivateFolder.Name, 12) = "my pending_V" Or Left (PrivateFolder.Name, 13) = "my projects_V" ) Then
If Right (PrivateFolder.Name, Len(profiledoc.fPRD_Version(0))) <> profiledoc.fPRD_Version(0) Then
Print "Updating Private folder " & PrivateFolder.name
Call PrivateFolder.Remove
End If
End If
End If
'Print ""
End Forall