Weia, ist das kompliziert ::)
Ich habs nun (glaube ich) einfacher gestaltet....
Eine Rahmengruppe ("indexTermine"), Links eine Maske mit DatumPicker, ein Datumsfeld, ein Namensfeld und eine Schaltfläche "Speichern".
Rechts meine Kalenderansicht.
Ich kann nun Termine anlegen und sie werden auch sofort angezeigt, wenn ich auf die Schaltfläche klicke:
@Command([FileSave]);
@SetTargetFrame("main");
@Command([OpenFrameSet]); "indexTermine");
Im DatumsFeld und im NamensFeld muss nun ein Wert eingegeben werden, daher hab ich als Eingabevalidierung
@If("eDatum="");@Failure("Datum auswählen");@Success)
Genau das gleiche hab ich mit dem Namensfeld gemacht
@If("eName="");@Failure("Name auswählen");@Success)
Klick ich nun ohne was auszuwählen auf die Schaltfläche "Speichern" greift auch die Eingabevalidierung, danach kommt aber sofort die Meldung "Möchten Sie dieses Dokument speichern".
Wie krieg ich nun diese Meldung weg bzw wo versucht das Programm, das Dokument zu schließen? Denn nach der EingabeValidierung sollte es doch eigentlich im Editmodus bleiben, oder?
Sorry das ich das ganze so kompliziert mach, aber ich kanns einfach nicht besser *heul* ;)
PS: Wenns irgendwie mit Formelsprache geht, dann nehm ich das lieber als Script...
Grüsse Micha
Moin Axel,
Ich hab das nun in Script umgeschrieben.... Hab also nur noch folgenden Code:
Im Masken-QuerySave
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If Source.FieldGetText("eDatum") = "" Then
Messagebox "Datum auswählen",26,"Fehler"
Call Source.GotoField("eDatum")
Continue = False
Exit Sub
End If
If Source.FieldGetText("eName") = "" Then
Messagebox "Name auswählen",26,"Fehler"
Call Source.GotoField("eName")
Continue = False
Exit Sub
End If
End Sub
und im Button "Speichern":
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.Save
End Sub
Wenn nun was nicht ausgefüllt ist, krieg ich immer die Meldung:
"NotesUIDocument: Save cancelled"
Ist mir ja schon klar, aber warum gibt er die Meldung aus??
Micha