Domino 9 und frühere Versionen > ND7: Entwicklung

Fehler mit @Soundex und Evaluate

(1/1)

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
--- Ende Code ---

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

heissen, also mit " ... "

Andreas

oxyd21:
Danke.

Navigation

[0] Themen-Index