GetDocumentByKey not working - please help!

[Pamy]

I'm trying to retrieve userprofile form that matches the email of the current document. If there is no matching email, the system should be able to display a blank form.Below is the coding.
However, the code always run to
Set uidoc = ws.ComposeDocument("","","UserProfile&quot
even though i know there is matching email found.

==========================================
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim Email As String

Set uidoc = ws.CurrentDocument
Email= uidoc.FieldGetText( "text" )

Set db = s.CurrentDatabase
Set view = db.GetView("UserProfile&quot
Set doc = view.GetDocumentByKey(Email)

If doc Is Nothing Then
Set uidoc = ws.ComposeDocument("","","UserProfile&quot
Else
Set uidoc = ws.EditDocument(True,doc)
End If

 

[AmazingDominik]

Hi,

At first glance the code looks OK.
So we need to take a look at the key..

Have you checked that the FIRST column in the view "UserProfile" is sorted AND contains the field you are looking for? If not, the lookup will fail.

You can also let a MSgbox display the "Email" variable to take a look if the key is retrieved correctly. Maybe you will need to trim to get rid of spaces or so.



Kind regards,

Dominik Malfait
dominik@amazingit.com

http://www.amazingit.com