erreur access vba urgent Fermé

Question

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

nvaros · Answer

Tu laches pas l'affaire.

samsan · Answer

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!!!

nvaros · Answer

Tu as réponse a tout.

Donc resous le problème toute seule alors.

fmvgld · Answer

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

Dali_wafi · Answer

slt si vous voullez ue je vous répond envoyer moi too adress e-mail

Erreur access vba urgent

5 réponses

Discussions similaires