Weten hoe u met Visual Basic for Applications ( VBA ) te gebruiken bij het werken met Microsoft Access kunt u tijd besparen wanneer u nodig hebt om inhoud weer te geven in een database tabel . U kunt de inhoud van een database tabel te halen met behulp van een Recordset-object . Recordsets bestaan uit records (rijen ) en velden ( kolommen ) . Ze geven je de flexibiliteit om gegevens in een tabel weergegeven of te manipuleren . Een " Voor Loop" kan worden gebruikt voor het doorlussen van elk veld en record in een database tabel . Wat je nodig hebt
Access- database Noordenwind
Toon Meer Aanwijzingen
1 Start de Noordenwind 2007-database en klik op ' Hulpmiddelen voor databases . " Klik op " Visual Basic " om de Visual Basic -venster Microsoft opent . Klik op het menu "Invoegen" en klik
Type 2 het volgende om een nieuwe procedure te voeren creëren " Module . " : Private Sub stepThroughFields
( ) op on Error GoTo Err_stepThroughFields :
Type 3 de volgende variabelen gebruikt om de tabel Orders lezen te maken: Dim dbs
Als Database Dim rst
als recordset Dim rcrdCnt
als Geheel Dim fldCnt
als Geheel
Type 4 het volgende om de database te definiëren om te gebruiken : Set
dbs = CurrentDb
5 Typ het volgende om een nieuwe RecordSet met behulp van de tabel Orders openen :
Set rst = dbs.OpenRecordset ( "Orders " )
6 Typ het volgende om lus door elk veld in de tabel en geef de naam :
fldCnt = 0 Om rst.Fields.Count - 1 Debug.Print rst.Fields
( fldCnt ) . Naam
volgende fldCnt
Type 7 het volgende aan lus door alle velden in elke rij van de tabel en geeft de inhoud ervan : rst.MoveFirst
< br > rcrdCnt = 0 Om rst.RecordCount - 1
fldCnt = 0 To rst.Fields.Count - . 1
Debug.Print rst.Fields ( fldCnt ) Value
volgende fldCnt rst.MoveNext
volgende rcrdCnt
Type 8 de volgende variabelen te bevrijden van het geheugen :
rst.Close
dbs.Close
type 9 de volgende om uw procedure te beëindigen en vangen eventuele fouten : Exit_stepThroughFields
: Exit Sub
Err_stepThroughFields
: MsgBox Err.Description Resume
' Exit_stepThroughFields : End Sub Druk op " F5 "
om uw procedure uitvoeren en weergave veld informatie .
|
