Weten hoe te programmeren in Microsoft Office Access 2007 kunt u tijd besparen wanneer u nodig hebt om routinematige taken, zoals het maken van tabellen en het handmatig toevoegen van gegevens uit te voeren . Access is een relationele database management systeem vaak gebruikt voor kleinere lokale databases . Het biedt de tools voor Visual Basic for Applications ( VBA ) om handmatige processen te automatiseren schrijven . VBA is een programmeertaal die door Microsoft . In een paar stappen kunt u VBA code om een tabel te maken , de gegevens toe te voegen en weer te geven van de inhoud door middel van een keuzelijst te schrijven . Instructies
1 Open Microsoft Office Access 2007 en selecteer vervolgens " Lege database . " Klik op "Create . " Kopen van 2 Klik op het tabblad "Create " en selecteer " Form Design" naar een nieuw formulier te maken . Selecteer de " Button " controle in het kader van de " Controls " venster . Klik op het formulier en maak de nieuwe knop drukt terwijl de linker knop van uw muis houden . Voeg een " List Box" controle op het formulier op dezelfde manier als de knop toegevoegd .
3 Rechtsklik op de keuzelijst en kies 'Eigenschappen'. Op de " Eigenschappenvenster ", klikt u op het tabblad "Gegevens" en selecteer de drop - down box op " Row Source Type" en selecteer " Value List . "
4 de rechtermuisknop op de nieuwe knop en "Eigenschappen " te selecteren. Op " Property Sheet " klikt u op het tabblad " Event " en selecteer de drop-down box naast " On Click " en selecteer " [ Event Procedure ] . " Klik op de drie puntjes ( ... ) , een nieuwe Visual Basic- venster van Microsoft wordt geopend waar u uw VBA- code zal schrijven
Kopieer 5 en plak de volgende code in je " Private Sub Command1_Click ( ) " . subroutine om een tabel te maken , voeg twee verslagen van gegevens , lus door de records en de resultaten weergeven in een keuzelijst controle op uw nieuwe formulier . Dim DBase Als Database Dim recordSt
Zoals Recordset Dim X
als Geheel Dim stringSQL
als Koord Dim strgVar
als Koord
Stel DBase = CurrentDb stringSQL
= " CREATE TAFEL newtable ( Voornaam TEXT ( 25 ) , Achternaam TEXT ( 25 ) ) ; " DoCmd.RunSQL
( stringSQL ) stringSQL =
" INSERT INTO newtable ( [Voornaam ] , [Achternaam ] ) "
stringSQL = stringSQL & " VALUES ( ' John ' , ' Smith ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( stringSQL )
stringSQL = " INSERT INTO newtable ( [Voornaam ] , [Achternaam ] ) "
stringSQL = stringSQL & " VALUES ( ' Jaime ' , ' Avelar ' ) ; " DoCmd.SetWarnings
valse DoCmd.RunSQL ( stringSQL ) op
Stel recordSt = DBase.OpenRecordset ( " newtable " ) recordSt.MoveFirst
Voor X = 0 To recordSt.RecordCount - 1 strgVar
= Trim ( . recordSt.Fields ( " Achternaam " ) Value ) & " " & Trim ( recordSt.Fields ( " . Voornaam " ) Value ) op Twitter List0 AddItem strgVar recordSt.MoveNext
Volgende X
. |
