DominoArea.org [Archive]

Une petite fonction que j'utilise pour détecter si une base est accéssible.
Merci de poster les améliorations que vous pouvez y apporter

Code : Tout sélectionner

Function DBExists_LS(wdb As NotesDatabase) As Single
'teste si une base de donnée est accéssible
' renvoi true si elle est accéssible
' renvoi false si elle n'est pas accessible

On Error Goto ErreurDBExists_LS

   DBExists_LS = False
   
   If wDB Is Nothing Then
      'teste si la variable est renseigné
      Exit Function
   Elseif wDB.IsOpen = False Then
      'teste si la base est ouverte
      Exit Function   
   End If
   
   'teste si la base existe réelement il faut que la date de crétation existe ainsi que l'id de réplique
   If Trim(Cstr(wDB.Created)) = "" Or Trim(Cstr(wDB.ReplicaID)) = "" Then
      Exit Function
   End If
   
   DBExists_LS = True

Exit Function
ErreurDBExists_LS:
Msgbox "(DBExists_LS) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
DBExists_LS = False
Exit Function
End Function