Urgent : problème de combobox implémentant deux autres champs de textbox automatRésolu

Question

Bonjour,




Voil&#224; le probl&#232;me : j&#146;ai deux tables sous access (TLocalite et TEtudiant) o&#249; j&#146;aimerais impl&#233;menter les donn&#233;es de l&#146;une dans l&#146;autre via une combobox en vb6.




D&#233;tails :


Dans ma feuille principale, lors de la saisie de l&#146;&#233;tudiant (ou modif) , on a le choix parmi plusieurs codes postaux dans une combobox, une fois ce choix fait, j&#146;aimerais que les champs des deux textbox (textbox1 : Nlocalite et textbox2 : Pays) se compl&#232;tent automatiquement de par le choix du code&#133;



Depuis hier j'ai essay&#233; plusieurs codes et on m'a m&#234;me conseill&#233; via le forum malheureusement ces aides n'ont pas suffit &#224; avoir ce que je veux donc si qqun aurait &#233;ventuellement eu le m&#234;me probl&#232;me que moi ce serait bien qu'il me conseille...

C'est prise de t&#234;te, peut &#234;tre pour rien mais j'aimerais avoir ce r&#233;sultat du choix de combo et de l'ajout automatique dans les textbox suite au choix ds combo du cp

Un grand merci pour votre aide qui m'est pr&#233;cieuse surtout que ce travail est un travail de seconde session et que l&#224; j'en suis &#224;  m'arracher les cheveux car je n'avance pas des masse &#224; cause de se probl&#232;me que je n'arrive pas &#224; r&#233;soudre 

Voil&#224; donc c'est super urgent et merci encore

pjcleder · Accepted Answer

PAT

J'ai le fichier et je suis dessus. Laisse 15 minutes que je te fasses un truc sympa

pjcleder · Answer

PAT

Si j'ai bien compris : Apr&#233;s s&#233;lection d'un code postal sur la combo, tu veux afficher la localit&#233; correspondante dans un textbox.
Si c'est cel&#224;, dans l'&#233;v&#233;nement Click de la combo, il faut que &#233;crives l'appel &#224; une requ&#234;te qui ira chercher dans la base la localit&#233; correspondante au code postal s&#233;lectionn&#233;.
En gros sch&#233;matiquement, &#231;a donne :

Evenement Click
select ville from tableville where codepostal = combo1.text
txtVille.Text = R&#233;sultat de la requ&#234;te.

J'ai test&#233; sur une base exemple. Ca marche.

CYCY07 · Answer

Private Sub Combocodepostal_Change()
Dim db As Database, rs As Recordset
Dim sql As String
Set db = CurrentDb
'ici tu cr&#233;e ta proc&#233;dure sql de filtre en utilisant la valeur de ta combobox :
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
'Cr&#233;ation de la requ&#234;te
sql = ""
sql = "SELECT * FROM Tlocalite WHERE (Nlocalite=" & Chr(39) & Combocodepostal.Text & Chr(39) & ");"
Set rs = db.OpenRecordset(sql)
If rs.EOF = True Then
    MsgBox ("pas d'enregistrement")
Else
'afficher la valeur de la localit&#233; dans le texbox
Text1(4).DataField = rs.Fields("Nlocalite").Value 'nom-localite &#224; remplacer par le nom du champ de localite de ta table Tlocalite
Text1(4).DataField = rs.Fields("Pays").Value
End If
rs.Close
Set base = Nothing
End Sub

Je suis partie sur cette id&#233;e de code l&#224; qu'on m'a conseill&#233; ce serait donc ma requ&#234;te sql qui est fausse alors?? 
car dans la combo tout s'affiche normal mais c dans mes textbox...
Je ne suis que d&#233;butante en vb et cherche &#224; comprendre...

cs_CanisLupus · Answer

Salut, dans ta table Tlocalite, Nlocalite doit &#234;tre le nom de la localit&#233; si j'ai bien compris donc ta requete ne peut pas fonctionner : tu compares le code avec le nom.
Tu n'as pas un champ dans Tlocalite o&#249; se trouve le code postal ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

CYCY07 · Answer

dans ma table localit&#233; en effet j'ai un champ code postal ainsi que localit&#233; et pays
et ces trois champs doivent figurer dans ma table &#233;tudiant par l'insertion de la table localit&#233;...

cs_CanisLupus · Answer

Donc, ta requete devrait &#234;tre :
sql = "SELECT * FROM Tlocalite WHERE (CodePostal=" & Chr(39) & Combocodepostal.Text & Chr(39) & ");"

Le post de pjcleder t'aiguillait dans ce sens.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

CYCY07 · Answer

euh ok mais &#231;a change rien au probl&#232;me car &#224; l'ouverture de la requ&#234;te rien ne se passe... C'est bien cela qu'il me faut indiquer :
Text1(4).Text = rs.Fields("Nlocalite").value 

Il y a du boulot qui m'attend je comprend pas trop l&#224; pourquoi &#231;a ne marche pas car j'ai modifi&#233; la requ&#234;te... Donc le probl&#232;me viendrait &#224; ce niveau l&#224;???

pjcleder · Answer

PAT

Sais-tu debogger en vb6 ?
Si c'est le cas, v&#233;rifie que rs.fields("NLocalite").value contienne bien une valeur.

cs_CanisLupus · Answer

Enl&#232;ve les .value.
Text1(4).Text = rs.Fields("Nlocalite") devrait suffire.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

D'autre part, v&#233;rifie le type de ton champ codepostal dans la table. Si c'est du num&#233;rique (integer, long), il faudra enlever les chr(39) de ta requete.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

CYCY07 · Answer

je viens de v&#233;rifier les relations des tables, j'ai retir&#233; le chr(39) qui en effet me servait &#224; rien, le value non plus, et quand je lance mon programme il ne me trouve pas de bug mais &#231;a va toujours pas... Je sais plus quoi faire et &#231;a me rend malade... Vous savez pas s'il y a un code source concret sur ce site peut etre que je trouverai plus vite mon erreur ou ce qu'il manque...

voil&#224; ce que &#231;a donne : 
Private Sub Combocodepostal_Change()
Dim db As Database, rs As Recordset
Dim sql As String
Set db = CurrentDb
'ici tu cr&#233;e ta proc&#233;dure sql de filtre en utilisant la valeur de ta combobox :
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
'Cr&#233;ation de la requ&#234;te
sql = ""
sql = "SELECT * FROM Tlocalite WHERE (NCodPos=" & Combocodepostal.Text & ");"
Set rs = db.OpenRecordset(sql)
If rs.EOF = True Then
    MsgBox ("pas d'enregistrement")
Else
'afficher la valeur de la localit&#233; dans le texbox
Text1(4).Text = rs.Fields("Nlocalite")
End If
rs.Close
Set base = Nothing
End Sub

D&#233;sol&#233;e de vous emb&#234;ter...

CYCY07 · Answer

j'ai modifi&#233; mes relations mis l'int&#233;grit&#233; r&#233;f&#233;rentielle, oui c du num&#233;rique donc retir&#233; chr(39), j'ai retir&#233; le value et en d&#233;buggant il ne voit rien donc il doit me manquer qqch... Je d&#233;sesp&#232;re l&#224;, vous ne sauriez pas s'il y aurait un code source sur ce forum identique &#224; ce que je recherche ce sera peut etre plus facile de trouver la faille car l&#224; je ne sais plus quoi faire et &#231;a me d&#233;courage grave...
Merci c'est vraiment sympa pour votre aide et d&#233;sol&#233;e de vous d&#233;ranger c'est cool de savoir qu'il y a encore des gens qui sont l&#224; pour aider les autres
Je suis d&#233;cid&#233;ment nulle moi pffffffff

Private Sub Combocodepostal_Change()
Dim db As Database, rs As Recordset
Dim sql As String
Set db = CurrentDb
'ici tu cr&#233;e ta proc&#233;dure sql de filtre en utilisant la valeur de ta combobox :
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
'Cr&#233;ation de la requ&#234;te
sql = ""
sql = "SELECT * FROM Tlocalite WHERE (NCodPos=" & Combocodepostal.Text & ");"
Set rs = db.OpenRecordset(sql)
If rs.EOF = True Then
    MsgBox ("pas d'enregistrement")
Else
'afficher la valeur de la localit&#233; dans le texbox
Text1(4).Text = rs.Fields("Nlocalite")
End If
rs.Close
Set base = Nothing
End Sub

CYCY07 · Answer

voil&#224; o&#249; j'en suis je me r&#233;p&#232;te mdr...

pjcleder · Answer

PAT

Mets un point d'arr&#234;t sur rs.fields("Nlocalit&#233;") et did-moi s'il ya une valeur dedans.

CYCY07 · Answer

j'ai mis le point d'arr&#234;t comme tu m'as dit mais il ne met rien pffffffff... Je sais po quoi faire suis largu&#233;e moi pffffffff....
En tout cas merci pour ta patience c'est vraiment cool...
Que dois je faire pour qu'il m'indique qqch??? Ce serait un probl&#232;me avec mes tables??

CYCY07 · Answer

quand je vais sur espion express il me dit expression non d&#233;finie dans le contexte dans valeur
et dans expression il m'indique Nlocalite

pjcleder · Answer

PAT

Au pire, oublie le point d'arr&#234;t
on va aller plus vite

Juste avant  Text1(4).Text = rs.Fields("Nlocalite"), tu mets msgbox rs.fields("Nlocalit&#233;") et tu regardes ce qu'affiche le messagebox.
Apr&#233;s on saura si ta requ&#234;te ram&#233;ne bien une valeur et on avisera.

pjcleder · Answer

PAT

Je suis s&#251;r que ce n'est pas grand chose. Fais-moi confiance !
Au pire, envoie-moi ton fichier .mdb par mail &#224; [mailto:pcleder@wanadoo.fr pcleder@wanadoo.fr] et je te fais la correction en deux minutes.
Ca doit &#234;tre tout con et &#224; distance c'est pas facile.

CYCY07 · Answer

apparemment &#231;a marche pas il n'y a toujours rien

pjcleder · Answer

PAT

Je me permets d'afficher le bout de code que je t'ai envoy&#233; par mail de mani&#232;re &#224; ce qu'il puisse profiter &#224; tout le monde.
Ne soyons pas &#233;goistes !

Private Sub Combo1_Click()
    Dim cn As New Connection
    Dim rs As New Recordset
    
    txtVille = ""
    
    With cn
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Tables.mdb"
        cn.Open
    End With
    
        Set rs cn.Execute("select * from tlocalite where ncodpos" & Combo1.Text)
    
    If rs.EOF And rs.BOF Then
        txtVille = "Ce code n'est pas pr&#233;sent dans la base"
    Else
        txtVille = rs.Fields(2)
    End If
    
End Sub