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.

Teil von

MS Access RDBMS, relationales Datenbank - Management System Datenbanken

Impressum                         Zuletzt geändert am 23.06.2022 16:51