Erreur access vba urgent
samsan
-
Dali_wafi -
Dali_wafi -
Bonjour,
j ai ecrit un code en vba et il apparait qui l ya une erreur quelque part
bon je m explique j ai creer une base de donn"es sous access 2003 +un formulaire de sécirité pour le login et le mot de passe bon j ai une table "users" contennet(login password et user)
bon je veux selon le champs user ouvrir un formulaire si user=administrateur le formulaire "menu1" s ouvre si user=limite le formulaire "menu s ouvre
mais avec se code ni l un ni l autre ne se lancent aidez moi svp c urgent
merci d avance
voila le code
Private Sub Commande8_Click()
Static i As Byte
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD],[USER] FROM USERS WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
If User = "administrateur" Then
stDoName = "menu1"
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
End If
If User = "limite" Then
stDoName = "menu"
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
End If
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub
j ai ecrit un code en vba et il apparait qui l ya une erreur quelque part
bon je m explique j ai creer une base de donn"es sous access 2003 +un formulaire de sécirité pour le login et le mot de passe bon j ai une table "users" contennet(login password et user)
bon je veux selon le champs user ouvrir un formulaire si user=administrateur le formulaire "menu1" s ouvre si user=limite le formulaire "menu s ouvre
mais avec se code ni l un ni l autre ne se lancent aidez moi svp c urgent
merci d avance
voila le code
Private Sub Commande8_Click()
Static i As Byte
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD],[USER] FROM USERS WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
If User = "administrateur" Then
stDoName = "menu1"
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
End If
If User = "limite" Then
stDoName = "menu"
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
End If
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub
Configuration: Windows XP Internet Explorer 7.0
5 réponses
-
-
ce n esr pas gentil de ta part pourquoi tu vx que perssone ne m aide si j etait a ta place je n aaurais pas fait ce que tu me fais mnt!!!
-
Tu as réponse a tout.
Donc resous le problème toute seule alors. -
essaye ce code et pense a a&r& ton code (plus facile a lire)
Static i As Byte
Dim rs, req, db
Set db = CurrentDb 'DBEngine.Workspaces(0).Databases(0)
Set req = db.createquerydef("")
req.sql = "SELECT users.login , users.password , users.user FROM users WHERE (((users.login)='" & Me.login & "') AND ((users.password)='" & Me.password & "'));"
Set rs = req.openrecordset()
If Not rs.EOF Then
If rs.User = "administrateur" Then
stDoName = "menu1"
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
End If
If rs.User = "limite" Then
stDoName = "menu"
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
End If
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
