Verkaufsdatum in Tabelle (Access 97)
Veröffentlicht am 30.12.2003
Frage:
Ich bin gerade dabei, ein kleines Fahrradverwaltungsprogramm zu erstellen. Zum einen habe ich die Tabelle „Daten Fahrräder“, in der einem neuen Fahrrad eine fortlaufende Nummer zugeordnet wird.
Diese Tabelle enthält auch die dazugehörigen Daten zu einem Fahrrad. Nun will ich ein Fahrrad, wenn es verkauft ist, nicht einfach löschen, sondern diesen Datensatz in eine Tabelle gleicher Struktur namens „Verkaufte Fahrräder“ verschieben (mit dem Verkaufsdatum).
Das heißt, per Knopfdruck und vorheriger Abfrage des Verkaufsdatums soll dieser Datensatz automatisch verschoben werden.
Antwort:
Anstatt einer zusätzlichen Tabelle der verkauften Fahrräder anzulegen, würden wir Ihnen empfehlen, ein zusätzliches Ja/Nein-Feld namens „Verkauft“ sowie ein Datumsfeld namens „Verkaufsdatum“ in der Haupt-Tabelle anzulegen. Wenn Sie nun auf die Schaltfläche „Fahhrad verkauft“ klicken, können Sie folgende VBA-Prozedur ausführen:
Private Sub btnFahrrad_Click()
Me!Verkauft = True
Me!Verkaufsdatum = Now
End Sub
Der Vorteil dieser Methode ist, daß die Datensätze sehr übersichtlich sind. Sie können beispielsweise auf einem Blick sehen, welche Fahrräder schon verkauft worden sind.