Salut je veux savoire se qui manque pour se code pour qu'il fonctionne bien , la table Agent a une relation avec une autre table est-ce je dois ouvrire les 2 tables? et changé la requétte ou qu'est ce qu'il manque .
Pour le formulaire frmmotpass : j'ai mit se code mais il marche pas :s
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
19
20
21
22
23
24
25
26
27
28
29
30
31 Public passe As ADODB.Recordset Public conec As ADODB.Connection Private Sub main() On Error GoTo Fin Set conec = New ADODB.Connection Set passe = New ADODB.Recordset conec.ConnectionString = (App.Path & "\Assurance.mdb") conec.Provider = "microsoft.jet.oledb.4.0" conec.CursorLocation = adUseClient conec.Open If conec.State = 1 Then conec.Close conec.Open frmmotpass.Show Exit Sub Fin: MsgBox "Erreur n°:" & Str(Err.Number) & vbLf & Err.Description End Sub Public Sub pass() passe.CursorType = adOpenDynamic passe.CursorLocation = adUseClient passe.LockType = adLockBatchOptimistic passe.ActiveConnection = conec passe.Source = "select * from Agent" passe.Open End Sub
pour la declaration j'ai une autre variable qui est déclaré comme suit :
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Dim X, c Private Sub rcmdentrer_Click() If txtagent.Text <> passe!pass And txtpass.Text <> passe!pass Then c = c + 1 X = MsgBox("Mot de passe incorrect" & c & "/3", vbExclamation, "Attention") txtagent = "" txtpass = "" txtagent.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 txtagent = passe!pass And txtpass = passe!pass Then Unload Me frmMenu.Show End If End Sub Private Sub Form_Activate() txtagent.SetFocus End Sub Private Sub Form_Load() pass c = 0 End Sub Private Sub txtagent_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then rcmdentrer_Click End If End Sub
si c'est possible
Code : Sélectionner tout - Visualiser dans une fenêtre à part Public ch As ADODB.Recordset
Partager