Hallo zusammen,
habe bisher eine Eingabeprüfung starr in der Datenbank
...
if doc.Status(0)="" then fehler=fehler+"Status nicht gefüllt"
..
if fehler<>"" then
messagebox "Es sind folgende Fehler aufgetreten:"+chr$(13)+fehler
continue =false
exit sub
....
Würde nun gerne die Eingabeprüfung über Eingabeprüfungsdokumente vornehmen, die z.B. den Feldnamen, den Operator und den Inhalt beinhalten
Gibt es eine Möglichkeit das Script "variabel" aufzubauen?
Hätte mir das so gedacht:
....
Dim pdoc As NotesDocument
Dim col As NotesDocumentCollection
Dim view As NotesView
Dim fehler$, temp$
Set view = db.getView("view.eingabepruefung")
Set col = view.GetAllDocumentsByKey(doc.form(0))
Set pdoc = col.GetFirstDocument
While Not pdoc Is Nothing
temp = "doc."&pdoc.Var1(0)&"(0) "&pdoc.Op1(0)&" "&pdoc.Formel1(0)
If temp Then
Fehler = Fehler + pdoc.Fehlertext(0)+Chr$(13)
End If
Set pdoc=col.GetNextDocument(pdoc)
Wend
if fehler <>"" then
......
Funktioniert wie erwartet auch nicht. Jemand eine Idee, wo ich den Denkfehler habe, oder funktioniert das gar nicht.
Das das mit Evaluate und Formelbedingungen funktioniert weiss ich, würde ich aber eigentlich recht ungern verwenden.