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
A voir également:
- Erreur access vba urgent
- Erreur 0x80070643 - Accueil - Windows
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
5 réponses
Tu laches pas l'affaire.
samsan
pour koi tu me suit comme ca bon pour ne pas te deranger ne repon pas a mes messages ok??,
nvaros
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
17
>
samsan
Je vais pas te lacher afin que personne ne t'aide car tu es trop soulante à force
Dali_wafi
>
nvaros
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
eh la tu parle avec qui
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!!!
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
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