Access 2003 - Differenzberechnung von Datumswerten

Hallo kli02,
willkommen im Forum.

Vorweg: Es gibt hier ein Board Office-Programme, dort hättest du den Thread erstellen sollen.
Hiermit bitte ich einen Moderator, den Thread zu verschieben.

Zu Aufgabenpräzisierung:
Ich gehe davon aus, dass eine Person in mehreren Zeilen vertreten ist und nicht etwa mehrere Personen gleichen Namens.
Da es vorkommen kann, dass verschiedene Personen den gleichen Namen tragen, wäre zu empfehlen, ID-Nummern statt Namen zu verwenden. Aber bei externen Datenquellen kann man das vielleicht nicht beeinflussen.
Mit externen Datenquellen habe ich auch keine Erfahrung, ich gehe davon aus, dass das keine Rolle spielt.

Zur Aufgabenlösung gibt es 2 Möglichkeiten:
VBA-Code oder Kreuztabellen.
Für einen Profi wäre VBA-Code einfacher, für einen Laien ist die Kreuztabelle leichter? zu verstehen.

Ich melde mich bald mit der Lösung.

 

Also ich hab als Namen der vorhandenen Abfrage "Abf-PersonAnwesenheit" gesetzt.
Die Felder heißen bei mir:
Name, aufnahmeDatum, entlassungsDatum
Hast du andere Bezeichner, musst du nachfolgend alles anpassen. Wie gesagt, Name-ID wäre besser.
Für die folgenden von mir erstellten Abfragen gebe ich den SQL-Code. Den kopierst du in die SQL-Ansicht, dann müsste es klappen, wenn die Bezeichner identisch sind.

Eine Kreuzabfrage:

Code:

TRANSFORM Min([Tab-PersonAnwesenheit].aufnahmeDatum) AS [Min von aufnahmeDatum]
SELECT [Tab-PersonAnwesenheit].Name
FROM [Tab-PersonAnwesenheit]
GROUP BY [Tab-PersonAnwesenheit].Name
PIVOT "AufnDatum";

Diese Datei nennst du "Abf-Aufn-Datum"

Die nächste ist ähnlich:

Code:

TRANSFORM Max([Tab-PersonAnwesenheit].entlassungsDatum) AS [Max von entlassungsDatum]
SELECT [Tab-PersonAnwesenheit].Name
FROM [Tab-PersonAnwesenheit]
GROUP BY [Tab-PersonAnwesenheit].Name
PIVOT "EntlassDatum";
Diese Datei nennst du "Abf-Entl-Datum"

Und zum Schluss eine Auswahlabfrage:

Code:

SELECT [Abf-Aufn-Datum].Name, [Abf-Entl-Datum]![EntlassDatum]-[Abf-Aufn-Datum]![AufnDatum] AS Tage
FROM [Abf-Aufn-Datum] INNER JOIN [Abf-Entl-Datum] ON [Abf-Aufn-Datum].Name = [Abf-Entl-Datum].Name
ORDER BY [Abf-Aufn-Datum].Name;

Die kannst du nennen wie du willst.

Ich arbeite mit Access 2000, es dürfte aber keine Unterschiede geben.

 

Drück dich mal präziser aus!

 

Also möchtest du geliefert bekommen:

Werner 2 Tage
Werner 5 Tage
Susi 9 Tage

oder

Werner 5 Tage
Susi 9 Tage

oder

Werner 2 Tage
Susi 9 Tage
?

Und du hast keine Angst, dass 2 verschiedene Personen Werner heißen?

 

Ja, dann müssen wir noch mal von vorn anfangen. da muss ich erst mal nachdenken und probieren. Ich melde mich wieder.

 

Hallo kli02,

So, jetzt hab ich's. War etwas knifflig, weil bei manchem Lösungsversuch Fehlermeldungen kamen. Ich hatte es mir etwas anders vorgestellt. (Neue Spalte, Aktualisierungsabfrage, fertig)

Basis ist eine Tabelle Tab-PersonAnwesenheit mit den Feldern Name, aufnahmeDatum, entlassungsDatum.

Davon brauchen wir eine "Kopie" ->"_Tab-PersonAnwesenheit":

Code:

SELECT [Tab-PersonAnwesenheit].Name, [Tab-PersonAnwesenheit].aufnahmeDatum, [Tab-PersonAnwesenheit].entlassungsDatum
FROM [Tab-PersonAnwesenheit];

Die beiden kommen zusammen ->"_Tab-MitVorentlDat":

Code:

SELECT [Tab-PersonAnwesenheit].Name, [Tab-PersonAnwesenheit].aufnahmeDatum, [Tab-PersonAnwesenheit].entlassungsDatum, [_Tab-PersonAnwesenheit].entlassungsDatum AS [Alt-ED]
FROM [Tab-PersonAnwesenheit] INNER JOIN [_Tab-PersonAnwesenheit] ON [Tab-PersonAnwesenheit].Name = [_Tab-PersonAnwesenheit].Name
WHERE ((([_Tab-PersonAnwesenheit].entlassungsDatum)<[Tab-PersonAnwesenheit]![aufnahmeDatum]))
ORDER BY [Tab-PersonAnwesenheit].Name, [Tab-PersonAnwesenheit].aufnahmeDatum;

Daraus wird eine Kreuztabellenabfrage ->"Abf-Aufn-Datum":

Code:

TRANSFORM Max([_Tab-MitVorentlDat].[Alt-ED]) AS [Max von Alt-ED]
SELECT [_Tab-MitVorentlDat].Name, [_Tab-MitVorentlDat].aufnahmeDatum, [_Tab-MitVorentlDat].entlassungsDatum
FROM [_Tab-MitVorentlDat]
GROUP BY [_Tab-MitVorentlDat].Name, [_Tab-MitVorentlDat].aufnahmeDatum, [_Tab-MitVorentlDat].entlassungsDatum
PIVOT "AltEntlassung";

Aus der kann man in einer Auswahlabfrage die Zeitabstände berechnen und was man sonst noch will:

Code:

SELECT [Abf-Aufn-Datum].Name, [Abf-Aufn-Datum].AltEntlassung, [Abf-Aufn-Datum].aufnahmeDatum, [Abf-Aufn-Datum]![aufnahmeDatum]-[Abf-Aufn-Datum]![AltEntlassung] AS Dauer
FROM [Abf-Aufn-Datum];

 

Wenn du eine meiner Abfragen erstellen willst:
Abfrage - Neu - Entwurfsansicht
Das Fenster zum Einfügen von Tabellen sofort schließen.
In der Entwurfsansicht: Ansicht - SQL (Wird jetzt auch ganz links in der Symbolleiste angezeigt.)
In der SQL-Ansicht meinen Code einfügen.

Die von mir vorgegebene Reihenfolge einhalten, sonst hagelt es Fehlermeldungen.
Bei der ersten Abfrage müssen evtl. die Bezeichner angepasst werden.
Einfacher wäre es aber, deine Bezeichner in der Tabelle vorher anzupassen.

Wenn in Extras - Optionen - Allgemein - Objektnamen Autokorrektur die Einstellung "Ausführen" gewählt ist, kannst du danach wieder deine alten Bezeichner wählen.