Dans quel evenement doit-je mettre le code ?

**BERRACHED SAID** · 16/05/2010, 13h24

Bonjour tous le Monde et bonne journée

Voila en essayant d'effectuer une recherche dans BD Access a l'aide d'un textbox le code marche bien en faisant la saisie manuellement mais en voulant automatiser je m'explique c'est a dire le textbox6 = textbox4 sans que l'utlisateur
puisse écrire dessus le code ne marche pas j'ai essayé sur toutes les événements du textbox6 j'ai aussi essayé de mettre le code dans un module et j'ai met Call dans l'événement change du textbox6 sans résultat.

j'attends vos précieuse aides et merci d'avance

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
Private Sub Text6_KeyPress(KeyAscii As Integer)
Dim rs As String
On Error Resume Next
If KeyAscii = 13 Then
If IsNumeric(Text6.Text) = False Then
MsgBox ("Entrer le Nr de la Rente ici.")
txtRecherche.Text = ""
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("Entrer le N° du Rentier")
txtRecherche.Text = ""
Exit Sub
End If
Text6 = Me.txtRente
Set rsEnfants = New ADODB.Recordset
rs = "select * from TEnfants where [Rente]=" & Text6.Text
rsEnfants.Open rs, conn, adOpenKeyset, adLockOptimistic, adCmdText
If rsEnfants.RecordCount = 0 Then
MsgBox ("Ce Rentier n´existe pas encore, veuillez l´enrégistrer.")
Text6.Text = ""
Else
Set DataGrid1.DataSource = rsEnfants
DataGrid1.Columns(0).Visible = False
DataGrid1.Columns(1).Visible = False
DataGrid1.Columns(2).Text = rsEnfants!Prenom
DataGrid1.Columns(3).Text = rsEnfants!Sexe
DataGrid1.Columns(4).Text = rsEnfants!DateNaissance
DataGrid1.Columns(5).Text = rsEnfants!Remarques
End If
End If

End Sub

**justgreat** · 16/05/2010, 13h48

Explique stp comment tu veux automatiser car ce n'est claire du tout ce que tu dis " en voulant automatiser je m'explique c'est a dire le textbox6 = textbox4 sans que l'utlisateur
puisse écrire dessus le code ne marche pas "

Sinon le code que tu montres ne fonctionnera pas que si l'utilisateur se met sur le textbox6 et appuis sur le boutton Entrer et que la valeur du text6 est numéric !
Alors c'est normal que ça marche pas sur les autres evenements (car l'utilisateur n'aurait pas appuyer sur ENTRER) !

essaye d'enlever le If KeyAscii = 13 Then et le dernier END IF
et met ton code sur les autres événements que tu veux (lost_focus , textvalidate, text_change ...) et teste

Je ne peux pas te dire l'evenement car je n'ai pas compris tu veux faire quoi exactement ! si tu expliques à nouveau je pourrai peut etre t'aider plus

**ProgElecT** · 16/05/2010, 13h55

Text6, txtRecherche, txtRente, textbox4, on s'y perd un peu.

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
Private Sub Text6_KeyPress(KeyAscii As Integer)
Dim rs As String
On Error Resume Next
If KeyAscii = 13 Then
    If IsNumeric(Text6.Text) = False Then
        MsgBox ("Entrer le Nr de la Rente ici.")
        txtRecherche.Text = ""
        Exit Sub
    End If
    If Text6.Text = "" Then
        MsgBox ("Entrer le N° du Rentier")
        txtRecherche.Text = ""
        Exit Sub
    End If
 
    Text6 = Me.txtRente
    Set rsEnfants = New ADODB.Recordset
    rs = "select * from TEnfants where [Rente]=" & Text6.Text
    rsEnfants.Open rs, conn, adOpenKeyset, adLockOptimistic, adCmdText
    If rsEnfants.RecordCount = 0 Then
        MsgBox ("Ce Rentier n´existe pas encore, veuillez l´enrégistrer.")
        Text6.Text = ""
        Else
        Set DataGrid1.DataSource = rsEnfants
        DataGrid1.Columns(0).Visible = False
        DataGrid1.Columns(1).Visible = False
        DataGrid1.Columns(2).Text = rsEnfants!Prenom
        DataGrid1.Columns(3).Text = rsEnfants!Sexe
        DataGrid1.Columns(4).Text = rsEnfants!DateNaissance
        DataGrid1.Columns(5).Text = rsEnfants!Remarques
    End If
End If
End Sub
 
' déclenchement par le Enter sur textbox4
Private Sub textbox4_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0: Exit Sub
Text6_KeyPress.Text = textbox4.Text & Chr(13)
End Sub

ou ailleurs dans le code

Code :

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

Text6_KeyPress.Text = textbox4.Text & Chr(13)

ou encore, je n'ai pas compris ton besoin et tout est faux.

**BERRACHED SAID** · 16/05/2010, 14h01

salut

je m'excuse si j'ai pas bien explique, je voulais faire en sorte que lorsque le Forme n'initialise le textbox6 celui de la recherche capte directement le contenu d'un autre textbox ce trouvant dans le même form et lance la recherche sans le remplir manuellement.

j'espère avoir été claire merci