Fehler mit @Soundex und Evaluate

[oxyd21]

Servus,

ich steh irgendwie absolut auf dem Schlauch. Mein @Soundex gibt keine richtiges Ergebnis zurück, sondern strTemp ist nur ?000. qry enthält den richtigen String.

Sieht vielleicht jemand den Fehler?

Grüße, Michael

Code

	Public Function checkPhonetic(db)
		
		Dim strTemp As Variant
		Dim strTemp2 As Variant
		Set collection = createCollection(db)
		Set doc = collection.GetFirstDocument
		Erase strContactList
		Dim qry As String
		Dim qry2 As String
		
		While Not(doc Is Nothing)
			qry = |@Soundex(| + doc.LastName(0) + |)|
			strTemp = Evaluate ( qry, doc)
			
			qry2 = |@Soundex(| + doc.Firstname(0) + |)|
			strTemp2 = Evaluate ( qry2, doc)
			
			If Not(Iselement(strContactList(strTemp(0)))) Then
				strContactList(strTemp(0))=strTemp2(0)
			Else
				If (Iselement(strContactList(strTemp(0)))) Then
					'Messagebox strTemp(0),,doc.fullname(0)
					If (strContactList(strTemp(0))=strTemp2(0)) Then
						'Messagebox strTemp(0),,doc.fullname(0)
							'Call doc.ReplaceItemValue("Doublette4","4")	
							'Call doc.Save (True,True)

					End If
				End If	
			End If
			Set doc = collection.GetNextDocument(doc)
		Wend
	End Function

[Glombi]

Es muss
qry = |@Soundex("| + doc.LastName(0) + |")|

heissen, also mit " ... "

Andreas

[oxyd21]

Danke.