Wert eines Radiobuttons in Abhängigkeit von Kontrollkästchen zuweisen

[kboss]

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!

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

[Semeaphoros]

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.

[kboss]

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.

[Axel]

   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

[koehlerbv]

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

[kboss]

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!

[Semeaphoros]

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

[Axel]

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

[Semeaphoros]

Jo, Du hast recht, das ist ein 6er Feature, sorry.

[kboss]

  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!