extraire en VBA données d'une query

Bonjour,

j'ai retravaillé à ma façon une démo intéressante trouvée sur le net pour extraire les données relatives aux codes postaux mais je coince :-)
Le processus de recherche m'amène à l'affichage d'une query mentionnant toutes les communes ayant le même CP.

Jusque là très bien mais je n'arrive pas (je suis assez faible en vba..) à extraire les informations relatives à l'enregistrement qui m'intéresse.

Je pensais demander à VBA de se positionner sur l'enregistrement qui m'intéresse et ensuite extraire les données mais là impossible pour moi d'y parvenir.

Si quelqu'un peut m'aider je l'en remercie vivement
Prosper02

bonjour,

Citation:

---

Le processus de recherche m'amène à l'affichage d'une query mentionnant toutes les communes ayant le même CP.

---

peux-tu poster le code SQL et afficher un exemple du résultat obtenu ?

Bonjour Tee_Grandbois,

merci pour la réaction, voici les info's demandées

Code:

---

1 2 3

SELECT liste_rues.STRAATNM, liste_rues.STRAATNM2, liste_rues.SUBSTRNM, table_City.Localite, table_City.CodePostal, table_Country.Pays FROM liste_rues INNER JOIN (table_City INNER JOIN table_Country ON table_City.Country_FK = table_Country.Country_PK) ON liste_rues.PKANCODE = table_City.CodePostal WHERE (((liste_rues.STRAATNM)=[Forms]![Extraction_rues]![moteur_rue]));

---

et le résultat de l'affichage du résultat où dans le cas présent je souhaiterais faire le choix de la commune qui m'intéresse et donc récupérer les données.

Pièce jointe 540386

Prosper02

Citation:

---

je n'arrive pas (je suis assez faible en vba..) à extraire les informations relatives à l'enregistrement qui m'intéresse.

---

- il faudrait préciser ce que tu entends par "extraire"
- sinon, si c'est pour afficher il faudrait créer un sous-formulaire continu en mettant la requête comme source de ce sous-formulaire, puis, en cliquant sur l'enregistrement souhaité ouvrir un autre formulaire qui s'ouvrira grâce à l'identifiant de l'enregistrement sélectionné.
Le code ressemblerait à ça (par exemple, sur clic de l'identifiant du sous-formulaire):

Code:

---

1 2 3

Private Sub Identifiant_Click() DoCmd.OpenForm "NomduFormulaireAOuvrir", , , "Identifiant=" & Me.Identifiant End Sub

---

Reprenons la copie d'écran
Arrivé à ce stade, je souhaite par exemple récupérer les informations reprises dans l'enregistrement où se trouve indiqué la commune "Wanze".

Citation:

---

Envoyé par prosper02

je souhaite par exemple récupérer les informations reprises dans l'enregistrement où se trouve indiqué la commune "Wanze"

---

cela ne répond pas vraiment à ma question, même si j'ai bien compris que tu veux récupérer un ligne de la sélection, mais pour en faire quoi: l'afficher (comme dans mon exemple), l'imprimer, l'exporter, un autre usage ... ?

Je souhaite récupérer ces données afin de compléter un fichier client qui au cours de l'encodage d'une nouvelle donnée va faire appel à cet écran.
L'objectif étant de disposer de données correctes et de limiter les erreurs d'encodage.

Bonjour,

je reviens après un peu d'absence car j'ai dû me consacrer à d'autres activités et je continue à bloquer sur ce point.

Pas de réponse pour moi ou n'ai-je pas été assez clair dans ma demande ?

Je place ci-après une copie d'écran de là où je suis arrivé et donc mon souhait est de récupérer les données de rue et de localité dans des variables de façon à pouvoir les intégrer dans l'adresse de la facture que je souhaite établir.

Pièce jointe 545059

merci à vous
Prosper2

Bonjour,

Peut-être que cette proposition peut t'amener à tes fins...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub DetailLigne(ByVal Commune As String) Dim SQL As String Dim oRS As DAO.Recordset SQL = "SELECT R.STRAATNM, R.STRAATNM2, R.SUBSTRNM, C.Localite, C.CodePostal, P.Pays FROM liste_rues R INNER JOIN (table_City C INNER JOIN P ON C.Country_FK = P.Country_PK) ON R.PKANCODE = C.CodePostal WHERE R.STRAATNM='" & Commune & "';" Set oRS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset) With oRS If Not .EOF Then MsgBox "J'ai trouvé :" & vbCrLf & "C'est " & .Fields("STRAATNM").Value & vbCrLf & "avec comme code postal " & .Fields("CodePostal").Value & vbCrLf & "et ça se trouve en " & .Fields("Pays").Value, vbInformation, "C'est OK" Else MsgBox "Bah, il n'y a aucun enregistrement existant sur le commune " & Commune & " !", vbExclamation, "Dommage" End If oRS.Close Set oRS = Nothing End With End Sub

---

que tu appliques à un bouton nommée btnTrouverDetailMoteurRue comme suit, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub btnTrouverDetailMoteurRue_Click() Dim strVille As String ' Défini la valeur de la commune strVille = Nz(Me!NomCommune, "") If strVille <> "" Then 'appel la procédure Call DetailLigne(strVille) End If End Sub

---

Argy

Bonjour Argygonet

là franchement, je suis vraiment ravi de ta réaction car je suis persuadé que cela va m'aider à mieux appréhender les recordset qui sont pour moi un véritable casse-tête et ce même après avoir lu et relu le tuto de Christophe Warin qui est pourtant super bien fait.
je teste la solution et donne du retour au plus vite

Prosper02

Bonjour à tous,

j'ai bien avancé grâce aux explications données mais reste un problème.
lorsque je veux copier les noms de rue dans une table cela marche impeccablement sauf lorsqu'une apostrophe vient à se présenter

J'ai déjà parcouru des tonnes de pages internet sans succès

voici le code utilisé:

Code:

---

requete = "INSERT INTO recherche_rue (indicateur_rues) VALUES ('" & rue & "')"

---

si vous avez une idée pour résoudre ce problème sahant que je souhaite conserver l'apostrophe

merci !!

bonjour,
il faut doubler l'apostrophe avec Replace si il y en a une:

Code:

---

requete = "INSERT INTO recherche_rue (indicateur_rues) VALUES ('" & Replace(rue, "'", "''") & "')"

---

Super, cela fonctionne parfaitement

Merci à toi

Super.
Pense à clore la discussion: :resolu: