Discussion :

[dav872]

Bonjour,

J'ai trouvé sur ce forum une fonction qui me permet de concaténer des données provenant d'un champ précis d'une table et qui fonctionne à merveille mais, si le résultat est supérieur à 255 caractères, ça ne marche plus.
Est-il possible ? comment ? d'augmenter le nombre de caractères au-delà de 255

Ainsi, dans ma requête, champ Recuplivre, je dois retrouver tous mes numéros d'articles correspondant sans bloquer à 255 caractères.
Je joins un exemple pour mieux comprendre

Merci pour votre aide


appel de la fonction dans ma requête :

Champ
produits_livres : Recuplivre([code vendeur])

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Function Recuplivre(produits_livres As String) As String
 
 
 
Dim res As DAO.Recordset
Dim Sql As String
 
On Error Resume Next
 
'selectionne les articles livres par code vendeur
'chr34 correspond a des guillements pour encadrer le texte
 Sql = "SELECT numero de produit FROM table detail livraison Where [code vendeur]=" & Chr(34) & produits_livres & Chr(34)
 
 
 Set res = CurrentDb.OpenRecordset(Sql)
'Concatene les différents enregistrement
 While Not res.EOF
    Recuplivre = Recuplivre & res.Fields(0).Value & ";"
    res.MoveNext
Wend
'Enleve le dernier ;
Recuplivre = Left(Recuplivre, Len(Recuplivre) - 1)
'libere la mémoire
Set res = Nothing
 
   End Function

detail_probleme.xlsxdetail_probleme.xlsxdetail_probleme.xlsx

[loufab]

Bonjour,

La colonne de destination soit être du type Texte Long (anciennement Mémo).

Cordialement,

[Thumb down]

Bonsoir,
Je serais fort étonné si ta requête fonction ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Sql = "SELECT [numero de produit] FROM [table detail livraison] Where [code vendeur]='" & produits_livres & "'"

Élèves ce vilain on error!
Et donnes nous le message d'erreur !

[dav872]

Bonjour et merci à tous les deux pour votre aide,

Pour Loufab : effectivement, ça va mieux

à la base, mes données sources sont issues d'une fichier excel lié et, j'ai fais une requête création de table(qui me met par défaut texte court) de ces données afin d’exécuter ma requête car beaucoup plus rapide qu'avec la table liée.(mais pas plus loin que 255 caractères)

Comment, peut on changer le type de données avec ce type de requête ? vba ?

Pour Thumb Down : on error supprimé et pas d'erreurs remontées

Merci encore pour votre aide

[Thumb down]

Bonjour,
Comment ta requête peut elle fonctionner avec des espaces dans le nom des champs et de table si tu ne les mets pas entre [crochets]?

De plus je ne vois pas le rapport entre la concaténation d'un string avec la taille des champs !

Si d'aventure tu avais une valeur supérieure à 255 dans excel,elle serait tronqué car DAO calcul la taille des champs en fonction des 8 première lignes {voir 3 selon les versions}.

Pour corriger le titre il faudrait inséré en ligne 2 une ligne bidons dans ton fichier excel avec plus de 255 carataires dans la bonne colonne.

[dav872]

Ça y est, j'ai trouvé grâce à vos remarques !

Je suis également surpris mais sans mise en crochets ça fonctionnait aussi.

Du coup, j'ai crée une table vierge avec le type de données qui me convient(et longueur du format pour mon cas=>texte long) et j'alimente cette dernière via une requête ajout et plus de soucis.

[deedolith]

Salut,

Plutôt que d'altérer ton fichier source (ce qui n'est pas très propre), as-tu essayé avec ADO ?

Ou solution ultime:
Enregistre ton classeur en CSV, puis via ADO, ouvre une connexion en fournissant un fichier Schema.ini, qui contiendra la définition des colonnes.