Page 1 sur 1
Forcer IsSummary pour tous les champ d'un Document
Publié:
06 Jan 2010 à 17:00par 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