|
B4. Quellcode für Schaltfläche ändern
|
|
- Den
Formularentwurfsmodus öffnen
- Mit
der Maus im Formular auf das Feld mit dem Schalter
gehen, anklicken und die linke Maustaste klicken
- Das
Feld „Eigenschaften“ anklicken
- Den
Reiter „Ereignis“ anwählen
- In
das Feld „Beim Klicken“ klicken und das Feld mit den
drei Punkten anklicken
- Die
erste freie Zeile (unter
..... Kapitel_hinzufügen_Click) anklicken
- In der Zeile folgenden Text eingeben
|
(MS-VBA-Code)
Dim
aktForm As Form
Set
aktForm =
Screen.ActiveForm
MsgBox
“Neues Kapitel wird angelegt”
Buch.Locked
= Not Buch.Locked
Kapitel.Locked
=Not Kapitel.Locked
Seite.Locked
= Not Seite.Locked
Autor.Locked = Not Autor.Locked |
|
Die
Schaltfläche für die Eingabe von Kapiteln ist geändert.
Nun folgt sogleich die Schaltfläche für die Datensuche. |
|
8. Die Scrollbar nach unten führen
und nach dem Eintrag „Private Sub Kapitel-Suchen_Click()“
suchen
9.
in die nächste Zeile nebenstehenden VBA-Code eingeben
10.
Das Fenster ( … Kapitel_Retrival (Code) schließen
11.
Das Microsoft Code Fenster schließen
12.
In die Formularansicht schalten
|
(MS-VBA-Code)
Buch.Locked
= Not Buch.Locked
Kapitel.Locked
=Not Kapitel.Locked
Seite.Locked
= Not Seite.Locked
Autor.Locked = Not Autor.Locked
|
|
Der oben angegebene Code wird in Visual Basic geschrieben. Es ist
daher wichtig, dass jeder Punkt, Komma oder
Anführungszeichen genau so übernommen wird. Jede
Abweichung wird von der Maschine bemängelt und als Fehler
erkannt. |
|
Betätige die Schaltflächen. Wenn die Anzeige
„Neue Art wird angelegt“ erscheint wird das Formular für
eine Eingabe freigeschaltet. Wenn sich beim Betätigen einer
Schaltfläche der Compiler aufbaut, den Code an der
angezeigten Stelle überprüfen. |
|
B5. Bezeichnungen einfügen |
B6. Designprüfung abschließen |
|
1.
Den Formularentwurfsmodus öffnen
2.
Die Schaltflächen untereinander anordnen
3.
Mit der Maus über die Toolbox streichen und
„Bezeichnung“ suchen und anklicken
4.
Die Maus in ein Feld neben die Schalten ziehen
5.
Eine Bezeichnung entsprechend der Schaltfläche
eingeben
a.
Neuen Datensatz hinzufügen
b.
Ausgewählten Datensatz löschen
c.
Daten suchen
6.
Formular in die Formularansicht schalten
|
-
Schaltflächen testen
-
„Neues Kapitel wird
angelegt“ mit „OK“ bestätigen
-
In die weiß unterlegten Zeilen
ein paar Probebuchstaben eingeben
-
Alle Felder ausfüllen
-
Mehrere Daten anlegen
-
Daten löschen testen
-
Daten suchen testen
-
Den Entwurfsmodus des Formulars
nochmals öffnen
-
Die Felder für die Einträge
untereinander anordnen
-
Die Eintragsfelder mit einem
Rechteck aus der Toolbox umranden
-
Den Entwurfsmodus beenden
|
|
Beim Aufruf des Formulars sollte sich jetzt ungefähr
dieses Bild zeigen:
|
|
|
Arbeitsaufwand ca. 2 Std. |
|
