Domino 9 und frühere Versionen > Administration & Userprobleme

Abfrage beim Abspeichern (Datum)

(1/2) > >>

mmustermaus:
Hallo,

ich habe in einer Notes Maske ein Feld eingebaut das beim Abspeichern das aktuelle Tagesdatum einfügt. Jetzt versuche ich gerade eine Abfrage einzubauen das WENN irgendein Datum bereits gesetzt ist ich beim abspeichern gefragt werde ob das Tagesdatum gesetzt werden soll oder ob das bereits vorhandene Datum beibealten werden soll.

Hat mir hierzu evtl. einer eine schnelle und kurze Lösung? Lotsu Script wäre schön

Vielen Dank im voraus

-------------------------------------------------------------------------------
If Source.FieldGetText("Datum") != "" Then
Messagebox "Soll das aktuelle Tagesdatum in das Feld ... gesetzt werden?"
Source.GotoField("Datum") 'Zum Feld springen
........

weiter weiß ich nicht  weiß auch nicht ob das richtig ist.
----------------------------------------------------------------------------------

klaussal:
Der Ansatz ist doch schon ganz gut. Und im ELSE-Zweig setzt du dann das Datum.

Das u.a. Beispiel muss natürlich vom Text her angepasst werden. Ich war zu  faul dazu...  ;D

--- Code: ---varDummy = ws.Prompt( PROMPT_YESNO, "Löschung", "Sie wollen ein Dokument löschen. " _
& Chr(13) & "Möchten Sie wirklich fortfahren ?")
If Not Cstr(varDummy) = "1" Then
Exit Sub
End If
--- Ende Code ---

mmustermaus:
Hi Klaus,

kann ich Deinen Code (nach der Anpassung direkt unter meinen Code einfügen?
Sorry aber ich verstehe leider nicht alles von Deinem Code.
Wenn ich es richtig verstehe setze ich eine Variable und hinterlege den Code, der dahinter steht.
Dieser fragt mich ab ob ich das Tagesdatum löschen möchte, dann noch eine zweite Abfrage ob ich wirklich fortfahren möchte. Wo wird aber gefragt ob ich das bereits vorhande Datum beibehalten möchte.

Sorry bin leider nicht so fit in der Lotus Script Programmierung :(

klaussal:
Auf die Schnelle:


--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim varDummy As Variant

Set db = session.currentDatabase
Set uidoc = ws.currentDocument
Set doc = uidoc.document

If Trim(doc.datum(0)) <> "" Then
varDummy = ws.Prompt( PROMPT_YESNO, "Löschung", "Datum behalten ? " _
& Chr(13) & "Wählen ?")
If Not Cstr(varDummy) = "1" Then
doc.datum = hier muss jetzt das neue Datum rein
End If
End If
End Sub
--- Ende Code ---

Das Datum geht dann mit DateTime.

mmustermaus:
Hi Klauss,

habe nun folgendes eingefügt, leider kommt jetzt die Meldung Type mismatch

----------------------------------------------------------------
If Trim(doc.datum(0)) <> "" Then
varDummy = ws.Prompt( PROMPT_YESNO, "Löschung", "Datum behalten ? " _
& Chr(13) & "Wählen ?")
If Not Cstr(varDummy) = "1" Then
     doc.datum = Today      
   End If
End If
----------------------------------------------------------------

Eine Idee was ich falsch gemacht haben könnte?

Navigation

[0] Themen-Index

[#] Nächste Seite