====== Erweiterungen in Datenbanken ======

===== Tabelle =====
==== Kombinations- oder Listenfeld in einer Tabelle erstellen ====
  * **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!)
\\ \\ 
===== Formular =====
==== Layout von Formularen ändern ====
  * **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
\\ 
==== Toolbox ====
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. \\ \\ 
{{:inf:k6inf:db:Toolbox.gif|}} 
\\ \\ 
==== Schaltflächen ====
  * 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\\ \\ 
=== Codes für Schaltflächen === 
**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://\\ 
{{:inf:k6inf:tk:visual_basic-capture-Option-MsgBox.gif|}}
\\ \\ 
//Rückgabewerte der Buttons://\\ 
{{:inf:k6inf:tk:visual_basic-capture-Rueckgabe.gif|}}
\\ \\