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
