Zeichenanzahl

[OliverII]

Hallo Zusammen,

habe mal wieder eine Frage:

Habe eine Inputbox bei der ich die einzugebenden Zeichen begrenzen möchte:
------------------------------         
inputr = Inputbox ("Grund für die Änderung des Feldes --> erledigen bis:", "Sie haben das Feld -erledigen bis- geändert...")    
         doc.userReason = inputr
         datum_old = doc.TaskDuedate_old
--------------------------------

Ist es möglich, die Inputbox über einen Scriptbefehl zu begrenzen???
Formelmodus funktioniert es aber ich bekomme es im Script nicht gebacken! @If(@Length(xy)>50;@Failure("Hinweistext!");@Success)

Grüße Oliver
 

[Glombi]

Du musst die Script Funktion len verwenden.

Andreas

[Thomas Schulte]

if len(input)>50 then
Fehler Message
Goto inputbox...
end if

[OliverII]

super - vielen DANK!
Das werde ich gleich versuchen..............

[OliverII]

kenn mich im script absolut nicht aus und versuch mich gerade ein wenig einzulesen!
Habe jedoch noch große Schwierigkeiten damit.

Könnt Ihr mir deshalb evtl. nochmals helfen?
Könntet Ihr mir sagen was ich da falsch mache und vor allem warum?
Habe auch mal in der LN-Hilfe nachgeschaut, komme jedoch nicht damit klar.....

..............................................
inputr = Inputbox ("Grund für die Änderung des Feldes --> erledigen bis:", "Sie haben das Feld -erledigen bis- geändert...")    
doc.userReason = inputr
If Len(inputr)>50 Then
Fehler Message
Goto Inputbox
      End If
............................................

[koehlerbv]

inputr = Inputbox ("Grund für die Änderung des Feldes --> erledigen bis:", "Sie haben das Feld -erledigen bis- geändert...")    
doc.userReason = inputr
If Len(inputr)>50 Then
Fehler Message
Goto Inputbox
      End If

Was ist "Fehler Message" ?
Wo ist das Label "Inputbox" definiert ?
Warum speicherst Du eine ggf. zu lange Eingabe schon in das Dokument ?

Vor allem: Was willst Du überhaupt wissen ? Die eigentliche Frage geht mit irgendwie ab ...

Bernhard

[rar]

Hi,
Fehler Message und Goto Inputbox kannst du so nicht schreiben.
Fehlermeldungen gibt man mit Msgbox (siehe Designerhilfe) aus.
Und wenn du mit Goto irgendwo hin hüpfen möchtest , brauchst du ein label dass Notes weiß, wo es hin soll

zB.:

Code

hierhin:   '<---- das ist das label
inputr = Inputbox ("Grund für die Änderung des Feldes --> erledigen bis:", "Sie haben das Feld -erledigen bis- geändert...")    
If Len(inputr)>50 Then
  Msgbox
  Goto hierhin
End If
doc.userReason = inputr

(Abspeichern solltest du das Doc dann aber auch.)

HTH

[Glombi]

Hier mal was ohne goto 

defaultvalue = ""
While inputr = "" Or Len(inputr) > 50
      inputr = Inputbox ("Grund für die Änderung des Feldes --> erledigen bis:", "Sie haben das Feld -erledigen bis- geändert...", defaultvalue)   

              If Len(inputr)>50 Then
         Msgbox "Bitte maximal 50 Zeichen eingeben!",0+16,"Fehler"
         defaultvalue = Left$(inputr,50)
   Elseif  inputr = ""  Then
         Msgbox "Bitte eine Begründung eingeben (maximal 50 Zeichen)!",0+16,"Fehler"
   End If
Wend
   
doc.userReason = inputr
   

Andreas

[Thomas Schulte]

Stimmt ist eindeutig schöner.

[rar]

3 Schönheitspunkte für Andreas. 

[Glombi]

Danke schön 


Ich bin aber kein Goto Hasser muss ich gestehen. Aber für Oliver2 ist es vielleicht hilfreich...

Andreas