[VBA DAO] Concatèner deux lignes

Mon problème est le suivant: j'ai une table contenant deux colonnes avec pour titre:
1. Numérotation ( qui n'était pas généré par Autonum)
2. Libellé

Elle peut contenir de 2 à 24 lignes. J'aimerais concatèner en premier lieu deux colonnes pour en former une seule. ça y a pas de problème !!!:D
Mais maintenant j'aimerais concatèner toutes mes lignes de la colonne concatèner pour remplir un champ mémo dans une autre table... et en plus pour chaque ligne un retour à la ligne :cry: et là j'ai beau éplucher tous les bouquins pas de solution !!!
Ex du champ mémo:

1 Bonjour
2 Monsieur
3 Dupont

Qui pourait m'aider ??????

Merci par avance

bonjour,

une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub MonConcat() Dim oDb As DAO.Database Dim oRs As DAO.Recordset Dim sSql As String, sConcat As String   Set oDb = CurrentDb sSql = "SELECT [MonChamp1] & ' ' & [MonChamp2] & Chr(13) & Chr(10) As C From MaTable" Set oRs = oDb.OpenRecordset(sSql, dbOpenForwardOnly)   Do Until oRs.EOF sConcat = sConcat & oRs(0) oRs.MoveNext Loop   Set oRs = oDb.OpenRecordset("MaTableAvecMemo", dbOpenTable) oRs.AddNew oRs![MonMemo] = sConcat oRs.Update   Set oRs = Nothing Set oDb = Nothing End Sub

---

le saut de ligne est chr(13) & chr(10) (constante VbCrLf dans VBA)

Risque que sConcat tronque la concaténation si la chaine concaténée est très longue...
Dans ce cas, si elle atteint une certaine longueur, il faut l'enregistrer dans le memo puis la vider et ainsi de suite.

cordialement,

philippe

Merci pour la réponse. Je vais essayer de ce pas et voir comment cela fonctionne.

Salutations

Raymond

Merci cela fonctionne :D

Salutations

Raymond

Pour Philben,

Tout d'abord merci pour ton code.

Cependant, quand je le teste, cela marche si le champ MonMeno est déclaré comme texte (limité à 255) mais pas comme mémo car à l'arrivée je récupère que le 1er record dans la tableMemo, à moins que cela ne soit juste un problème de visualisation.
Il faut peut être associer un formulaire à cette table pour voir le résultat.

D'autre part, j'aimerais avoir des précisions sur les déclarations suivantes :
As C
dbOpenForwardOnly

A quoi cela correspond exactement ?
d'avance merci

bonjour,

Citation:

---

je récupère que le 1er record dans la tableMemo

---

Il y a un saut de ligne entre chaque record, je pense que les autres enregistrements sont dessous (agrandir la hauteur de ligne) lors de la visualisation de la table.

Citation:

---

D'autre part, j'aimerais avoir des précisions sur les déclarations suivantes :
As C
dbOpenForwardOnly

---

<As C> permet de donner un nom à la colonne créée
<DbOpenForwardOnly> C'est la méthode la plus rapide pour parcourir un recordset mais avec certaines contraintes dont :
- On ne peut parcourir le recordset QU'EN AVANT
- Ne permet pas l'écriture contrairement à DbOpenDynaset
- Certaines propriétés ne sont pas disponibles comme <RecordCount> de mémoire

Cordialement,

Philippe

Tout marche très bien sauf la création de la colonne C.
A plus

bonjour,

quel est le problème avec la colonne C ?

Si besoin, mettez votre code dans le fil de discussion pour vérifier.

cordialement,

philippe

Bonjour,

il ne me créé pas de colonne C .
voir code

Code:

---

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

Set oDb = CurrentDb sSql = "SELECT [prenom] & ' ' & [nom] & Chr(13) & Chr(10) As C From Table1" Set oRs = oDb.OpenRecordset(sSql, dbOpenForwardOnly) Do Until oRs.EOF sConcatM = sConcatM & oRs(0) & "," oRs.MoveNext Loop Set oRs = oDb.OpenRecordset("Table1_memo", dbOpenTable) oRs.AddNew oRs![prenom_nomM] = sConcatM oRs.Update

---

Encore merci

bonjour,

Citation:

---

il ne me créé pas de colonne C .

---

Lorsque je dis qu'un colonne est créée, c'est dans la requête mais pas dans la table !

Faites un debogage pas a pas pour voir le principe.
Normalement ça fonctionne sans problème, si le doute persiste, mettez votre base dans le fil pour vérifier.

cordialement,

Philippe

Ok j'ai compris comment cela marche.
Encore merci

Je cherche le tag Résolu, impossible de le trouver, peut être n'y vois je plus clair ?

Il me fait des erreurs comme quoi il y a un conflit d'écriture !!! :cry:
As-tu peut être la solution comme quoi:
Faut-il fermer le fomulaire ou le champ mémo se trouve ?
Comment actualiser le champ car il m'indique que le champ est effacé et après l'avoir fermé et rouvert, le champ mémo me donne le texte concatèné ?

Qui peut m'aider sur ces deux points car là je suis entrain de me perdre dans mon code !!!!

Merci d'avance !!!