Domino 9 und frühere Versionen > ND6: Entwicklung

Zeichenanzahl

<< < (2/3) > >>

koehlerbv:

--- Zitat von: OliverII am 12.08.05 - 14:49:09 ---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

--- Ende Zitat ---

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
--- Ende Code ---

(Abspeichern solltest du das Doc dann aber auch.)

HTH

Glombi:
Hier mal was ohne goto  ;D

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.  ;)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete