Wissen, wie man Programm in Microsoft Office Access 2007 können Sie Zeit sparen , wenn Sie Routineaufgaben wie das Erstellen von Tabellen und Hinzufügen von Daten manuell ausführen müssen . Access ist ein relationales Datenbank- Management-System häufig für kleinere lokale Datenbanken verwendet. Es bietet die Tools, um Visual Basic for Applications (VBA) auf manuelle Prozesse zu automatisieren schreiben. VBA ist eine Programmiersprache von Microsoft angeboten . In wenigen Schritten können Sie VBA-Code schreiben , um eine Tabelle zu erstellen , fügen Sie Daten zu und zeigt seinen Inhalt durch ein Listenfeld . Anleitung
1

Öffnen Sie Microsoft Office Access 2007 und wählen Sie dann " Leere Datenbank . " Klicken Sie auf " Erstellen".
2

Klicken Sie auf " Erstellen " und wählen Sie "Form Design" , um ein neues Formular zu erstellen. Wählen Sie die "Button" -Steuerung im Rahmen der " Controls" angezeigt. Klicken Sie auf das Formular , und erstellen Sie die neue Schaltfläche mit gedrückter linker Maustaste auf das Bild . Fügen Sie eine "List Box" -Steuerelement dem Formular auf die gleiche Weise hinzugefügt die Taste.
3

rechten Maustaste auf das Listenfeld und wählen Sie "Eigenschaften". Auf der "Property Blatt , " auf der Registerkarte "Daten" und wählen Sie im Dropdown- Feld auf " Row Source Type " und wählen Sie " Value List ".
4

der rechten Maustaste auf die neue Schaltfläche und wählen Sie "Eigenschaften". Auf " Eigenschaften" klicken Sie auf die Registerkarte "Ereignis" und wählen Sie die Dropdown-Liste neben " On Click" und wählen Sie " [Event Procedure] . " Klicken Sie auf den Schalter (... ) , ein neues Microsoft Visual Basic -Fenster wird geöffnet , wo Sie Ihren VBA-Code zu schreiben,
5

Kopieren Sie den folgenden Code in Ihrem "Private Sub Command1_Click ()". Subroutine , um eine Tabelle zu erstellen, fügen zwei Datensätze von Daten , eine Schleife durch die Datensätze und die Ergebnisse in einem Listenfeld-Steuerelement auf Ihrem neuen Form .

Dim DBase As Database Dim

recordSt Als Recordset

Dim X As Integer Dim

stringSQL As String Dim

strgVar As String Set

DBase = CurrentDb

stringSQL = "CREATE TABELLE newTable ( Vorname TEXT ( 25) , Nachname TEXT ( 25) ); "

DoCmd.RunSQL ( stringSQL )

stringSQL =" INSERT INTO newTable ( [Vorname ], [ Nachname] ) "

stringSQL = stringSQL & " VALUES (' John ', ' Smith '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( stringSQL )
< p> stringSQL = " INSERT INTO newTable ( [Vorname ], [ Nachname] ) "

stringSQL = stringSQL & " VALUES (' Jaime ', ' Avelar '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( stringSQL )

Set recordSt = DBase.OpenRecordset ( " newTable " )

recordSt.MoveFirst

Für X = 0 To recordSt.RecordCount - 1 of

strgVar = Trim ( . recordSt.Fields ( "Nachname " ) Value) & "" & Trim ( recordSt.Fields ( " . Vorname " ) Value)

List0 . AddItem strgVar

recordSt.MoveNext

Weiter X