If Not IsNull(DLookup("alogin", "admin", "alogin = '" & vlogin &
"'")) Then
MsgBox "Login user ok"
If Not IsNull(DLookup("apassword", "admin", "apassword = '" &
vpass & "'")) Then
MsgBox "CONNECTION EN COURS"
DoCmd.OpenForm "connect"
DoCmd.Close acForm, "connexion"
Else
MsgBox "Le mot de passe est incorrect !!!"
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
il n'y a que les variables Variant qui acceptent des valeurs Null. Soit tu déclares des variant soit tu places Non sur la ligne "null interdit" dans les champs de ta table, soit les deux.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"belok" a écrit dans le message de news:3f9d19f8$0$303$
Bonjour,
Quand je clique sur le boutton et que cmdlogin ou/et cmdpassword est vide j'ai un message de debogage sinon ça fonctionne nikelus.
If Not IsNull(DLookup("alogin", "admin", "alogin = '" & vlogin & "'")) Then MsgBox "Login user ok"
If Not IsNull(DLookup("apassword", "admin", "apassword = '" & vpass & "'")) Then MsgBox "CONNECTION EN COURS" DoCmd.OpenForm "connect" DoCmd.Close acForm, "connexion" Else MsgBox "Le mot de passe est incorrect !!!" End If
Else MsgBox "Login incorrect !!!" End If
End Sub
Bonjour.
il n'y a que les variables Variant qui acceptent des valeurs Null.
Soit tu déclares des variant soit tu places Non sur la ligne "null interdit"
dans les champs de ta table, soit les deux.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"belok" <belok@skynet.be> a écrit dans le message de
news:3f9d19f8$0$303$ba620e4c@reader1.news.skynet.be...
Bonjour,
Quand je clique sur le boutton et que cmdlogin ou/et cmdpassword est vide
j'ai un message de debogage
sinon ça fonctionne nikelus.
If Not IsNull(DLookup("alogin", "admin", "alogin = '" & vlogin &
"'")) Then
MsgBox "Login user ok"
If Not IsNull(DLookup("apassword", "admin", "apassword = '" &
vpass & "'")) Then
MsgBox "CONNECTION EN COURS"
DoCmd.OpenForm "connect"
DoCmd.Close acForm, "connexion"
Else
MsgBox "Le mot de passe est incorrect !!!"
End If
il n'y a que les variables Variant qui acceptent des valeurs Null. Soit tu déclares des variant soit tu places Non sur la ligne "null interdit" dans les champs de ta table, soit les deux.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"belok" a écrit dans le message de news:3f9d19f8$0$303$
Bonjour,
Quand je clique sur le boutton et que cmdlogin ou/et cmdpassword est vide j'ai un message de debogage sinon ça fonctionne nikelus.
If Not IsNull(DLookup("alogin", "admin", "alogin = '" & vlogin & "'")) Then MsgBox "Login user ok"
If Not IsNull(DLookup("apassword", "admin", "apassword = '" & vpass & "'")) Then MsgBox "CONNECTION EN COURS" DoCmd.OpenForm "connect" DoCmd.Close acForm, "connexion" Else MsgBox "Le mot de passe est incorrect !!!" End If
