Etapa 3: Preencher a caixa de listagem de campos

Para preencher a caixa de listagem Fields, insira o seguinte código no manipulador de eventos 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  

Esse código declara e instancia objetos locais Record e Recordset, rec e rs, respectivamente.

A linha correspondente ao recurso selecionado em lstMain é feita na linha atual de grs. Em seguida, a caixa de listagem Details é desmarcada e rec é aberta com a linha atual de grs como a origem.

Se o recurso for um registro de coleção, conforme especificado por RecordType, o Recordset rs local será aberto nos filhos do recurso. Em seguida, lstDetails é preenchido com os valores das linhas de rs.

Se o recurso for um registro simples, recFields será chamado. Para obter mais informações sobre recFields, confira a próxima etapa.

Nenhum código será implementado se o recurso for um documento estruturado.

Consulte Também

Cenário de publicação na Internet
Etapa 2: Inicializar a caixa de listagem principal
Etapa 4: Preencher a caixa de texto de detalhes