Container inhalt abfragen?

[Ozan]

Hallo,

wie kann ich den Container inhalt abfragen?
So funktioniert das nicht:

If doc.Frage1(0)= "A" or doc.Frage1(0)= "D" then
 a=a+1
end if

[m3]

WTF ist ein "Container"?

[Ozan]

Mit container meine ich ein Feld der mehrere werte beinhaltet.

[m3]

Geht aber prinzipiell so. Etwas mehr Kontext wäre daher nicht schlecht. Von welchem Typ sind die Felder, was sagt der Debugger dazu, ...

[Ozan]

Feld Typ ist Kontrollkästchen( inhalt : A bis D ), der Debugger sagt dass die Abfrage False liefert und so geht der nicht in die schleife rein. Ich habe mir das Feld angeschaut, wenn ich zwei Werte sprich A und D ankreuze und speichere werden diese Werte unterander :

"A"
"D"

abgespeichert.

[m3]

Schon mit einem CStr um den Feldwert probiert?

[koehlerbv]

Das ist doch kein String, sondern ein Array of strings, Martin.

Hilfreich sind ArrayGetIndex oder die Kombination von Join und Instr.

Bernhard

[m3]

Bernhard, ich meinte ja auch Cstr( doc.Frage1(0) ).

[Ozan]

Mit "cstr" ändert sich irgendwie nichts, die schleife ist nicht true und somit gehr der da auch nicht rein. Ich habe nachgeschaut, in der Kontrollkästchen ist folgendes enthalten:

A|A
B|B
C|C
D|D

Wenn hier Mehrfachwerte angeklickt werden z.B "A" und "D", wird das in der Dokument von diese Feld so abgescpeichert:

"A"
"D"

[m3]

Schleife, welche Schleife?
Poste mal ein bißchen den Code rundherum.

[klaussal]

Schleife, welche Schleife?

[Ozan]

Das ist die schleife:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
Dim doc As notesdocument
Set doc = Source.document
Dim a As Integer

If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
 a=a+2  'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if

.....
bis Frage10


End Sub

[koehlerbv]

Ich sehe da keine Schleife.

Liest Du überhaupt, was andere hier antworten??

Bernhard

[m3]

Na bei dem Code würd ich mal eine Fehlerabfrage einbauen, ob doc überhaupt gesetzt ist.

[Ozan]

Falscher Ausdruck, mit schleife meine ich :

If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
 a=a+2  'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if

Die "IF" Anweisung ist nicht true. Weil die Abfrage nicht Richtig ist.

@m3
Habe ich bereits, bei den Fragen 2- 10 wo nur eine Wert abgefragt wird, funktioniert das, nur bei mehrere
nicht.

If doc.Frage1(0)= "A" then
 a=a+1
end if

[m3]

Mit "AND" kann es auch nicht funktionieren, da müsstest Du die Werte Frage1(0) und Frage1(1) checken.

Irgendwie fühl ich mich jetzt langsam gefrotzelt. Dauernd taucht neuer Code auf:

If doc.Frage1(0)= "A" or doc.Frage1(0)= "D" then
 a=a+1
end if

If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
 a=a+2  'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if

Also was jetzt "AND" oder "OR"? Mit "OR" sollte es funktionieren, mit "AND" wird es SO nicht funktionieren.

Und wenn jetzt nicht der "korrekte" Code und eine brauchbare Antwort kommt, bin ich draußen. 

[Driri]

Diese Abfrage ist so generell nicht zielführend bei Mehrfachwerten.

If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
 a=a+2  'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if

Wer sagt Dir denn, daß der Wert immer im Element (0) des Arrays enthalten ist ?

Bernhard hat die entscheidenen Tipps schon geliefert.

[klaussal]

Ich kann's nicht mehr mit ansehen:   

Code

Set doc = Source.document
	Dim a As Integer
	
		
	Forall x In doc.Frage1
				
		If x = "A" Then
			a = a+ 1
		End If
		If x = "B" Then
			a = a+ 1
		End If
		If x = "C" Then
			a = a+ 1
		End If
		If x = "D" Then
			a = a+ 1
		End If
	End Forall

[koehlerbv]

Unelegant, Klaus. Wie es als Einzeiler geht, habe ich ja bereits geschrieben. Aber Ozan kümmert das ja nicht ...

Bernhard

[klaussal]

Das weiß ich auch, aber vielleicht versteht er das so besser .....