bonjour,
dans un datacombo j'ai une liste de noms recupéré à partir d'une table.
lorsque je selectionne un nom, qui est en double dans la liste (meme nom, mais pas meme adresse, ex: MAIRIE), j'ai le msg d'erreur : "espace de pile insuffisant": car il ne fait pas la distinction entre les differente mairie.
dans ca cas, ce k'il faudrai c'est ke lorsque je selectionne un nom qui existe dejà dans ma liste du datacombo, que celui ci pour le distinguer des autres, recupere le numero du client dans le nom (dans le datacombo). Comme ca je n'aurai plus ce pb. c'est pour ca ke je veux faire un colonne cachée dans mon datacombo avec le code du client ("code" dans ma table).
voici mon code:
Code :
- Private Sub DataCombo5_Click(Area As Integer)
- 'permet d'eviter les problemes d'apostrophe dans le nom
- DataCombo5 = Replace(DataCombo5, "'", "''" )
- 'Alimente le datacombo 5
- Set DataCombo5.RowSource = rscli
- DataCombo5.ListField = "FacNom" 'Nom des clients
- 'fait le filtre pour trouver les info du nom selectionné dans le datacombo
- If DataCombo5.Text <> "" Then
- rscli.Filter = "FacNom like '" & DataCombo5.Text & "%'"
- End If
-
- On Error Resume Next
- If Err = 28 Then
- DataCombo5.BoundColumn = "code"
- rscli.Filter = "code like '" & DataCombo5.BoundText & "%'"
- End If
- 'Recupere les données de la requete sqlCli pour les mettre dans les textbox
- adrcli.Text = rscli("FacAdr" )
- codecli.Text = rscli("code" )
- cpcli.Text = rscli("FacCp" )
- villecli.Text = rscli("FacVille" )
- telcli.Text = rscli("FacTel" )
- telcopcli.Text = rscli("FacFax" )
|
si vous avez une idée...faites moi signe!c'est au niveau du filtre du code ke ca ne marche pas, je n'arrive pas a cacher le code dans le datacombo, j'ai pourtant mis dans la propriété boundcolumn: code: 
