Écran de connexion dans l'Accès à des formulaires, macros et queriesms-

Malphas -

Il est effectivement possible de le faire sans l'aide de VBA, mais je me demande si la raison pour laquelle vous ne souhaitez pas utiliser le VBA est à cause de la question de Confiance. Dans ce cas, ce ne sera pas possible, parce que les actions de macro Près et Quitter sont interdits si la base de données n'est pas digne de confiance.

Alors que vous pouvez exécuter des actions dans le AutoExec macro-delà du point où vous utilisez le OpenForm commande, je pense que c'est plus lisible pour continuer les actions suivantes sur le formulaire lui-même. D'abord parce que vous ne pouvez pas vraiment de ramification dans une macro; ensuite, parce qu'il est plus modulaire pour garder les actions à faire avec le formulaire en réalité sur la forme.

Dans l'exemple ci-dessous, mon exemple de formulaire de connexion est appelé LoginForm, et le nom d'utilisateur de la zone de texte est txtUserName, et le mot de passe de la zone de texte est appelé txtPassword.

La première chose à faire est de protéger le dialogue entre le simple fait de laisser à l'utilisateur de fermer le dialogue et de s'échapper dans la conception de base de données de l'écran. La meilleure façon de le faire est de définir un indicateur appelé ValidLogin lors du chargement du formulaire. Vous allez définir cet indicateur au cours du processus de connexion. Lorsque le formulaire est fermé, vérifier si le drapeau est vrai. Si ValidLogin est faux, puis fermez la base de données.

Sur le OnLoad événement du formulaire de Connexion, cliquez sur le bouton de sélection, et choisissez Macros Constructeur. Dans la Macro de l'écran, utilisez les actions suivantes (à noter que la Condition colonne est masquée par défaut, mais vous aurez seulement besoin pour les deux prochaines macros):

Line Condition     Action/Arguments

1                  SetTempVar, Name = ValidLogin, Expression = False

Sur le OnUnload événement du formulaire de Connexion, faire la même chose que ci-dessus, et d'ajouter:

Line Condition     Action/Arguments

1  Not [TempVars]![ValidLogin]
                   Quit, Options = Exit.

Si vous exécutez ce maintenant, dès que vous fermez le formulaire, la base de données de près. Pour être utile, vous devez ajouter les éléments suivants actions de macro à l'événement OnClick de votre Connexion bouton:

Line Condition     Action/Arguments

1                  SetTempVar, Name = Valid Login, Expression = DCount("*","Customer","[Username]=[Forms]![LoginForm]![txtUserName] And [Password]=[Forms]![LoginForm]![txtPassword]")>0

2 Not [TempVars]![ValidLogin]
                   MsgBox, Message = Invalid Login
3 ...              StopMacro

4                  OpenForm, Form Name = MainForm

5                  Close, Object Type = Form, Object Name = LoginForm, Save = No

Noter que dans tous ces exemples, j'ai utilisé les macros incorporées, non nommé, de macros, de sorte que vous pouvez les garder ensemble avec le formulaire. Notez également les points de suspension (...) dans la dernière macro, qui représente la valeur de la dernière condition.

Un léger réglage de ce qui précède que le code ci-dessus doit être ouverte à des attaques par injection SQL (oui je sais c'est seulement l'accès, mais il ne fait jamais de mal)

Public Function CheckUserPassword(strUserName As String, strPassword As String) As Boolean
Dim rst As DAO.Recordset
Set rst = DBEngine(0)(0).OpenRecordset("tblUsers", dbOpenTable)
With rst
    .Index = "UserName"
    .Seek "=", strUserName
    If .NoMatch = False Then
      If !Password = strPassword Then
        CheckUserPassword = True
    Else
        CheckUserPassword = False
    End If
Else
    CheckUserPassword = False
End If
End With
rst.Close
Set rst = Nothing

End Function