I cannot seem to find out why I get this error message “File Does Not Exist” Everything appears to be correct.
Any thoughts? (code below) Thanks
Dim session As New NotesSession
Dim collection As NotesDocumentCollection
Set workspace = New NotesUIWorkSpace
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Set db = session.CurrentDatabase
Set collection = workspace.PickListCollection( _
PICKLIST_CUSTOM, _
False, _
db.Server, _
"Global database\NWFVendors.nsf", _
"vwLocationName", _
"Vendor Lookup Window", _
"Please Select a Vendor" )
Subject: RE: PickListCollection “File Does Not Exist”
I believe it means that you can’t access the database at that server and filepath. Did you try getting at it some other way, e.g. opening it manually or via NotesDatabase.Open, to make sure it’s there and you have access?
Subject: RE: PickListCollection “File Does Not Exist”
I guess I am not sure what you mean by this.
Subject: RE: PickListCollection “File Does Not Exist”
Your code tries to access database filepath “Global database\NWFVendors.nsf” on server db.Server. What is the value of db.server at this point? Don’t assume you know – use the debugger to check.
Suppose its value is “Sam”. Is there really a database at filepath “Global database\NWFVendors.nsf” on server Sam? Don’t assume you know – try to open the database using that exact information and find out. Try it in the UI, and try it using:
Dim dbOther as new notesdatabase(db.Server, “Global database\NWFVendors.nsf”)
if not dbOther.isopen then
msgbox “Can’t find database”
exit sub
End If
Subject: RE: PickListCollection “File Does Not Exist”
Andre, as usual a brilliant post! This helped me today. I was having the same problem - as it turns out I needed to be looking for the filepath not the database name (of the current database) - because it’s in a folder! That was it! Thanks!