Afficher un champ d'une BD Access dans un Combobox et des champs associés dans dRésolu

Question

Bonjour &#224; tous,

Dans ma BD Access, j'ai une table avec 3 champs: Nom, Cr et Groupe.
J'aimerais choisir le Nom dans un Combobox et afficher le contenu correspondant des 2 autres champs dans 2 TextBox.
Et l&#224;, je s&#233;che...

Le bout de code ci-dessous fonctionne correctement pour remplir ma combobox

Private Sub Form_Load()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=C:\MaBase.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Employes", adoConnection


    Do Until adoRecordSet.EOF
        CbxIdentite.AddItem adoRecordSet!Nom
        CbxIdentite.ListIndex = 0
        adoRecordSet.MoveNext
    Loop


adoRecordSet.Close
adoConnection.Close


Set adoConnection = Nothing
Set adoRecordSet = Nothing


End Sub

merci pour votre aide

P__ROMEO · Accepted Answer

Encore un truc, Le chemin de la base aussi est celui de ma base a moi. donc, en fin de conte,
ne fais pas un copi&#233; coll&#233;, mais, suis la m&#233;thode et adapte a ton cas.

J'esp&#232;re d'avoir aid&#233;. si non, repose ton probl&#232;me.
A+

P__ROMEO · Answer

Salut. 
voici un exemple, ou tu prends tes informations de la table Navire. adapte le a ta base.
et, dans mon cas, sur ton formulaire, il doit y avoir 2 champ text, Nom&#233;s TxtCr, et TxtGroupe.
Maintenant, Rst!Cr, ce n'es que le nom du champ dans ta table, adapte le aussi. (Rst! + Nom)

Private Sub CbxIdentite_Change()
   Dim Cnn As New ADODB.Connection
   Dim Rst As New ADODB.Recordset


    ' Ouverture de la connection
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source= .\Base de donn&#233;e\Introx Manut.mdb;"
    
    ' Ouverture du Recordset
    Rst.Open "SELECT * FROM [Navire] WHERE Nom= '" & Me.CbxIdentite & "'", Cnn
    
    If Not Rst.EOF Then
            ' Sp&#233;cification des valeurs des champs
            TxtCr = Rst!Cr
            TxtGroupe = Rst!Groupe
   else
            msgbox "Pas d'enregistrement"
   end if

    ' Fermeture du Recordset
     Rst.Close
            
    ' Fermeture de la connection
     Cnn.Close


End Sub

cs_Quomodo · Answer

Hello boy,

Merci beaucoup de ton aide. J'ai modifi&#233; simplement l'&#233;v&#233;nement. Au lieu de cbxIdentite_Change () j'ai mis cbxIdentite_Click() parce que c'est cela que je voulais.
Encore merci.

P__ROMEO · Answer

Bonsoir.


Content de t'avoir aid&#233;. bonne continuation.
A+

Afficher un champ d'une BD Access dans un Combobox et des champs associés dans d

4 réponses

Discussions similaires