Page 1 sur 1
Rafraichir toutes les vues et l'index de la base
Publié:
06 Sep 2007 à 13:55par 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