Accessing a Lotus Notes db with VBA

[batteam]

I have the follwing code but cannot get to compile:

serv = "njros1nap2020"
app = "webchat\iLi\cvcchatlog.nsf"
Dim db As NotesDatabase
Set db = Session.CURRENTDATABASE
Set db = New NotesDatabase(serv,app) I get' Expected: end of statement error' at the '('character before 'serv'.


I also have the code to search Lotus Notes db as:
searchFormula$ = "'((Form = "ITAgentLogEntry") & ITLog_ConversationText != "Sample Logging" ) "

I cannot get the variable searchFormula$ to return any data. It just returns the string itself.

Any assistance that can be provided would be greatly appreciated.

 

[SkipVought]

hi,

Is this Access?

forum705

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[batteam]

Yes, sorry. Its MSAccess 2007.

 

[SkipVought]

Great!

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[batteam]

SkipVought:

Can you provide any assistance? Would appreciate anything you can provide.

 

[batteam]

After much trial and error and a little help from a Lotus db programmer, below is the answer to my question. Note that '@Created' is a field in the Lotus Notes db. This format is useful when the LotusDBSQL OBDC driver is not an option.

varA = "Form = ""ITAgentLogEntry"" & @Created > [" & strInput1 & "] & @Created < [" & strInput2 & "]"


Also, the following Dim's were used:

Dim s As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doccol As NotesDocumentCollection

Dim nsession As NotesSession
Set nsession = CreateObject("Lotus.NotesSession")
Call nsession.Initialize
Set db = nsession.GetDatabase(serv, app) --(server path and name, and file name (.nsf))

Very Important Note: Notice I set 'nsession' to "Lotus.NotesSession', NOT 'Notes.NotesSession'.

I truly hope this syntax helps VBA programmers out there in the future. I spent days on this.