Probleme VBA ACCESS Listbox Additem

Question

Bonjour tout le monde,

Le probleme que je rencontre est que dans mon Additem de ma Listbox, les virgules et les points-virgules sont remplaces par des retraits a la ligne.

Alors que je veux mon additem sur une seule ligne.

Je vous laisse decouvrir mon code qui s execute lors d un after update d une combobox dans Access : 

Dim oRst As DAO.Recordset

Dim oDb As DAO.Database

Dim oFld As DAO.Field

Dim oSql As String

' Ouverture de la base de données

Set oDb = CurrentDb
oSql "SELECT CDRUBR, CDSTDO, CDINFO FROM Gael_3 WHERE CDSCCO '" & Combo2.Value & "' "

' Ouverture du recordset

Set oRst = oDb.OpenRecordset(oSql, dbOpenForwardOnly, dbReadOnly)

'Tant que non fin du recordset

While Not oRst.EOF

List12.AddItem "SELECT " + oRst.Fields("CDRUBR").Value + ", COUNT (*) FROM " + Kvalenv + "1DBO." + oRst.Fields("CDSTDO").Value + "" + oRst.Fields("CDINFO").Value + " WHERE " + oRst.Fields("CDRUBR").Value + " = 'old code' GROUP BY " + oRst.Fields("CDRUBR").Value + " ;"

'Passer au suivant

oRst.MoveNext

Wend

Merci d avance,

cs_MPi · Answer

Change les  +  par des  &  et regarde ce que ça donne.

MPi

Gael76000 · Answer

Cela aboutit au meme resultat avec les &, j obtiens un retrait de ligne. C est bizarre quand meme ce probleme. 

Je te remercie de m etre pencher sur mon probleme.

bricoyeye · Answer

Salut,
Regarde dans les propriétés de ta listview, et à view, mets ivwlist, c'est le 2.
Il n'y a aucune raison que çà ne marche pas!

Probleme VBA ACCESS Listbox Additem

3 réponses

Votre réponse

Discussions similaires