![\"Entwurf](\"..\/tl_files\/images\/pic_726_004.png\")
<\/a><\/p>\nBild 1: Entwurf der Tabelle tblAnsprechpartner<\/p>\n
- \n
- AnsprechpartnerID<\/b>: Datentyp AutoWert<\/b>, Primärschlüssel.<\/li>\n
- KundeID<\/b>: Datentyp Zahl<\/b>, Feldgröße Long Integer<\/b>, Eingabe erforderlich<\/b> auf Ja<\/b>. Dieses Feld richten wir gleich als Nachschlagefeld ein.<\/li>\n
- AnredeID<\/b>: Datentyp Zahl<\/b>, Feldgröße Long Integer<\/b>, ebenfalls ein Nachschlagefeld.<\/li>\n
- Vorname<\/b>: Datentyp Kurzer Text<\/b>, Feldgröße 50<\/b>.<\/li>\n
- Nachname<\/b>: Datentyp Kurzer Text<\/b>, Feldgröße 50<\/b>, Eingabe erforderlich<\/b> auf Ja<\/b>.<\/li>\n
- Abteilung<\/b> und Funktion<\/b>: jeweils Kurzer Text<\/b> mit der Feldgröße 100<\/b>.<\/li>\n
- EMail<\/b>, Telefon<\/b> und Mobil<\/b>: jeweils Kurzer Text<\/b> mit der Feldgröße 255<\/b>. Für EMail<\/b> tragen wir als Beschriftung<\/b> den Text E-Mail<\/b> ein.<\/li>\n
- Hauptansprechpartner<\/b>: Datentyp Ja\/Nein<\/b>, Standardwert<\/b> Nein<\/b>.<\/li>\n
- Bemerkung<\/b>: Kurzer Text<\/b> mit der Feldgröße 255<\/b>.<\/li>\n<\/ul>\n
Die Feldgrößen von Vorname<\/b> und Nachname<\/b> entsprechen denen in tblKunden<\/b>.<\/p>\n
Die beiden Nachschlagefelder<\/h2>\n
KundeID<\/b> und AnredeID<\/b> richten wir mit dem Nachschlage-Assistenten ein, genau wie im Artikel Rechnungsverwaltung: Das Datenmodell<\/b> (www.access-basics.de\/719<\/b>). Wähle dazu in der Entwurfsansicht beim Feld KundeID<\/b> als Datentyp Nachschlage-Assistent<\/b> aus und gehe wie folgt vor:<\/p>\n
- \n
- Die Werte sollen aus einer Tabelle stammen, und zwar aus tblKunden<\/b>.<\/li>\n
- Als Felder übernimmst Du KundeID<\/b> und Firma<\/b>.<\/li>\n
- Sortiere nach Firma<\/b>. Die Schlüsselspalte bleibt ausgeblendet.<\/li>\n
- Als Beschriftung trägst Du Kunde<\/b> ein, aktivierst Datenintegrität aktivieren<\/b> und wählst die Option Löschweitergabe<\/b>. Den Grund dafür erklären wir im Abschnitt zur Löschweitergabe für die Ansprechpartner.<\/li>\n<\/ul>\n
Für AnredeID<\/b> gehst Du genauso vor, nur mit der Tabelle tblAnreden<\/b> und den Feldern AnredeID<\/b> und Anrede<\/b>. Die Beschriftung lautet Anrede<\/b>, und bei der Datenintegrität wählst Du hier Löschen einschränken<\/b>. Details zu den einzelnen Schritten findest Du im Artikel Tabellen [basics]: Der Nachschlage-Assistent<\/b> (www.access-basics.de\/572<\/b>).<\/p>\n
Die Löschweitergabe für die Ansprechpartner<\/h2>\n
Im Datenmodell aus dem Artikel Rechnungsverwaltung: Das Datenmodell<\/b> (www.access-basics.de\/719<\/b>) haben wir auf die Löschweitergabe verzichtet. Ein Kunde mit Rechnungen soll sich nicht löschen lassen, denn die Rechnungen müssen erhalten bleiben. Bei den Ansprechpartnern liegt der Fall anders: Ein Ansprechpartner ohne Kunde ergibt keinen Sinn. Wird ein Kunde gelöscht, sollen auch seine Ansprechpartner gelöscht werden.<\/p>\n
Kontrollieren kannst Du das Ergebnis im Beziehungsfenster, das Du über Datenbanktools|Beziehungen<\/b> öffnest. Falls tblAnsprechpartner<\/b> dort noch nicht zu sehen ist, ergänzt Du sie über Tabellen hinzufügen<\/b>. Ein Doppelklick auf die Verbindungslinie zwischen tblKunden<\/b> und tblAnsprechpartner<\/b> öffnet den Dialog Beziehungen bearbeiten<\/b>. Dort müssen Mit referentieller Integrität<\/b> und Löschweitergabe an verwandte Datensätze<\/b> aktiviert sein. Falls nicht, holst Du das hier nach (siehe Bild 2).<\/p>\n
![\"Die](\"..\/tl_files\/images\/pic_726_005.png\")
<\/a><\/p>\nBild 2: Die Beziehung zwischen tblKunden und tblAnsprechpartner mit Löschweitergabe<\/p>\n
Die Beziehung zwischen tblAnreden<\/b> und tblAnsprechpartner<\/b> bleibt dagegen ohne Löschweitergabe. Eine Anrede, die noch verwendet wird, soll sich nicht löschen lassen.<\/p>\n
Nur ein Hauptansprechpartner je Kunde<\/h2>\n
Die zentrale Regel dieses Artikels lautet: Je Kunde darf höchstens ein Ansprechpartner als Hauptansprechpartner markiert sein. Lässt sich das über einen Index lösen? Ein eindeutiger Index über KundeID<\/b> und Hauptansprechpartner<\/b> würde verhindern, dass zwei Ansprechpartner eines Kunden beide den Wert Ja<\/b> haben. Er würde aber auch verhindern, dass zwei Ansprechpartner den Wert Nein<\/b> haben. Jeder Kunde könnte dann höchstens zwei Ansprechpartner haben. Ein Index ist hier also nicht geeignet.<\/p>\n
Stattdessen gehen wir so vor: Wird ein Ansprechpartner zum Hauptansprechpartner gemacht, nehmen wir allen anderen Ansprechpartnern desselben Kunden diese Markierung weg. Das erledigt die Prozedur aus Listing 1, die wir im Modul mdlTools<\/b> unterbringen.<\/p>\n
Public Sub <\/span>HauptansprechpartnerFestlegen(ByVal lngKundeID As Long<\/span>, ByVal lngAnsprechpartnerID As Long<\/span>)\r\n CurrentDb.Execute \"UPDATE tblAnsprechpartner SET Hauptansprechpartner = False<\/span> \" _\r\n & \"WHERE KundeID = \" & lngKundeID & \" \" _\r\n & \"AND AnsprechpartnerID <> \" & lngAnsprechpartnerID, dbFailOnError\r\nEnd Sub<\/span><\/pre>\nListing 1: Die Prozedur HauptansprechpartnerFestlegen im Modul mdlTools<\/p>\n
Sie erwartet die KundeID<\/b> und die AnsprechpartnerID<\/b> des neuen Hauptansprechpartners. Die UPDATE<\/b>-Anweisung setzt Hauptansprechpartner<\/b> bei allen Ansprechpartnern dieses Kunden auf False<\/b>, im Feld also auf den Wert Nein<\/b>. Ausgenommen ist der Ansprechpartner, der die Markierung behalten soll. Den Aufruf bauen wir im Abschnitt zu frmAnsprechpartnerdetail<\/b> in das Ereignis Nach Aktualisierung<\/b> ein.<\/p>\n
Das Unterformular sfmKundeAnsprechpartner<\/h2>\n
Die Ansprechpartner eines Kunden zeigen wir wie seine Rechnungen in einem Unterformular in der Datenblattansicht an.<\/p>\n
Lege über Erstellen|Formulare|Formularentwurf<\/b> ein neues Formular an und nimm diese Einstellungen vor:<\/p>\n
- \n
- Datensatzquelle<\/b>: tblAnsprechpartner<\/b>.<\/li>\n
- Ziehe aus der Feldliste die Felder Hauptansprechpartner<\/b>, AnredeID<\/b>, Vorname<\/b>, Nachname<\/b>, Funktion<\/b>, EMail<\/b> und Telefon<\/b> in den Detailbereich. Die Anordnung im Detailbereich legt fest, in welcher Reihenfolge die Spalten im Datenblatt stehen.<\/li>\n
- Ändere die Beschriftung des Bezeichnungsfeldes für Hauptansprechpartner<\/b> in Haupt<\/b>, damit die Spalte schmal bleibt.<\/li>\n
- Standardansicht<\/b>: Datenblatt<\/b>.<\/li>\n
- Anfügen zulassen<\/b>, Löschen zulassen<\/b> und Bearbeitungen zulassen<\/b>: jeweils Nein<\/b>. Wie bei den Rechnungen dient die Liste nur der Anzeige. Anlegen, Bearbeiten und Löschen lösen wir über Schaltflächen aus.<\/li>\n
- Sortiert nach<\/b>: [Hauptansprechpartner], [Nachname]<\/b>.<\/li>\n<\/ul>\n
Die Sortierung stellt den Hauptansprechpartner an die erste Stelle: Access speichert Ja<\/b> in einem Ja\/Nein<\/b>-Feld als -1<\/b> und Nein<\/b> als 0<\/b>. Bei aufsteigender Sortierung steht -1<\/b> vor 0<\/b>.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t - Ziehe aus der Feldliste die Felder Hauptansprechpartner<\/b>, AnredeID<\/b>, Vorname<\/b>, Nachname<\/b>, Funktion<\/b>, EMail<\/b> und Telefon<\/b> in den Detailbereich. Die Anordnung im Detailbereich legt fest, in welcher Reihenfolge die Spalten im Datenblatt stehen.<\/li>\n
- Als Felder übernimmst Du KundeID<\/b> und Firma<\/b>.<\/li>\n
- KundeID<\/b>: Datentyp Zahl<\/b>, Feldgröße Long Integer<\/b>, Eingabe erforderlich<\/b> auf Ja<\/b>. Dieses Feld richten wir gleich als Nachschlagefeld ein.<\/li>\n