Utilisation de Tout les champs d'une table
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:
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:
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.
