Datum setzen

[Mykis]

Hallo,

bitte um kleine "Amtshilfe": Ich setze in einem Formular, wo ein zweites Datum automatisch gesetzt werden muß, dieses mit " ADatum2 = ADatum1". OK.
Nun soll aber als Ausnahme, wenn das ADatum1 mit "01.01." beginnt, das ADatum2 "31.12." des entsprechenden Jahres werden. Meine Idee war:

Code [Auswählen] Erweitern

If ADatum1 = "01.01.*" Then ADatum2 = "31.12.*"
If Not ADatum1 = "01.01.*" Then ADatum2 = ADatum1


Geht natürlich nicht! Wie müßte der VBA-Code aussehen?

Beste Grüße
Frank

[MzKlMu]

Hallo,

des entsprechenden Jahres werden.

was ist das entsprechende Jahr, das aktuelle Jahr ?

[bahasu]

Hi,

Dein Ziel ist via Abfrage erreichbar:
SELECT Tabelle1.ADatum1, IIf(Left([ADatum1],5)="01.01","31.12." & Year([Adatum1]),[ADatum1]) AS ADatum2
FROM Tabelle1;


Berechnete Daten sollten nicht abgespeichert werden. Deswegen der Vorschlag via Abfrage.

Harald

[DF6GL]

Hallo,


ernsthaft? 

[Mykis]

Hallo Klaus,

das im ersten Feld ADatum1 eingegebene Jahr soll auch im zweiten Feld ADatum2 dem Jahr aus den ersten Feld entsprechen.
Folgender Hintergrund: Aus ADatum1 und ADatum2 wird später die Phänologie (Vorkommen in welchem Monat eines Jahres) einer Pilzart ermittelt. Wenn wir Daten aus der Literatur eingeben, ist oft nur das Jahr bekannt und es muß das ganze Jahr eingegeben werden (also 01.01.-31.12. des Jahres). Da mein Kartierungsprogramm bis jetzt das Zweitdatum gleich dem Erstdatum setzt, werden diese Funde alle auf Januar gesetzt (wo es kaum Pilze gibt) und verfälschen die Statistik. Man kann zwar Datum2 händig ändern, wird aber oft vergessen, deshalb möchte ich das bei der Eingabe automatisieren.

@ Hallo Harald,
eine Abfrage ist da nicht so richtig hilfreich, höchstens wenn jemand eine Datenbank komplett umstellen will.

LG
Frank

[MzKlMu]

Hallo,
so:

Code [Auswählen] Erweitern

If Day(ADatum1) = 1 And Month(ADatum1) = 1 Then
    ADatum2 = DateSerial(Year(ADatum1), 12, 31)
Else
    ADatum2 = ADatum1
End If

[Mykis]

Hallo Klaus,

vielen Dank, funktioniert genau wie ich es möchte!

LG
Frank

[Beaker s.a.]

Hallo Mykis,
Nur Interesse halber.

Da mein Kartierungsprogramm bis jetzt das Zweitdatum gleich dem Erstdatum setzt, werden diese Funde alle auf Januar gesetzt (wo es kaum Pilze gibt) und verfälschen die Statistik.

Und jetzt auf Dezember, - wo ist da der Unterschied? Ich meine im Dezember auch eher selten Pilzsammler gesehen zu haben ;-)
gruss ekkehard