Come accedere Subform dati

November 10

Come accedere Subform dati


Sapendo come aggiungere i dati e poi leggere utilizzando un formulario secondario consente di risparmiare tempo quando si ha bisogno di manipolare ulteriormente i dati in un database di Access. Access è un sistema di gestione di database relazionali spesso utilizzato per creare database locali. Un sottomodulo è una forma all'interno di un'altra forma, spesso utilizzato per visualizzare i dati da una tabella diversa rispetto alla forma principale. Un modulo è utilizzato per progettare un'interfaccia utente grafica e ti dà la possibilità di utilizzare Visual Basic, Applications, o VBA, per l'automazione. VBA è un linguaggio di programmazione utilizzato nelle applicazioni Microsoft Office.

istruzione

1 Aprire il database Northwind di Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office.

2 Selezionare la scheda "Crea" e selezionare "Form Design" per creare un nuovo modulo. Fare clic su "Sottomaschera / sottoreport" nel riquadro Controls, poi a sinistra del mouse il modulo e trascinare per creare un nuovo controllo di sottomaschera. Aggiungere un nuovo controllo pulsante stesso modo.

3 Fare clic con il subform per visualizzare la "Finestra delle proprietà." Fare clic sulla scheda "Dati" e accanto a oggetto di origine, selezionare "Table.Suppliers."

4 Fare clic con il subform per visualizzare la finestra delle proprietà. Fare clic sulla scheda "Evento", e accanto a Al clic, selezionare "[Routine evento]" per aprire la finestra di Microsoft Visual Basic.

5 Digitare la seguente per accedere ai dati sottomaschera e visualizzare i risultati delle prime tre colonne, attraverso la finestra immediata:

Private Sub Command2_Click ()

Dim tmpString As String

Dim primo Come DAO.Recordset

Set rst = Me.Child0.Form.Recordset

rst.MoveFirst

Mentre non rst.EOF

tmpString = rst.Fields(1).Value & "|"

tmpString = tmpString & rst.Fields (2) .Value & "|"

tmpString = tmpString & rst.Fields (3) .Value

Debug.Print tmpString

rst.MoveNext

Wend

End Sub