zurück Home |
Access: Fenster zur Programmierung |
Allgemeines |
Ein Vorzug von Access ist die Programmierbarkeit mit Access - Visual Basic. |
Hier wird eine komplette Visual Basic Programmierumgebung zur Verfügung gestellt. |
| Objektkatalog |
Über die Hauptgruppe Module gelangt man in die Liste der vorhandenen VB-Programme.
 |
| Formular |
Die 2. Möglichkeit, zur Programmierung zu gelangen, geht über ein Formular in der Entwurfsansicht(orangener Pfeil). Über das Symbol am violetten Pfeil erreicht man die Programmieroberfläche.
 |
| Ausführung |
Es gibt verschiedene Möglichkeiten, VB-Module auszuführen:
- Anklicken eines Bezeichnungsfeldes in einem Formular
- Start im Programmierfenster
|
| VB - Oberfläche |
Nach Aufrufen eines Moduls erscheint diese Ansicht. Der Programm-Code kann rechts unten editiert werden.
 |
| Verweise |
Access - Programm sind häufig gestört, weil notwendige Verweise nicht gesetzt wurden.
 |
Für Access muss ADO und/oder DAO aktiviert sein.
 |
| Recordset |
Der Zugriff auf Daten einer Tabelle geschieht mit dem Objekt Recordset. |
Open, adNew, EOF, BOF, |
| Dateizugriff |
Mit dem FileSystemObject kann aus Access auf Dateien und Verzeichnisse zugegriffen werden. |
| Jahresordner |
Option Compare Database
Public Sub NeuJahrWW12()
'erstellt bei Jahresanfang die erforderlichen Ordner
'1.1.09
Dim f 'Objekt: Pfad
Dim fs 'Objekt: FileSystem
Dim Pfx: Variable Pfad
Dim Dx1, dx1a, dx1b, dx2, dx2a, Vx, Vn
Pfx = "C:\WW\" : Überverzeichnis
PFalt = "WW11" : altes Jahresverzeichnis
PFneu = "WW12" : neues Jahresverzeichnis
xnam = Pfx + Pfneu
MkDir (xnam)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\WW\WW11")
Set F2 = fs.GetFolder("C:\WW\WW12")
Set fc = f.files 'Objekt: Dateien eines Ordners
Set fu = f.subfolders 'Objekt: Unterordner eines Ordners
For Each F1 In fu
Debug.Print F1.Name
xnam = Pfx + PFneu + "\" + F1.Name
MkDir (xnam)
Next
End Sub |
| Notbremse |
y = InputBox("Hinweistext " + Tabelle![Variable] + ..., "s = Stop")
If y = "s" Then Exit Sub
|
Um ein Programm zu testen, werden Parameter angezeigt und das Programm angehalten. |
Durch Eingabe von S erfolgt ein Abbruch des Programms. |
| Datum eintragen |
Private Sub Form_BeforeInsert(Cancel As Integer)
Me![DatNeu] = Date
Me![UpDate] = Date
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me![UpDate] = Date
End Sub |
Gute Datenbanken speichern immer das Datum der Erzeugung eines Datensatzes (DatNeu) und das Datum der letzten Änderung(UpDate). |
Me ist der Bezug auf den aktuellen Datensatz. Date ist eine Funktion, die das aktuelle Datum zurückgibt. |
| Umschalten: Formular-Tabelle |
Private Sub Bezeichnungsfeld56_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdDatasheetView
End Sub |
Die Nummer des Bezeichnungsfeldes muß vorher ermittelt werden. Durch Klick auf das Bezeichnungsfeld wird das Kommando ausgelöst. |
DoCmd.RunCommand ermöglicht die Auslösung zahlreicher Befehle. |
 |