Dans quel evenement doit-je mettre le code ?

Version imprimable

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:

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

16/05/2010, 12h48
justgreat

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

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

Code:

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:

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

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

16/05/2010, 13h01
BERRACHED SAID

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
16/05/2010, 14h39
BERRACHED SAID

Salut

Merci a vous deux pour vos réponses

Mon ami Justgreat c'est ta réponse qui a débloqué les choses ça marche parfaitement Merci

Said :lol:
16/05/2010, 19h14
justgreat

Tu es le bienvenue comme d'habitude, mais essaye d'être un peu plus claire quand tu poses tes problèmes pour avoir des réponses adéquates :)
17/05/2010, 20h56
BERRACHED SAID

Bonsoir Justgreat

j'y manquerai pas :ccool: