Jongler entre deux tables pour mettre les données de l'une dans l'autre via le f

Question

j'affiche dans une combobox la localit&#233; o&#249; on a le choix mais dans les deux text box doivent s'afficher localite et pays selon le choix dans la combo
J'ai employ&#233; le findfirst qu'on m'a conseill&#233; sur une question pos&#233;e qq heures plus tot...
Voici le d&#233;tail:
1. j'ai deux tables : TLocalite et TEtudiant
2. dans la feuille cr&#233;&#233;e en VB reprenant la saisie des &#233;tudiants je voudrais pouvoir faire le choix du code postal ainsi que l'ajout de ce code s'il ne parait pas dans la combo (jusque l&#224; pas dur)
3. dans la s&#233;lection de la combo, j'ai deux textbox localit&#233; et pays, en choisissant le code postal dans la combo, je voudrais que les donn&#233;es de la table localit&#233; s'ajouent automatiquement dans les textbox (c&#224;d dans la table TEtudiant) 

On m'a conseill&#233; soit: 
* d'effectuer une requ&#234;te en access puis de taper du code
* emploi du findfirst

voici le code dans la combo :

Private Sub Combocodepostal_Change()
DataLocalit.Recordset.FindFirst "NLocalite ='" + Combocodepostal.Text + "'"
DataLocalit.Recordset.FindFirst "Pays ='" + Combocodepostal.Text + "'"
End Sub

jusque l&#224; &#231;a marche, mais en ex&#233;cutant le projet, il me laisse toujours au meme enregistrement lorsque je s&#233;lectionne le code dans la combo

J'ai du oublier qqch mais est ce que qqun pourrait m'aider car je m'arrache les cheveux depuis tantot et je n'avance pas des masses 
merci d'avance 
Cycy

aegis_10 · Answer

Bonsoir,



tu pourrais essayer plut&#244;t que de chercher la premi&#232;re valeur
correspondante (FindFirst) dans la table, de filtrer ta table en ne
gardant que l'enregistrement souhait&#233;, r&#233;sultat que tu injectes dans un
recorset :



ex : 

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 :

sql = "SELECT * FROM Tlocalite WHERE (" & chr(39) & combocodepostal.text & chr(39) & ");" 

set rs = db.openrecordset(sql)

If rs.EOF = True Then

    msgbox ("pas d'enregistrement")

else

'apr&#232;s je ne suis pas s&#251;r d'avoir bien compris ce que tu voulais faire : afficher la valeur de la localit&#233; dans le texbox ?

localitetextbox.Text = rs.Fields("nom_localite")  'nom-localite &#224; remplacer par le nom du champ de localite de ta table Tlocalite

End If 

rs.Close



En esp&#233;rant t'avoir aid&#233;,

C&#233;dric

aegis_10 · Answer

J'ai &#233;t&#233; un peu vite avec la cha&#238;ne SQL, je la r&#233;&#233;cris, d&#233;sol&#233;...

nom_localite = nom du champ de localite de ta table Tlocalite



sql = "SELECT * FROM Tlocalite WHERE (nom_localite=" & chr(39) & combocodepostal.text & chr(39) & ");"

CYCY07 · Answer

Voil&#224; en fait je voudrais qu'en s&#233;lectionnant dans une combobox le code postal, les champs localit&#233;s et pays s'affichent directement.
Code postal : Choix dans combobox genre 59 000
les textbox localit&#233; et pays se remplissent automatiquement : Lille France
Merci c'est cool je regarderai plus en d&#233;tail ton code demain c'est sympa et je te dirai ce qu'il en est merci bonne nuit

Le must : ce sont les champs de la table TLocalit&#233; qui doivent se rajouter dans ma dbgrid une fois encod&#233;... Voil&#224; o&#249; je me casse le cr&#226;ne...

et oui je ne cherche pas le simple pourtant je suis d&#233;butante en vb

CYCY07 · Answer

Voil&#224; en fait je voudrais qu'en s&#233;lectionnant dans une combobox le code postal, les champs localit&#233;s et pays s'affichent directement.
Code postal : Choix dans combobox genre 59 000
les textbox localit&#233; et pays se remplissent automatiquement : Lille France
Merci c'est cool je regarderai plus en d&#233;tail ton code demain c'est sympa et je te dirai ce qu'il en est merci bonne nuit

Le must : ce sont les champs de la table TLocalit&#233; qui doivent se rajouter dans ma dbgrid une fois encod&#233;... Voil&#224; o&#249; je me casse le cr&#226;ne...

Thanks
et oui je ne cherche pas le simple pourtant je suis d&#233;butante en vb mais c'est un projet &#224; r&#233;aliser pour mes cours du soir et le prof n'attend pas moins...

CYCY07 · Answer

Salut, j'ai essay&#233; le code mais h&#233;las &#231;a ne va pas... Je commence &#224; d&#233;sesp&#233;rer l&#224;... N'aurais tu pas une autre id&#233;e par hazard??
Je t'en remercie d'avance

aegis_10 · Answer

Salut,



bon je viens de le faire en utilisant un sous-formulaire :



Private Sub combocodepostal_Change()

Dim db As database

Dim Qdfs As QueryDef

Dim sql As String



Dim var_codepostal As String



var_codepostal = combocodepostal.Text



Set db = CurrentDb

If var_codepostal <> "" Then

'ici on construit la requ&#234;te &#224; l'aide de SQL

    sql = "SELECT * FROM Tlocalite
WHERE (((Tlocalite.codepostal)) = " & Chr(39) & var_codepostal
& Chr(39) & ");"

    With db

    For Each Qdfs In .QueryDefs

' on v&#233;rifie que l'objet reqTempLocalite n'existe pas ; si elle existe d&#233;j&#224;, on la supprime      

   If Qdfs.Name = "reqTempLocalite" Then

            .QueryDefs.Delete Qdfs.Name

        End If

    Next Qdfs

'on cr&#233;e la requ&#234;te nomm&#233;e "reqTempLocalite" avec la cha&#238;ne sql

       Set Qdfs = .CreateQueryDef("reqTempLocalite", sql)

     Me.sousformLoc.SourceObject = "Requ&#234;te.reqTempLocalite"

        .Close

    End With

End If

End Sub



ce code utilise les objets querydef de DAO, il faut donc que tu ajoutes
ce composant : dans Outil/references, tu coches Microsoft DAO 3.5 ou
sup.

puis dans ton formulaire, tu dessines un sous-formulaire que j'ai nomm&#233;
sousformLoc dans lequel s'affichera la requ&#234;te qui aura &#233;t&#233; cr&#233;&#233;e suite
au changement de code postal. Il faut bien s&#251;r supprimer la requ&#234;te
nomm&#233;e "reqTempLocalite" sinon lorsque tu choisiras une 2e valeur de
code postal, il y aura erreur : la requ&#234;te "reqTempLocalite" existe
d&#233;j&#224; ; c'est pourquoi je commence par la supprimersi elle existe. 



Si cela ne marche pas, c'est qu'il faut ajuster en fonction de tes
tables, des types de champs etc... par exemple, dans mon code, j'ai
consid&#233;r&#233; le codepostal comme une valeur string, si c'est un num&#233;rique,
il te faudra modifier le type de var_codepostal.



A +

Jongler entre deux tables pour mettre les données de l'une dans l'autre via le f

6 réponses

Discussions similaires