Anzahl der Zeichen in einem Textfeld!!!

[voigt]

Hallo zusammen,

ist es möglich in einem Textfeld die max. Anzahl von 88 Zeichen zu setzen???
Sprich der User darf nicht mehr als 88 Zeichen in einem bestimmten Textfeld schreiben.

Außerdem soll ein Zeilenumbruch (er darf nur in eine Zeile geschrieben werden) nicht erlaubt sein.

Wäre nett wenn jemand eine Idee dafür hätte.

Vielen Dank im voraus

Gruß
Steffen

[koehlerbv]

Du kannst das nur nach der Eingabe abprüfen und so ggf. das Speichern verweigern. Bereits während der Eingabe zu verhindern. ist nicht möglich.

Eine Bitte noch: Lass bitte bei Fragen (!) hier die permanenten Ausrufezeichen im Subject weg. Es gibt keinerlei Grund für diese.

Bernhard

[Spalter]

Ich würde mal zumindest die Ausrufezeichen durch Fragezeichen ersetzen - oder?

 

Gruß
Spalter

[Glombi]

Dafür gibt es die Eingabevalidierungsformel.

Während der Eingabe ginge es auch mit der NotesTimer Klasse. So wird es bspw. in der SMS Maske von MRS gemacht.

Andreas

[Roalf]

zu den Ausrufezeichen fällt mir ein schönes Zitat von Terry Pratchett aus "Die Farben der Magie" ein:
"Wer in einem Satz mehr als ein Ausrufezeichen benutzt, hat die Grenze zum Wahnsinn schon soweit überschritten, das er quasi am anderen Ende wieder rauskommt"

[koehlerbv]

@If (@Length (Feld) > 88; @Failure ("Gemecker"); @Contains (Feld; @Newline); @Failure ("Schlimmes Gemecker"); @Success).

HTH,
Bernhard

[koehlerbv]

Hast Du im QuerySave auch Code zu stehen ?

[koehlerbv]

Wenn Du im QuerySave weitere (LS-)Aktionen ausführst, dann kommen die wegen der Eingabevalidierung schon mit dem Dir bekannten Error-Status an.

Wenn  Du also im QuerySave Code ausführst, solltest Du die Feldvalidierung auch gleich per LS ins QuerySave verlagern.

Bernhard

[Glombi]

Für den Fall, dass es Eingabevalidierungen gibt und mit Script ein NotesUIDocument speichert, gehe ich wie folgt vor:

... hier Dim und Set ...

On Error goto ErrorRefresh
call uidoc.Refresh   'erzeugt Fehler bei Eingabevalidierung

On Error goto ErrorHandling   'normales error handling

...
Ende:
Exit Sub

ErrorRefresh:
Resume Ende

ErrorHandling:
msgbox "Fehler: " & (Err) & ": " & Error$
Resume Ende

[koehlerbv]

Da der bestehende Code hier unbekannt ist, wäre das unverantwortlich, hier etwas "fertiges" zu liefern. Und in bestehenden Code darfst Du so völlig ahnungslos prinzipiell nicht eingreifen.

Bernhard

PS: Solch eine Feldvalidierung ist aber eine schöne einfache Einstiegsaufgabe in die LS-Programmierung.

[Thomas Schulte]

Man könnte auch die Lib.appl.validation aus dem !!Help!! einbinden. Damit kann man das dann auch machen. Allerdings setzt das dann doch etwas mehr Kenntnisse in Script voraus.

Aber die eigentliche Prüfung machst du mit LEN(Feld)< X.

[koehlerbv]

Herdt - LotusScript

HTH,
Bernhard

[koehlerbv]

Na, ob Du da die richtige Antwort bekommen hast ? Dann bestellt das Ding doch über die angegebene Website 

Bernhard

[klaussal]

Kann nicht sein. Gib bei denen mal den Begriff LOTUS im Suchfeld ein -> und schon kannst du Bücher bis zum Abwinken bestellen.

PS:
Natürlich haben die keine Bücher VON Lotus, aber ÜBER Lotus 

[koehlerbv]

Alternativ auch
Einführung in die LotusScript-Programmierung

Bernhard

[koehlerbv]

Aus persönlicher Erfahrung kann ich das Buch Patton: Practical LotusScript nur empfehlen. Allerdings ist dies wohl nur noch aus den Staaten zu besorgen (mit Hilfe Amazons).

Bernhard

[Axel]

Hi,

ein weiteres sehr empfehlenswertes Buch wäre die Lotus Notes and Domino 6 Programming Bible

Schau mal hier: Buchrezension


Axel

[koehlerbv]

Wenn man ein umfangreiches Nachschlagewerk bzw. eines für den Überblick haben will: Ja. Aber um damit LS zu erlernen - ich weiss nicht. LS wird in der "Bible" nur angerissen, und es werden Dinge wiederholt, die eh' schon in der DesignerHelp (und dort noch mit Beispielen) beschrieben sind.

Ich empfehle gerne die "Bible", aber für das Erlernen von LS dann doch nicht.

Aber das ist natürlich nur meine subjektive Einschätzung.

Bernhard

[Thomas Schulte]

 'Abfangen von langen Überschriften
   If Len(theString$) > 10 Then
      Msgbox "Die Überschrift darf nicht länger sein als 10 Zeichen!"
      source.GotoField("txtProblemPre")
      Goto ExitOnError
   End If
ExitOnError:
   continue=False
End Sub[/b]


Sobald ich mehr als 10 Zeichen eingebe erscheint auch die Fehlermeldung.
Leider kann ich aber nachdem ich weniger als 10 Zeichen eingegeben habe nie wieder abspeichern. Es passiert danach einfach gar nichts (Maske wird nicht gespeichert).

Nee daran liegt das nicht. Das liegt vielmehr daran das du immer auf continue=false läufst denn schließlich wird diese Anweisung immer ausgeführt.
Also entweder:
'Abfangen von langen Überschriften
   If Len(theString$) > 10 Then
      Msgbox "Die Überschrift darf nicht länger sein als 10 Zeichen!"
      source.GotoField("txtProblemPre")
   continue=False
   End If
End Sub

oder:
   'Abfangen von langen Überschriften
   If Len(theString$) > 10 Then
      Msgbox "Die Überschrift darf nicht länger sein als 10 Zeichen!"
      source.GotoField("txtProblemPre")
      Goto ExitOnError
   End If
exit Sub
ExitOnError:
   continue=False
End Sub

[Mandalor]

notesuidocument ist das frontentdocument
über die kommst du auf die felder
im querysave wird das aktuelle notesuidocument bereits mit "source" übergeben sieh mal in der hilfe unter notesuidocument nach und versuche die feldinhalte auszulesen.
Wenn du continue = false setzt verhinderst dum damit das speicher...