tmp:=@Text(210304);wie sieht denn eure Formel aus ??
Sub Exiting(Source As Field)
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
Dim strDatum As String
Dim iDatumlaenge As Integer
strDatum = uidoc.fieldgettext ("Datum")
iDatumlaenge = Len(strDatum)
Dim strDay As String
strDay = Left$(strDatum,2)
Dim strMonth As String
strMonth = Mid$(strDatum,3,2)
Dim strYear As String
If iDatumlaenge = 6 Then
strYear = Right$(strDatum,2)
Else
strYear = Right$(strDatum,4)
End If
Dim strDatumNeu As String
If iDatumlaenge = 6 Or iDatumlaenge = 8 Then
strDatumNeu = strDay & "." & strMonth & "." & strYear
Call uidoc.fieldsettext("Datum", strDatumNeu)
End If
If strDatum = "t" Then
strDatumNeu = Str$(Today())
Call uidoc.fieldsettext("Datum", strDatumNeu)
End If
End Subdeshalb hatte ich eingangs gefragt, ob die Ausgangdaten genau in den zwei Formen vorliegen; und da funktioniert mein Script...
das ungute an der Exiting-Event-Lösung ist, dass das Event nicht zwangsläufig abgefeuert wird, nämlich dann nicht, wenn der Benutzer das Feld nicht verlässtJa leider. Ich hab mir das mal angesehen, aber eine andere Möglichkeit hat man wohl nicht - weil eben Notes in einem Datumsfeld nach F9 / Aktualisierung 030303 (oder sonstige Strings) ablehnt.
Ich sehe nur 2 Möglichkeiten:
a) Exiting-Event
b) Textfeld
Ich sehe nur 2 Möglichkeiten:
a) Exiting-Event
b) Textfeld
eine andere: zwei Felder (1 Datum, 1 berechnetes Textfeld ). Dann z.B. im Editmodus nen Datepicker anzeigen und im Readmodus/in Ansichten das Textfeld mit übersetztem Datum
ich hätte lesen sollen
>> in einem Datumsfeld ein Datum ohne Punkte (z.B. 210304 o. 21032004) eingeben kann
Der Grund und der Zweck für die ganze Aktion wär vielleicht noch hilfreich für ne gescheite Lösung
ZitatDer Grund und der Zweck für die ganze Aktion wär vielleicht noch hilfreich für ne gescheite Lösung
:D Tu quoque fili? (Kenn ich aus Asterix)
ZitatDer Grund und der Zweck für die ganze Aktion wär vielleicht noch hilfreich für ne gescheite Lösung
Hmm, ja und nein:
Ich sehe das global: warum nicht in 90% aller Datumsfelder eine vernünftige Lösung.
Da wäre das Input Translation schick gewesen - klappt aber nicht. Daher eben Exiting.
Hintergrund: User klopft schnell mal Daten in eine Maske, und das soll so schnell wie nur möglich erfolgen.
Aber der eigentliche Fragesteller wird eh staunen wenn er sieht, wie sich sein Thread entwickelt hat ;D
Matthias