probleme d'homonyme avec combobox et access

Question

j'ai une base de donnee ou j'enregistre nom de client et numero de client et l'adresse
je fais le choix avec une combo box et j'affiche le resultat dans une list box
mais j'ai un souci en cas d'homonyme
il ne me remonte dans la list box les 2 numero de client
comment faire pour n'obtenir en cas d'homonyme que les informations numero client et adresse lie a l'enregistrement ou jai clique
 voici mon code
   sql "SELECT * FROM bseclient WHERE cli'" & Replace(Combo1.Text, "'", "''") & "'"
        Set rs = db.OpenRecordset(sql, dbOpenDynaset)
        List1.Clear
        For i = 1 To rs.RecordCount
        
        List1.AddItem (rs.Fields("numclient"))
        numeroclient = (rs.Fields("numclient"))
        rs.MoveNext
        Next

en supprimant la boucle il ne me reprend toujours que le premier

merci d'avance de votre aide

PCPT · Answer

il ne doit pas y avoir de doublon sur un num&#233;ro servant d'identifiant.
a moins d'avoir mal compris ton probl&#232;me, sinon, il n'a pas lieu d'exister !
(pas tr&#232;s fran&#231;ais comme phrase &#231;&#224;...)
PCPT

choupi64 · Answer

D'après ce que j'ai compris le probleme d'homonymie et sur le nom du client et non son numero d'enregistrement.

Zlub · Answer

Salut cliclic1234,

Tu peux affecter l'identifiant dans l'itemData, je m'explique : lors du chargement des valeurs depuis la base

      

      cbo.AddItem rs("NomClient").Value

      cbo.ItemData(cbo.ListCount-1) = Val(rs("IdClient"))



du coups des que l'utilisateur selectionne un client, tu as direct acces &#224; l'id de ce dernier



Debug.Print get_itemdata(NomDeTaCombo)




avec 



Public Function get_itemdata(cbo As ComboBox) As Integer: get_itemdata = cbo.ItemData(cbo.ListIndex): End Function



Public Sub select_from_itemdata(cbo As ComboBox, ByVal id As Integer)

  Dim i As Integer

  Dim Max As Integer

  Max = cbo.ListCount

  For i = 0 To Max

    If cbo.ItemData(i) = id Then

      cbo.ListIndex = i

      Exit Sub

    End If

  Next i

  cbo.ListIndex = 0

End Sub


Comme &#231;a tu as bien le bon Identifiant associ&#233; au bon client ...
Les donn&#233;es sont donc coh&#233;rentes, mais &#231;a d&#233;place le probleme d'homonyme
... je sais pas si &#231;a te vas ...



Tu peux empecher les homonymes avant d'inserer en base, en v&#233;rifiant
qu'aucun client n'existe sous ce nom l&#224;... ou alors ajouter une info en
plus dans la combo: par exemple, le pr&#233;nom du client ...


++

Zlub


<hr size="2" width="100%">

cliclic1234 · Answer

Merci de votre aide
mais cela ne marche pas
j'ai deja fait l'interdiction de creer un client qui existe mais il s'agit de reimplanter une base existante
n'y as t'il pas un moyen plus simple de recuperer le numero de client lie au champ ou l'on clique
Merci encore de votre aide

Zlub · Answer

Salut cliclic1234,


Plus simple ? je trouve pas &#231;a complexe : 3 lignes pour r&#233;soudre ton probleme ...



J'ai pas tout compris &#224; ton dernier post : reimplanter une base existante ???





Si ta base n'as pas de doublons, et que tu veux stocker les champs dans
une combo : lors du chargement des valeurs dans la combo (nomm&#233;e cbo) -
si t'as une table Clients avec idClient et NomClient :



      cbo.AddItem rs("NomClient").Value
       cbo.ItemData(cbo.ListCount-1) = Val(rs("IdClient"))




et lors du click pour avoir l'id 



    id = get_itemdata(cbo)



L'utilisation de l'itemData permettant de stocker l'id de la personne,
te permettras d'&#233;conomiser une requ&#234;te SQl de selection (celle pour
r&#233;cup&#233;rer l'id du client) ...



la fonction select_from_itemdata c'est du Bonus ... au cas o&#249; mais pas directement li&#233;e &#224; ton probleme.





Bref, cette solution fonctionne tres bien ... maintenant, si &#231;a ne
r&#233;pond pas &#224; ton probleme, essais de m'expliquer un peu plus
longuement, se que tu veux faire, et o&#249; &#231;a pose probl&#232;me ...




++

Zlub

Probleme d'homonyme avec combobox et access

5 réponses

Discussions similaires