Notes/Domino 4 and 5 Forum

Hi,

I get the error 'object variable not set' when i click on a button to run this code. Any advice? :

Sub Click(Source As Button)
Dim session As New NotesSession
Dim tempdb As NotesDatabase
Dim tempServerName As NotesName
Set tempdb = session.CurrentDatabase
Set tempServerName = session.CreateName(tempdb.Server)
Dim db As New notesdatabase(tempServerName.common,"Apps\WorkInstruction.nsf")

Dim ws As New notesUIworkspace
Dim view As notesview
Dim doc As notesdocument
Dim uidoc As notesUIdocument
Dim num, ans As Integer
Dim wino As String
Dim box As Long
Set uidoc = ws.CurrentDocument
Set doc=uidoc.document

wino=uidoc.fieldgettext("wicnno")
Set view=db.getview("test")
num=view.FTSearch(wino,1)

If (num =0) Then
box& = MB_OK + MB_ICONSTOP + MB_APPLMODAL
ans% = Messagebox ("THIS WI IS NOT AVAILABLE IN RECORD", box&, "SEARCH RESULT")
If (ans = 1) Then
Call uidoc.fieldsettext("wicnno","")
Call uidoc.gotofield("wicnno")
Call uidoc.fieldsettext("process","")
Call uidoc.fieldsettext("wi","")
Call uidoc.fieldsettext("title","")

End If

Else
Set doc=view.getdocumentbykey(wino,True)
Call uidoc.fieldsettext("wi",doc.wi(0))
Call uidoc.fieldsettext("title",doc.title(0))
Call uidoc.fieldsettext("area",doc.area(0))
Call uidoc.fieldsettext("process",doc.process(0))

End If
End Sub