Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Ouattara

avatar
22/10/14 10:14
Ça pourrait faire quelque chose comme ça :
Langage: Visual Basic
Dim strLogin As String Dim strPassword As String Dim varLogin As Variant   ' Récupérer les infos du formulaire strLogin = Me![Zone de texte Identifiant] strPassword = Me![Zone de texte Mot de passe] If (strLogin = "") Or (strPassword = "") Then MsgBox "Renseignez l'identifiant et le mot de passe !", vbExclamation Exit Sub End If   ' Rechercher la paire Login/Password dans la table varLogin = DLookup("[Login]", "tblUsers", _ "[Login] = '" & strLogin & "' AND [Password] = '" & strPassword & "'") If IsNull(varLogin) Then MsgBox "Accès interdit", vbExclamation Exit Sub End If   ' La suite normale ici ' ...
Je suppose que la table des utilisateurs s'appelle tblUsers, et qu'elle contient 2 champs Login et Password (utilisés dans le DLookup). Tu peux changer les noms bien sûr.

Idéalement, il faudrait vérifier avant le DLookup() que les champs saisis ne contiennent pas d'apostrophe (une apostrophe va casser le filtre du DLookup qui en utilise déjà).

Ouala !

-- Hervé Inisan.
SujetAuteurEnvoyé le

Ouattara

Ouattara21/10/14 20:01

Re: Ouattara

Hervé Inisan21/10/14 20:15

Re: Ouattara

Ouattara22/10/14 09:53

Re: Ouattara

Hervé Inisan22/10/14 10:14

Re: Ouattara

Ouattara22/10/14 10:43

Re: Ouattara

Hervé Inisan22/10/14 11:33

Re: Ouattara

Ouattara22/10/14 18:28

Re: Ouattara

Hervé Inisan22/10/14 19:09

Re: Ouattara

Ouattara23/10/14 15:20

Re: Ouattara

Hervé Inisan23/10/14 15:46

Re: Ouattara

Ouattara23/10/14 16:39

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter