Discussion :

[laurent35]

Bonjour,

J'ai déjà posé cette question voilà un bon moment et je ne retrouve plus la réponse. Je m'en excuse auprès de ceux qui m'avaient donnés la réponse.

Je souhaite afficher dans un état le résultat d'un champ "à la queue leu leu" et non pas avec un retour chariot.
En clair, afficher : xxx, yyyy, zzzzz
et non pas
xxxxx
yyyyy
zzzzzz

Est-ce qu'il y a un moyen simple de pouvoir effectuer cette opération. Si vous aviez un exemple, je suis preneur.

Merci de votre aide,

Laurent

[cafeine]

Hello,

ta problèmatique est traitée dans la rubrique sources.

[laurent35]

Désolé, Mille merci !

Laurent

[laurent35]

Bonjour,

Je viens d'essayer cet exemple. j'ai un soucis avec le module.
J'ai l'erreur suivante dans une boite de dioalogue :

"Erreur de compilation : type defini par l utilisateur non defini".

Je ne comprends ce qu'il passe ? :-)

Une aide possible ?
Merci

Laurent

[cafeine]

Il va nous falloir ton code pour trouver l'erreur, et que tu nous précises sur quelle ligne se trouve le bug.

[laurent35]

Il s'agit du code de l'exemple figurant dans la rubrique "sources".
Le bugs est à la deuxième ligne.

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
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function

Merci pour votre aide.
Laurent

[cafeine]

Ok,

il faut que tu ajoutes à ton projet la référence DAO.

si tu ne sais pas comment faire, une recherche sur les sources / tutos / faq / forum devrait couvrir ce point.

[laurent35]

Bonjour,

Effectivement, j'avais oublié de mettre la référence ADO. J'ai effectuer l'opération.
Par contre, j'ai un nouveau code erreur que je ne comprends pas :
"erreur d'éxecution 3465. Type de données incompatible dans l'expressio du critère". A la 6eme ligne :

Code :

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

Set res = CurrentDb.OpenRecordset(SQL)

Merci de votre aide.

Laurent

[cafeine]

DAO (D - A - O )

et pas ADO ...

[laurent35]

J'ai écris DAO mais il faut bien lire ADO, désolé.

Mais j'ai toujours le même code d'erreur. En fait, j'essai de refaire exactement la même chose que ce qui est écrit que le tutorial...

Est-ce que quelqu'un peut m'aider ?
Merci de vos conseils.

Laurent

[pgz]

Bonjour

dans l'expression

Code :

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

SQL = "SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet

Le deuxième Projet désigne une variable. Tu l'as déclarée? Tu lui as donné une valeur.
SI tu as un doute, tu peux ajouter devant cette ligne de code

Code :

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

MsgBox Projet

Au cas ou Projet serait une chaîne de caractères, il faut écrire

Code :

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

SQL = "SELECT NomParticipant FROM Tbl_Projet WHERE Projet= '" & Projet & "'"

Bonne chance,

pgz

[Tofalu]

J'ai écris DAO mais il faut bien lire ADO, désolé.

Il faut la référence DAO