Discussion :

[petchy]

bonsoir
j'ai un petit problème, quand je click sur C1,C2,C3,.... pas de problème ,j'ai les infos qui s'affiche.
mais quand je click sur cbb_nom j'ai l'erreur "3705"
je ne comprends pas,auriez vous une idée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub C1_click()
 Call Connect
Sql = "Select * from employe where Nom_prenom='" & C1.Text & "'"
   Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
     'While Not Rs.EOF
   T1.Text = Rs.Fields("cout_mo") & " €"
    Call Deconnect
    If C1.Text <> "" Then
     H(0).SetFocus
    End If
End Sub

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
39
40
41
Private Sub cbb_nom_click()
Call Connect
    Sql = "Select * from chantier where Nom_chantier='" & cbb_nom.Text & "'"
    Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
   If Rs.RecordCount > 0 Then
 
            C1.Text = Rs.Fields("n1")
            C2.Text = Rs.Fields("n2")
            C3.Text = Rs.Fields("n3")
            C4.Text = Rs.Fields("n4")
            C5.Text = Rs.Fields("n5")
            C6.Text = Rs.Fields("n6")
            C7.Text = Rs.Fields("n7")
            C8.Text = Rs.Fields("n8")
            C9.Text = Rs.Fields("n9")
            C10.Text = Rs.Fields("n10")
            C11.Text = Rs.Fields("n11")
            C12.Text = Rs.Fields("n12")
            C13.Text = Rs.Fields("n13")
            C14.Text = Rs.Fields("n14")
            C15.Text = Rs.Fields("n15")
            C16.Text = Rs.Fields("n16")
            H(0).Text = Rs.Fields("H1")
            H(1).Text = Rs.Fields("H2")
            H(2).Text = Rs.Fields("H3")
            H(3).Text = Rs.Fields("H4")
            H(4).Text = Rs.Fields("H5")
            H(5).Text = Rs.Fields("H6")
            H(6).Text = Rs.Fields("H7")
            H(7).Text = Rs.Fields("H8")
            H(8).Text = Rs.Fields("H9")
            H(9).Text = Rs.Fields("H10")
            H(10).Text = Rs.Fields("H11")
            H(11).Text = Rs.Fields("H12")
            H(12).Text = Rs.Fields("H13")
            H(13).Text = Rs.Fields("H14")
            H(14).Text = Rs.Fields("H15")
            H(15).Text = Rs.Fields("H16")
            Total.Text = Rs.Fields("totalH")
    End If
    Call Deconnect

merci
@+

[petchy]

bonjour
c'est bizarre quand je met l'évènement DblClick ça fonctionne, mais sur l'évènement click j'ai l'erreur ,pourtant sur l'évènement click il faut une action ,là il faut un click sur C1
je ne comprend pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub C1_DblClick(Cancel As MSForms.ReturnBoolean)
 
Call Connect
Sql = "Select * from employe where Nom_prenom='" & C1.Text & "'"
   Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
     'While Not Rs.EOF
   T1.Text = Rs.Fields("cout_mo") & " €"
    Call Deconnect
    If C1.Text <> "" Then
     H(0).SetFocus
    End If
End Sub

si quelqu'un peut m'éclairer ,merci
@+