Compléments pour Microsoft Access

Description

Cette fonction permet de vérifier que le fichier de groupe de travail est bien celui attendu pour la base de données en cours.

Elle doit être exécuter à l'ouverture de la base de données, elle permettra d'éviter qu'un utilisateur passe outre le raccourci permettant d'affecter un groupe de travail (avec gestion d'utilisateurs et de mots de passes) à une base, si elle retourne "False", on pourra afficher un message d'avertissement à l'utilisateur et ensuite quitter l'application.

Syntaxe

fVerifSystemDb(strWrkGrp)

La syntaxe de la fonction fVerifSystemDb comprend l'élément suivant :

Eléments	Description
strWrkGrp	Expression de chaîne correspondant au nom prévu du fichier de groupe de travail.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

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

Dim strCurrentSystem As String
strCurrentSystem = Dir(DBEngine.SystemDB)
If strCurrentSystem = strWrkGrp Then
fVerifSystemDb = True
Else
fVerifSystemDb = False
End If

End Function

Vérifer le groupe de travail (Base de données)