Microsoft Office Access is een relationele database management systeem vaak gebruikt voor kleinere en lokale databases . Toegang is inbegrepen in de Microsoft Office suite en biedt alle tools die nodig zijn om een relationele database te beheren . Een query wordt gebruikt om gegevens uit de database tabellen halen . Extraheren van nummers uit een Access- query wordt bereikt op dezelfde manier zou je andere soorten gegevens kan opvragen. Een manier om gegevens te extraheren is met behulp van Visual Basic for Applications . In een paar stappen kunt u VBA-code schrijven , extraheren nummers van een query , en deze weergeven in de output venster . Wat je nodig hebt
Microsoft Office Access
database Noordenwind
Toon Meer Aanwijzingen
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite .
Klik 2 " Database Extra " en selecteer vervolgens " Visual Basic " om de Microsoft Visual Basic venster te openen . Klik op het menu "Invoegen " en selecteer " Module . "
Kopieer 3 en plak de volgende code in uw nieuwe module op de " Producten " table opvragen en haal de getallen in het " opnieuw ordenen level "-veld van meer dan 15 : Private Sub extractNumbers
( ) Dim strSQL
als Koord Dim rst
als Recordset
Dim dbs Als Database < br Set > dbs = CurrentDb strSQL
= "SELECT producten . [Naam ] , producten . [ Reorder Level ] "
strSQL = strSQL & " FROM producten "
strSQL = strSQL & " WHERE ( ( ( producten. [ Reorder Level ] ) > 15 ) ) ; "
Set rst = dbs.OpenRecordset ( strSQL ) rst.MoveLast
< br rst.MoveFirst Debug.Print > Nieuws " Opnieuw ordenen Level > 15 : "
Do While Not rst.EOF Debug.Print " Naam product bestellen: " & rst.Fields ( 0 ) Value Debug.Print
. " " Debug.Print
" Reorder niveau nummer : " . & rst.Fields ( 1 ) Waarde
rst.MoveNext
Loop
End Sub
|
