| zurück
Home |
Access: Programm-Ausführung |
Allgemeines |
Es gibt verschiedene Möglichkeiten, VB-Module
auszuführen:
- Anklicken eines Bezeichnungsfeldes in einem Formular
- Start im Programmierfenster
|
Programm stoppen: Strg + Pause (klappt nicht immer
) |
| Schaltflächen |
Das Formular enthält mehrere Schaltflächen, mit
den VB-Module gestartet werden können.
 |
| Formular-Code |
Der Programm - Code ist dem Formular "Start"
zugeordnet. Der Code wird durch "Bezeichnungsfeld18_DblClick" der
Schaltfläche 18 zugeordnet. Durch Doppelklick auf Schaltfläche 18 wird das
Modul gestartet.
 |
| Verweise |
Access - Programme sind häufig gestört, weil
notwendige Verweise nicht gesetzt wurden.
 |
Für Access muss ADO 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 Beszeichnungsfeld wird das Kommando
ausgelöst. |
DoCmd.RunCommand ermöglicht die Auslösung
zahlreicher Befehle. |
 |