Erweiterungen in Datenbanken

• Listenfeld: Nur Werte der Liste können für das Feld ausgwählt werden
• Kombinationsfeld: Werte der Liste und eigene Werte können dem Feld übergeben werden
  
  

Um ein Listen- oder Kombinationsfeld zu erstellen, muss Felddatentyp - Nachschlage Assistent gewählt werden.
Danach dem Assistenten folgen (selbst Werte eingeben wird empfohlen!)

• Hintergrundfarbe: Rechts Klick - Füll-/Hintergrundfarbe
• Felder ausrichten: gewünschte Felder markieren - Rechts Klick - Ausrichten oder Grösse anpassen
• Übschrift: Toolbox Bezeichnungsfeld in den Formularkopf (Eigenschaften ändern - Rechts Klick - Eigenschaften)
• Aktivierungsreihenfolge: Rechts Klick - Aktivierungsreihenfolge (soll ein Feld von der Aktivierung ausgeschlossen werden muss dies in den Feldeigenschaften eingestellt werden z.B. bei einem Berechnungsfeld)
• weitere Einstellungen: Rechts Klick - Eigeneschaften

Mit Hilfe der Toolbox können weitere Steuerelemente, wie Schaltflächen Kombinations-/Listenfelder, Textfelder, … eingefügt werden.
Dabei die Elemente einfach aufziehen und den Anweisungen des Assistenten folgen.

• Den Schaltflächen können mittels dem Assistenten vordefinierte Aktionen zugewiesen werden.
• Oder eigens programmiert werden Rechts Klick - Eigenschaften - Ereignis - beim gewünschten Ereignis die drei Punkte (rechts davon) drücken - Code Generator auswählen. Zuerst aber dem Button in den Eigenschaften - Alle einen Namen und eine Beschriftung übergeben
  
  

heutges Datum einfügen:

Me!Feldname = Date

Bearbeiten erlauben:
Im Formular muss zuerst das Bearbeiten inaktiv gestellt werden: Eigenschaften - Formular auswählen (oben) - Daten - Bearbeitung zulassen - Nein

Me.AllowEdits = True

Daten neu hinzufügen (für Schalfläche „Neuen Kunden z.B.)

DoCmd.GoToRecord , , acNewRec

Kombinationsfeld mit Primärschlüssel synchronisieren:

Private Sub Form_Current()
  Kombinationsfeld+Nr = [Primärschlüssel]
End Sub

Einem Feld die Tastenkombination Strg + 1 übergeben:

Private Sub Feldname_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 49 And Shift = 2 Then  'Strg+1'
     Feldname1 = "Feldinhalt"
     Feldname2 = "Feldinhalt"
  End If
End Sub

Variablen definieren

 Dim VARIABLENNAME As VARIABLENTYP

IF Bedningung
Bei der IF … THEN … ELSE Anweisung muss die Bedingung TRUE oder FALSE entsprechen, damit die nachstehenden Anweisungen durchgeführt werden können.

IF Bedingung THEN
  Anweisung1
  ELSE
  Anweisung2
EndIF

Messagebox (MsgBox)
Erzeugt eine gewünschte Meldung, in einem Dialogfeld, auf dem Bildschirm an!

MsgBox(prompt[, buttons][, title])

MsgBox ("Befehl ausführen?", vbYesNo + vbQuestion, "Anfrage")
MsgBox ("Befehl ausführen?", 4 + 32, "Anfrage")

prompt … Ein String der als Meldung im Dialogfeld angezeigt wird
buttons … Anzahl und Art der gewünschten Schaltfläche am Dialogfeld
title … Sting der den Titel des Dialogfeldes bestimmt

Folgende Buttons und Symbole kann eine MsgBox enthalten:


Rückgabewerte der Buttons: