Domino 9 und frühere Versionen > ND6: Entwicklung

Kontrollkästchen begrenzen?

(1/2) > >>

axelot:
Hallo zusammen,

ich habe ein Feld (Kontrollkästchen) das 33 Einträge hat, die aktiviert werden können.
Wie verhindere ich, das mehr als 7 angeklickt werden können. Ist eine Lösung mit Optionsflächen besser (obwohl hier nicht mehr als 7 Einträge je Feld stehen dürfen.

Ich hoffe, Ihr habt hier eine gute Idee für. Vielen Dank

koehlerbv:
Wenn Du begrenzen möchtest, kannst Du das zum Beispiel über das PostRecalc-Event machen:
Für das Feld stellst Du ein, dass die Felder bei Schlüsselwortänderung aktualisiert werden sollen. Jegliche Änderung an den Kontrollkästechen triggert nun das PostRecalc-Event.
Im Event selbst zählst Du die Elemente Deines Kontrollkästchen-Feldes (mit Ubound (DEINFELD)) , bei mehr als 7 gibt es Gemecker.
Du kannst das dann auch noch ausbauen, und zum Beispiel nach dem Gemecker den zuletzt gewählten Wert wieder entfernen (in dem Du Dir im PostRecalc jeweils den letzten Feldinhalt merkst).

HTH,
Bernhard

axelot:
Hallo Bernhard,

zunächst Danke für Deinen Tipp. Allerdings komme ich hier trotz Notes Hilfe nicht weiter und weis leider nicht wie in

Sub Postrecalc(Source As Notesuidocument)
   UBound ( Dim maxima(2)
   Print Ubound(maxima)
End Sub

die UBound Funktion richtig einsetzten kann. Hier reichen meine Kenntnisse einfach nicht aus. Werde mir dann wohl auf andere Weise helfen müssen...

Glombi:
Sub Postrecalc(Source As Notesuidocument)

if Ubound( Source.Document.DeinFeldname ) > 6 then
msgbox "Bitte nicht mehr als 7 Optionen wählen!",0+16,"Hinweis"
end if

End Sub


Damit nicht gespeichert werden kann:

Sub Querysave(....)

if Ubound( Source.Document.DeinFeldname ) > 6 then
msgbox "Bitte nicht mehr als 7 Optionen wählen!",0+16,"Hinweis"
continue = false
exit sub
end if

End Sub



Andreas

axelot:
Hallo Andreas,
nach diesem Hinweis hätte es ja eigentlich klappen müssen, aber es ist mir ja schon fast peinlich.... es funktioniert leider nicht. Nachfolgendes habe ich jetzt eingegeben, aber ich kann immer noch alle 34 Kästchen im Feld Bewertung.... anklicken....
Sub Postrecalc(Source As Notesuidocument)
If Ubound( Source.Document.Bewertung_Faehigkeit1 ) > 6 Then
Msgbox "Bitte nicht mehr als 7 Optionen wählen!",0+16,"Hinweis"
End If
End Sub

und

Sub Querysave(Source As Notesuidocument)
If Ubound( Source.Document.Bewertung_Faehigkeit1 ) > 6 Then
Msgbox "Bitte nicht mehr als 7 Optionen wählen!",0+16,"Hinweis"
continue = False
Exit Sub
End If
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite