Autor Thema: input validation feld voll feld leer  (Gelesen 3604 mal)

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: input validation feld voll feld leer
« Antwort #20 am: 03.07.02 - 12:54:08 »
Hi Daniela,

versuch mal damit:

If (Source.FieldGetText("mail_sent_3") = "") Or (Source.FieldGetText("mail_sent_2") = "") Then    
Messagebox "send document to next or close document with close button !!!"    
Continue = False  
Exit Sub    
End If    

Gruss

Axel

« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline luna

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.362
  • Geschlecht: Weiblich
  • mein name ist hase...
    • sixtnix homepage
Re: input validation feld voll feld leer
« Antwort #21 am: 08.07.02 - 13:32:39 »
hallo axel,

also, ich habs grad ausprobiert, musste noch eine kleine aenderung machen (AND statt OR), und hab alles nochmal durchgetestet. jetzt gehts. ich hab die rolle orange (da das IMMER der ersteller ist) in die validierung als formel reingeschrieben, und alles andere nun als script im querysave.

so sieht jetzt also meine formel aus:




Sub Querysave(Source As Notesuidocument, Continue As Variant)  
     
     If RoleEnabled("") Then  
           
           If Source.FieldGetText("cell_availab") = "" Then  
                 Messagebox "enter a cell availability !!!", 16, "Message Alert"  
                 Continue = False  
                 Exit Sub  
           End If  
           
           If Source.FieldGetText("date_done") = "" Then  
                 Messagebox "enter a date !!!", 16, "Message Alert"  
                 Continue = False  
                 Exit Sub  
           End If  
           
           If (Source.FieldGetText("mail_sent_3") = "") And (Source.FieldGetText("mail_sent_2") = "") Then  
                 Messagebox "send document to next or close document with close button !!!", 16, "Message Alert"  
                 Continue = False  
                 Exit Sub  
           End If  
           
' Hier können weitere Validierungen stehen  
           
     End If  
     
     
     If RoleEnabled("[pink]") Then  
           
           If Source.FieldGetText("production") = "" Then  
                 Messagebox "enter production !!!", 16, "Message Alert"  
                 Continue = False  
                 Exit Sub  
           End If  
           
           If Source.FieldGetText("mail_sent_4") = "" Then  
                 Messagebox "close document !!!", 16, "Message Alert"  
                 Continue = False  
                 Exit Sub  
           End If  
           
' Hier können weitere Validierungen stehen  
           
     End If  
End Sub




vielen herzlichen dank nochmal fuer deine hilfe. das ist jetzt echt super geworden.

gruss,
daniela  ;D
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
im moment in mutterschutz

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz