Office: (Office 2016) Zusatz Infos für Datenbank

An dieser Veranstaltung nimmt doch wohl auch ein anderes Mitglied teil - oder?

Daher solltest Du diese Veranstaltung in der Termintabelle erfassen.
Dann ist die Veranstaltung ganz einfach bei jedem Mitglied zuzuordnen.

Ansonsten schreibst/tippst Du Dir die Finger wund, wenn Du zu jedem Mitglied die Teilnahme eintragen musst.

 

Hallo Leute,
habt ihr mich vergessen. Ich krieg das alleine nicht hin.

Gruß
Jürgen

 

vergessen hat Dich hier keiner...
#37 und #39 vom 23.01.2020 wurden nicht beantwortet - wie soll man dann weiterhelfen?
#44 - mit angehängter ZIP-Datei, nicht heruntergeladen.

 

Hallo Elmar,
diese Datei ist mehr als ich je zu erhoffen gewagt habe. ich habe das alles übersehen. Mag es daran liegen das ich Dezember und Januar Gesundheitlich nicht auf der Höhe war oder die Arbeit im Februar oder auch weil ich langsam Alt werde. Ich muss um Verzeihung bitten.
Ich muss jetzt nur heraus bekommen wie du/ihr das gemacht hast. Dann muss ich das ganze ja auch in meine Original Datenbank rein machen damit alle meine Mitglieder erfasst werden können.

Ich werde das einmal in den Angriff nehmen und hoffen das ich das hin bekomme.

Gruß
Jürgen

 

Hallo zusammen,
durch die Corona Krise bin ich jetzt in Kurzarbeit und habe angefangen alle Mitglieder in die Datenbank von Elmar einzutippen. Dabei ist mir aufgefallen das bei Mitgliedern die Verstorben sind die Altersberechnung nicht gestoppt wird. Ich hatte das schon einmal in meiner alten Datenbank wo ihr mir geholfen habt das zu bereinigen, nun wollte ich dies in die neue übernehmen bekomme das aber auch wieder einmal nicht gebacken. Würdet ihr so freundlich sein mir wieder zu helfen?

Gruß
Jürgen

 

Verstorbene Mitglieder sollten in einer Mitgliederverwaltung bestenfalls in einer extra Tabelle abgelegt werden. Erfasse also verstorbenen Mitglieder in einer Kopie der Mitgliedertabelle. Das kannst Du über die Datenblattansicht der Tabelle machen. Später kann man dann ein Formular dazu einrichten, welches den Zugriff auf die ex-Mitglieder ermöglicht.

 

Hallo Elmar,
Wozu eine zusätzl. Tabelle für nur eine zusätzl. Information?
Ein Datumsfeld (gestorben_am) in der Mitgliedertabelle reicht dazu doch
völlig aus. Zudem bietet es eine echte Information, die auch weiter genutzt
werden kann; - als Info an sich, zur Berechnung von Todestagsjubiläen, und
in diesem Fall dazu, zu entscheiden, ob eine Alterberechnung vorgenommen
wird oder nicht bzw. wie (akt. Alter/Alter bei Tod).
gruss ekkehard

 

\@ekkehard: Da hast Du natürlich Recht!

 

Moin Zusammen,
die Datenbank so wie Elmar mir sie eingerichtet hat ist absolut in Ordnung. Das hätte ich so nie hinbekommen.
Aber mit der alten Datenbank ohne die Modifizierung von Elmar hat das wunderbar funktioniert.
Früher hatte ich das Alter per Abfrage gestaltet ( so wurde es mir hier empfohlen):Alter: DatDiff("jjjj";[Geboren];Nz([Sterbedatum];Datum()))+(Format(Nz([Sterbedatum];Datum());"mmtt")

 

Hallo,
Du musst hier natürlich die Funktion selbst zeigen und nicht nur den Aufruf.

 

Hallo,
habe zwar eine Funktion gefunden aber ich weiß nicht ob es die richtige ist und habe deshalb einmal die komplette Datenbank von Elmar hochgeladen.

Gruß
Jürgen

 

Hallo,

Die Funktion hat (wie jede Funktion) einen eindeutigen Namen (funcAltersberechnung) und sollte damit zweifelsfrei gefunden werden können.

 

Habe das gefunden:

Option Compare Database
Option Explicit

Function funcAltersberechnung(dtGeburtsdatum, Optional dtStichtag) As Integer

If IsNull(dtGeburtsdatum) Then
funcAltersberechnung = 0
Exit Function
End If
'
If IsMissing(dtStichtag) Then dtStichtag = Date
'
If DateSerial(Year(dtStichtag), Month(dtGeburtsdatum), Day(dtGeburtsdatum)) > dtStichtag Then
funcAltersberechnung = DateDiff("yyyy", dtGeburtsdatum, dtStichtag) - 1
Else
funcAltersberechnung = DateDiff("yyyy", dtGeburtsdatum, dtStichtag)
End If

End Function

Das habe ich aber gefunden unter nicht verwandte Objekte und bin mir deshalb nicht sicher ob es das ist.

Gruß
Jürgen

 

Hallo,
ändere die Funktion wie folgt:
- Das 2. Datum nicht mehr optional
- Beide Datumswerte als Date deklarieren (nur der Ordnung halber)
- Die Prüfung IsMissing für dtStichtag kann dann entfallen.
Die Funktion sieht dann so aus:
Code:

Aufruf dann so:
Code:

Nz übergibt das Sterbdatum und wenn nicht vorhanden das heutige Datum.

 

Hallo Yogi,

...na ja...zu spät *Smilie