Remplir des Textbox par les champs du BDD Access aprés séléction dans une combobRésolu

Question

Bonjour &#224; tous,
voil&#224; j'ai un soucis avec une combobox li&#233; &#224; une base de donn&#233;e.
Donc j'ai une connection ADO &#224; la table sur le onload de ma fenetre. Ma connection ADO &#233;tant param&#233;tr&#233; dans un module.
Je suis conn&#233;ct&#233; a une table esclave d'une autre. Table maitre Client, table esclave Poste. 
Sur la fen&#234;tre pr&#233;c&#233;dente de mon appli j'ai s&#233;l&#233;ctionn&#233; le client et remplis un variable pour le garder en m&#233;moire.
Sur mon on load je remplis ma combobox de la mani&#232;re suivante:
Private Sub Form_Load()


Combo12.Text = ""
Connect "/anta.mdb", "Poste", "Nom"
Label1.Caption = "Gestion des Informations sur des Postes de " & GStrNomC


Do While Not resultatADO.EOF
If resultatADO!id_client = GIntIdClient Then
Combo12.AddItem (resultatADO!Nom)
End If


resultatADO.MoveNext
Loop



End Sub
Ma From est remplis de champs contenant les infos des Postes. Je souhaite que quand je s&#233;l&#233;ctionne un poste dans la combobox, il remplisse les champs des infos qui y corresponde.
Pour l'instant j'ai fait &#231;a:

Private Sub Combo12_Click()
resultatADO.MoveFirst
Do While resultatADO.EOFIf resultatADO!id_client GIntIdClient & resultatADO!Nom Combo12.Text Then
GIntIdPoste = resultatADO!id_poste
Text1.Text = resultatADO!Nom
Text7.Text = resultatADO!Utilisateur
Text8.Text = resultatADO!IP
Text9.Text = resultatADO!Modele
Text11.Text = resultatADO!VNC
Text14.Text = resultatADO!Logiciel
Text15.Text = resultatADO!Date
Combo1.Text = resultatADO!Type
Combo2.Text = resultatADO!Marque
Combo3.Text = resultatADO!Processeur
Combo4.Text = resultatADO!Frequence
Combo5.Text = resultatADO!RAM
Combo6.Text = resultatADO!Disque
Combo7.Text = resultatADO!OS
Combo8.Text = resultatADO!Sauvegarde
Combo9.Text = resultatADO!Antivirus
Combo10.Text = resultatADO!Garantie
Combo11.Text = resultatADO!Ecran
End If
resultatADO.MoveNext
Loop
End Sub
Mais rien ne se passe et quand je suis le parcour de l'appli elle ne d&#233;passe pas le If.
J'ai essay&#233; d'autre m&#233;thode mais aucune n'a &#233;t&#233; fructueuse, est ce que quelqu'un aurait une solution pour moi svp, cela me redrait bien service.

cs_Jack · Accepted Answer

Salut
"Elle ne d&#233;passe pas le If" : &#231;a veut dire quoi ?
Je suppose que &#231;a veut dire que le programme bug et qu'il te rend la main avec une erreur.
Tu aurais pu nous dire laquelle.
Heureusement qu'on a un peu de patience ...If resultatADO!id_client GIntIdClient  &  resultatADO!Nom  Combo12.Text ThenIf resultatADO!id_client GIntIdClient And resultatADO!Nom Combo12.Text Then

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Dalool · Answer

Excuse moi, j'aurais du pr&#233;ciser que je n'avais aucun message d'erreur, en fait il ne se passez rien. Donc j'ai fais du pas &#224; pas en mettant des arr&#234;ts sur mon code. Et je n'avais aucun retour apr&#233;s la ligne 4, l&#224; ou y a mon If.
En tout cas merci pour la r&#233;ponse, cela fonctionne imp&#233;cable maintenant.

Remplir des Textbox par les champs du BDD Access aprés séléction dans une combob

2 réponses

Discussions similaires