cacher une colonne de datacombo

cacher une colonne de datacombo - VB/VBA/VBS - Programmation

Marsh Posté le 26-01-2005 à 11:49:26    

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 :
  1. Private Sub DataCombo5_Click(Area As Integer)
  2. 'permet d'eviter les problemes d'apostrophe dans le nom
  3. DataCombo5 = Replace(DataCombo5, "'", "''" )
  5. 'Alimente le datacombo 5
  6. Set DataCombo5.RowSource = rscli
  7. DataCombo5.ListField = "FacNom"  'Nom des clients
  9. 'fait le filtre pour trouver les info du nom selectionné dans le datacombo
  10. If DataCombo5.Text <> "" Then 
  11. rscli.Filter = "FacNom like '" & DataCombo5.Text & "%'"
  12. End If
  13.  
  14.   On Error Resume Next
  15.    If Err = 28 Then
  16.    DataCombo5.BoundColumn = "code"
  17.    rscli.Filter = "code like '" & DataCombo5.BoundText & "%'"
  18.    End If
  19. 'Recupere les données de la requete sqlCli pour les mettre dans les textbox
  20. adrcli.Text = rscli("FacAdr" )
  21. codecli.Text = rscli("code" )
  22. cpcli.Text = rscli("FacCp" )
  23. villecli.Text = rscli("FacVille" )
  24. telcli.Text = rscli("FacTel" )
  25. 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: :??:

Reply

Marsh Posté le 26-01-2005 à 11:49:26   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed