Rafraichir toutes les vues et l'index de la base

[Michael DELIQUE]

Code : Tout sélectionner

 Public Sub DBRefreshGlobal(wDB As Notesdatabase,wnbRefeshView As Integer, wnbRefreshIndex As Integer)
   
   Dim DBRefresh As NotesDatabase
   
   On Error Goto ErreurHandle
   
   If (wnbRefeshView=False & wnbRefreshIndex  = False) Then
      Exit Sub
   End If   
   
   If Session Is Nothing Then
      Set Session = New NotesSession
   End If
   
   If wDB Is Nothing Then
      Set DBRefresh = wDB
   Else
      Set DBRefresh = Session.CurrentDatabase
   End If
   
   'rafraichis toutes les vue de la base
   If (wnbRefeshView=True) Then
      Forall vwVue In DBRefresh.Views
         vwVue.Refresh
      End Forall
   End If
   
   'rafraichis l'index de la base s'il y en a un.
   If (wnbRefreshIndex=True) Then
      If DBRefresh.IsFTIndexed = True Then
         Call DBRefresh.UpdateFTIndex(False)
      End If
   End If
   
   Set DBRefresh = Nothing
   
   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