Forcer IsSummary pour tous les champ d'un Document

[Michael DELIQUE]

Code : Tout sélectionner

Public Sub FieldAllisSummary(wDoc As NotesDocument,wnbIsSum As Integer,wnbSave As Integer)
         'Déclaration Variable
   Dim Item As NotesItem
   Dim vrItem As Variant
   
   On Error Goto ErreurHandle
   
   If wDoc Is Nothing Then
      Error 9999,"wDoc is Nothing"
      Exit Sub
   End If
   
   Select Case wnbIsSum
   Case True,False
            'ok
   Case Else
      Error 9999,"wnbIsSum no ''True'' or ''False'' Value"
      Exit Sub
   End Select
   
   vrItem = wDoc.Items
   Forall ValueItem In vrItem
      Set Item = ValueItem
      If Not Item Is Nothing Then
         Item.IsSummary = wnbIsSum
      End If
      Set Item = Nothing
   End Forall
   vrItem = Null
   If wnbSave = True Then
      Call wDoc.save(True,False)
   End If
   
   Exit Sub
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Sub
End Sub