Discussion :

[MeRc|LeSs]

Re Salut

j'ai un petit probléme concernant l'utilisation de toutes les champs de la table AGENT qui contien ( Cdeagent et Nom_Agent ) et cette table et rempli avec 4 code et 4 Nom , chaque code a un nom d'agent .

le problém quand je veux entrer à l'application il accépte le 1er Nom et le code de la table si non pour les autres il l'est accépte pas .

voila le code du button entrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub rcmdentrer_Click()
If cmbagent.Text <> passe!Nom_Agent And txtpass.Text <> passe!Cdeagent Then
c = c + 1
X = MsgBox("Mot de passe incorrect" & c & "/3", vbExclamation, "Attention")
cmbagent.Text = ""
txtpass = ""
cmbagent.SetFocus
If c = 3 Then
MsgBox "Vous avez depasser le nombre d'essai, le programme va étre arrété!", vbInformation, "Essai éronné!"
Unload Me
End If
End If
If cmbagent.Text = passe!Nom_Agent And txtpass = passe!Cdeagent Then
Unload Me
frmMenu.Show
End If
End Sub

cmbagent c'est un combo rempli de la table et appelé ds le form load :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub replircombo()
Set rs = New ADODB.Recordset
SQL = "select * from Agent"
rs.Open SQL, conec, 2, 3
Do While Not rs.EOF
cmbagent.AddItem rs!Nom_Agent
rs.MoveNext
Loop
End Sub

Si y'a un petit coup de main pour permettre a tout les agents d'accéder a l'application.

[avigeilpro]

Petite erreur (c'est surment pas la solution de ton problème mais bon):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cmbagent.Text <> passe!Nom_Agent or txtpass.Text <> passe!Cdeagent

Il suffit que l'un ou l'autre soit faux pour ne pas rentrer

Edit :

Y'a t-il un moment dans ton appli ou tu fait pointer les autres enregistrements?? car si je regarde bien, tu ne parcours pas tous les enregistrement pour tester si le nom et le mot de passe existent.

[MeRc|LeSs]

effectivement il foudra une recherche que j'ai pas pu la réaliser correctement y'a pas une proposition ?

[avigeilpro]

Utilise Do Loop While, EOF et MoveNext, et tu fait ton test dans la boucle, si le test est bon tu sort de la boucle et valide, sinon la boucle reboucle sur l'enregistrement suivant... tu verra c'est pas trop dur