Étape 3 : Remplir la boîte de liste des champs

Pour remplir la zone de liste Champs, insérez le code suivant dans le gestionnaire d’événements Click de lstMain:

Private Sub lstMain_Click()  
    Dim rec As Record  
    Dim rs As Recordset  
    Set rec = New Record  
    Set rs = New Recordset  
    grs.MoveFirst  
    grs.Move lstMain.ListIndex  
    lstDetails.Clear  
    rec.Open grs  
    Select Case rec.RecordType  
        Case adCollectionRecord:  
            Set rs = rec.GetChildren  
            While Not rs.EOF  
                lstDetails.AddItem rs(0)  
                rs.MoveNext  
            Wend  
        Case adSimpleRecord:  
            recFields rec, lstDetails, txtDetails  
  
        Case adStructDoc:  
    End Select  
  
End Sub  

Ce code déclare et instancie les objets Record et Recordset locaux, rec et rs, respectivement.

La ligne correspondant à la ressource sélectionnée dans lstMain est rendue la ligne actuelle de grs. Ensuite, la zone de liste Détails est désactivée et rec est ouverte avec la ligne actuelle de grs comme source.

Si la ressource est un enregistrement de collection, tel que spécifié par RecordType, l'objet Recordset local rs est ouvert sur les enfants du rec. Ensuite, lstDetails est rempli avec les valeurs des lignes de rs.

Si la ressource est un enregistrement simple, recFields est appelée. Pour plus d’informations sur recFields, consultez l’étape suivante.

Aucun code n’est implémenté si la ressource est un document structuré.

Voir aussi

scénario de publication Internet
Étape 2 : Initialiser la boîte de liste principale
Étape 4 : remplir la zone de texte Détails