While I recognize that you're experiencing the problem using automation from
VBA, you're still issuing commands to directly to Domino. I would think that
people more familiar with the Domino programming model would be better able
to help than people familiar with VBA.
YMMV, though.
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"Peter Neumaier" <Peter.Neumaier@gmail.com> wrote in message
news:98284637.0504020824.4b7a20c9@posting.google.c om...[color=blue]
> Hi Douglas,
>
> thank you for your answer, but I think that my problem is more VBA and
> ACCES than it is to domino databases.
>
> So the only problem I have to solve is, how to use a default password
> when accessing the domino database ...
>
> For sure I found documentation on lotus.com, but there isnt anything
> regarding my problem
>
>
> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
> news:<0cCdnUdLW-09ddDfRVn-vA@rogers.com>...[color=green]
>> I think you'll have more luck asking in a newsgroup related to Notes or
>> Domino, as opposed to a database group.
>>
>> Have you tried looking for documentation at
http://www.lotus.com?
>>
>> --
>> Doug Steele, Microsoft Access MVP
>>
http://I.Am/DougSteele
>> (no e-mails, please!)
>>
>>
>>
>> "Peter Neumaier" <Peter.Neumaier@gmail.com> wrote in message
>> news:1112392663.538812.206890@g14g2000cwa.googlegr oups.com...[color=darkred]
>> > Hi,
>> > I am trying to read data from a domino databases (located in our LAN
>> > not on my local machine!) from my access project. I pass a code to the
>> > function checkCodeInDomino to be verified on Domino. On my local
>> > machine everything went fine, but suddenly there came up following
>> > problem:
>> >
>> > I was coding and testing with the code below, and I have never been
>> > asked for my lotus password, now when starting my function, there comes
>> > a box up (dont know why this changed?) where I have to enter my lotus
>> > password, when entering my notes password, my function works fine.
>> > But I have to distribute my application to other clients and users, and
>> > it doesnt make sense to use my password.
>> > So I received a public account from our domino admin, for all of us.
>> > When using "DomSession.Initialize (publicLotusPassword)" there are no
>> > errors.
>> > But the problem is, that that's not a real solution for my
>> > appliacation, because each user has to enter his own password, I dont
>> > want that,
>> > but entering a hard coded password doesnt work, because the password
>> > that is asked is referring to
>> > "c:\lotus\notes\data\wk\$userName.ID"
>> >
>> > Is there any way to use "DomSession.Initialize" in some kind of a
>> > "generic" way, so that any other user can use the function
>> > "checkCodeInDomino"?
>> > Please remember that the domino database is always on a remote machine
>> > and
>> > "'DomSession.InitializeUsingNotesUserName($Adm in, $Pass)"
>> > does not work!
>> >
>> > Here is my code...
>> >
>> > Function checkCodeInDomino(checkCode As Long)
>> > On Error GoTo Err_Quit_Click
>> >
>> > Dim DomDir As NotesDatabase
>> > Dim DomContacts As NotesView
>> > Dim DomDoc As NotesDocument
>> > Dim StrName As String
>> >
>> > Dim DomSession As NotesSession
>> > Dim serverName As String
>> > Dim databaseFile As String
>> >
>> > Set DomSession = CreateObject("Lotus.NotesSession")
>> > serverName = "myServerName"
>> > databaseFile = "myFile"
>> >
>> > DomSession.Initialize
>> >
>> > Set DomDir = DomSession.GetDatabase(serverName, databaseFile)
>> > Set DomContacts = DomDir.GetView("myView")
>> > Set DomDoc = DomContacts.GetFirstDocument
>> >
>> > While Not (DomDoc Is Nothing)
>> >
>> > If DomDoc.GetItemValue("Dealer_Code")(0) = checkCode Then
>> > checkCodeInDomino = True
>> > Exit Function
>> > End If
>> > Set DomDoc = DomContacts.GetNextDocument(DomDoc)
>> > Wend
>> >
>> > checkCodeInDomino = False
>> >
>> > Exit_Quit_Click:
>> > Exit Function
>> >
>> > Err_Quit_Click:
>> > MsgBox Err.Description
>> > Resume Exit_Quit_Click
>> >
>> > End Function
>> >
>> > Thank you for your attention!
>> >
>> > Peter Neumaier
>> >[/color][/color][/color]
