Autor Thema: Wert eines Radiobuttons in Abhängigkeit von Kontrollkästchen zuweisen  (Gelesen 2704 mal)

Offline kboss

  • Frischling
  • *
  • Beiträge: 4
Habe folgendes Problem:

In einer Maske habe ich ein Kontrollkästchen "Useraccount" definiert mit Vorgabewert "0" für deaktiviert.

Dazu gibt es in der Maske eine Optionsschaltfläche "Account_Bearb".
Diese ist definiert ohne Vorgabewert mit Auswahl eingeben (eine pro Zeile):
Einrichten oder | 1
Löschen | 2
Ändern | 3

Wenn ich nun das Kontrollkästchen aktiviere, soll die Option 1 ausgewählt werden, wenn ich es deaktiviere soll wieder keine Auswahl getroffen sein.
Im Event "Exciting" habe ich dazu folgenden Code eingegeben:

Sub Exiting(Source As Field)
   Dim uiws As New notesuiworkspace
   Dim noteUIDoc As notesuidocument
   Set noteUIDoc = uiws.currentdocument
   
   If noteUIDoc.Fieldgettext("Useraccount") = "0" Then
      Call noteUIDoc.FieldSettext("Account_Bearb","")
   Else
      Call noteUIDoc.FieldSettext("Account_Bearb","Einrichten oder ")
   End If
   noteuidoc.refresh
End Sub

 ??? Funktoniert leider nicht!!??!?

Das gleiche auch bei folgendem Versuch:
   If noteUIDoc.Fieldgettext("Useraccount") = "0" Then
      Call noteUIDoc.FieldSettext("Account_Bearb","0")
   Else
      Call noteUIDoc.FieldSettext("Account_Bearb","1")
   End If

Es tut sich in der Maske jedoch überhaupt nichts!

 :D Wer hat eine Idee, woran das liegt?? Ich bin ratlos!

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
So ganz verstehe ich das nicht, was Du da machen willst. A-Bär:

Deine Optionsschaltfälche verwendet Aliasse, heisst, dass die Werte, die im Feld drinstehen, nicht die angezeigten, sondern die Aliaswerte eingetragen werden. In dem Sinne musst Du auch beim Setzen der Felder die Alias-Werte und nicht die Anzeige-Werte verwenden.
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline kboss

  • Frischling
  • *
  • Beiträge: 4
Vielen Dank für Deine Antwort.

Die Alias-Werte sind wohl die Werte rechts vom   |  .
Daher habe ich jetzt mal eine 1 als Wert gesetzt, wenn das Kontrollkästchen aktiviert wird.
Welcher Wert ist denn für "keine Auswahl" vorzugeben?
0 oder Null.

Was mich stutzig macht, dass gar nichts passiert, wenn das Kontrollkästchen aktiviert oder deaktiviert wird. Auch mit dem Debugger wird keine Aktivität angezeigt.

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
   If noteUIDoc.Fieldgettext("Useraccount") = "0" Then
      Call noteUIDoc.FieldSettext("Account_Bearb","0")
   Else
      Call noteUIDoc.FieldSettext("Account_Bearb","1")
   End If


Hi,

das hier funktioniert. Du musst zusätzlich bei dem Feld "Account_Bearb" die Option "Auswahl bei Dokumentenaktualisierung aktualisieren"


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Welcher Wert ist denn für "keine Auswahl" vorzugeben?
0 oder Null.

Wurde keine Auswahl getroffen, ist das Feld leer (enthält einen Leerstring).

Bernhard

Offline kboss

  • Frischling
  • *
  • Beiträge: 4
Habe Deinen Code eingesetzt, funktioniert nicht.
Deine Lösung hatte ich schon mal und dachte auch, dass es fuinktionieren müsste. Tut es nicht.
Kann das an irgendwelchen anderen Einstellungen liegen. Wie gesagt auch beim Debuggen, sollte er eigentlich in den Code springen, wenn das Kontrollkästchen den Focus verliert. Aber auch da verzweigt er nicht. So ganz verstehe ich das alles nicht.

Wenn ich jetzt nicht mehr direkt antworte, dann sorry, aber ich bin jetzt bis dienstag unterwegs.
So long!

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Hast Du unter dem Carlson-Reiter des Optionenfeldes die Angabe "Run Exciting/OnChange Events after value change" angehakelt?
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Hi,

ich hab's mal auf die Schnelle nach deinen Angaben nachgebaut. In meiner Demo läuft das Ganze. Ich hab dir die Demo mal angehängt.

So sieht der Exiting - Event des Useraccount - Feldes aus:
Code
Sub Exiting(Source As Field)
	
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	
	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document
	
	If doc.Useraccount(0) = "1" Then
		doc.Account_Bearb = "1"
	Else
		doc.Account_Bearb = ""
	End If  'If doc.Useraccount(0) = "1" Then
	
End Sub


Sonst sind keine weitere Optionen gesetzt.


Hast Du unter dem Carlson-Reiter des Optionenfeldes die Angabe "Run Exciting/OnChange Events after value change" angehakelt?

Bin ich blind  ???   Ich habe diese Option bei mir nicht gefunden.  Kann das ein 6er Feature sein ?

Axel
« Letzte Änderung: 29.10.04 - 21:46:09 von Axel »
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Jo, Du hast recht, das ist ein 6er Feature, sorry.
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline kboss

  • Frischling
  • *
  • Beiträge: 4
 :) Hallo Leute,

vielen Dank für Eure Tips und Eure Mitarbeit. Das Problem ist gelöst. Die Beispieldatenbank von Axel funktioniert so.
Das Problem war, ich hatte das Formular mit Kontrollkästchen und Optionsschaltfläche auf der Grundlage der Memo-Maske in der Mail-Schablone erstellt.
Durch die Vielzahl der Funktionalitäten klappt das in dieser Maske - warum auch immer - nicht.
Jetzt habe ich es mit einer eigenen Maske realisiert und dann funktionieren auch Eure Lösungsvorschläge.
SUPER und tschüss!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz