Vérifier le groupe de travail de la base de données

Le code qui suit permet de vérifier que le fichier de groupe de travail est bien celui correspondant à la base de données en cours.

Cette fonction permet si elle est exécutée à l'ouverture de la base d'éviter qu'un utilisateur passe outre le raccourci permettant d'affecter un groupe de travail à une base, si elle retourne "False", on peut afficher un message d'avertissement à l'utilisateur et ensuite quitter l'application.

L'argument "strWrkGrp" correspond au nom prévu du fichier de groupe de travail.

Public Function VerifSystemDb(strWrkGrp As String) As Boolean
'** Vérification du groupe de travail

Dim strCurrentSystem As String

strCurrentSystem = Dir(DBEngine.SystemDB)
If strCurrentSystem = strWrkGrp Then
    VerifSystemDb = True
Else
    VerifSystemDb = False
End If

End Function

Auteur : Jessy SEMPERE