Solved

Writing from Access to form in Lotus Notes

Posted on 2002-05-08
12
270 Views
Last Modified: 2013-12-18
Hello experts.  

I am trying to write from a table in Access 2000 to a form in a shared mailbox in Lotus Notes version R5.  

I would like it to look at the first record on a table, write to certain fields on a form in Access, then look to the next record to see if there is a match, if not, then the form will be sent out via Lotus Notes, if there is a match, it will continue to populate the appropriate fields.  This will continue to the end of the recordset.

Thanks for the help!!!
0
Comment
Question by:pucktarget2
  • 4
  • 4
  • 4
12 Comments
 
LVL 10

Expert Comment

by:zvonko
ID: 6997084
Start looking at this and then redefine your question:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/6704c9ebb583859f8525694d004e51b0?OpenDocument

Perhaps is your question biger part better located here:
http://www.experts-exchange.com/msaccess/

Good luck,
zvonko

0
 
LVL 9

Accepted Solution

by:
Arunkumar earned 100 total points
ID: 6997085
Hi !

I have a sample script try this... create an agent with the following code....Make modifications to all the commented values.


Option Public
Uselsx "*lsxodbc"


Sub Initialize
     Dim ss As New NotesSession
     Dim db As NotesDatabase    
     Dim view As NotesView
     
     Dim prodoc As NotesDocument
     Dim newdoc As NotesDocument
     Dim olddoc As NotesDocument
     
     Dim con As New ODBCConnection
     Dim qry As New ODBCQuery
     Dim result As New ODBCResultSet
     
     Set db = ss.CurrentDatabase
     
     dsn$ = "DSN NAME"
     usrname$ = "USERNAME"
     passwrd$ = "PASSWORD"
     
     Print "Initializing Db connection.  Please wait....."
     
     If Not con.ConnectTo ( dsn$ , usrname$ , passwrd$) Then
          Print "Not connected .....Exiting........!"
          Msgbox "Not connected " , , "Exiting"
          Print
          Exit Sub
     Else
         
          Print "Connection to Db established successfully !"          
         
          Set qry.Connection = con
          Set result.Query = qry          
         
          'Change the query to yours accordingly from Access
          qry.SQL = "SELECT DISTINCT C_AREA FROM MPMASTR_TBL"
         
         
          result.Execute
         
          If result.IsResultSetAvailable Then
               i = 1              
               Do                                        
                   
                    result.NextRow
                    area = Trim( result.GetValue("C_AREA") ) ' Column Name to be changed.
                    ' Get as many values and put in variables as needed
                   
                    Set view = db.GetView("(lkupAreas)")   ' A view to sort the notes entries by key (Column Value)
                    Set olddoc = view.GetDocumentByKey(area)
                   
                    If olddoc Is Nothing Then                        
                         Print "Creating New entry in Notes for #" & i                        
                         Set newdoc = db.CreateDocument
                         newdoc.Form = "Areas" ' Your Form name
                         newdoc.Area = area ' Your Field goes here
                         'Add as many field values from the variables gotten above from columns
                         
                         Call newdoc.Save(True, False)
                         Delete newdoc                        
                    Else
                         Print "Updating existing entry in Notes for #" & i
                         olddoc.Area = area
                         Call olddoc.Save(True,False)
                         Delete olddoc
                    End If                                      
                   
                    i = i + 1                      
                   
               Loop Until result.IsEndOfData
               
               Print
               
               result.Close(DB_CLOSE)
               
          End If
         
          Call con.Disconnect
         
     End If              
End sub
==============

Hope this is of some help to start your coding.

Good Luck!
Arun.
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6997086
Oh Zvo!

just in front.
0
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
LVL 10

Expert Comment

by:zvonko
ID: 6997107
I do not see you online in Groove.
Why do you not start it when you are dialed in?



0
 

Author Comment

by:pucktarget2
ID: 6997278
Thanks for the help.  I should be able to test some of this tomorrow when my Oracle connection is fixed (new PC problem, unrelated to question).

0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6997342
I am always connected from home.  I just dont start it Sorry.  Will do it more often okay bud ?
0
 
LVL 10

Expert Comment

by:zvonko
ID: 6997385
OK, but now I go to bed and tomorrow I am for four days away to another town :-)

But afterwards...

Cheerio Arun :-)

By the way: thank you for making me manager in YOUR shared space, Bro :-)
0
 

Author Comment

by:pucktarget2
ID: 7001153
I should be able to try some of this code today.
0
 

Author Comment

by:pucktarget2
ID: 7001162
Hey Arun, I was looking at your code and had a question.  I forgot to mention that this process will be automated (the program will open on a timer in the a.m.).  Will this have an affect on the code or can it still be used as is?
0
 
LVL 10

Expert Comment

by:zvonko
ID: 7014739
OK pucktarget,

give me some more details about your Access data source name table and field names so I can build the LotusScript agent more readable for you.

So long,
zvonko

0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7015259
Nope !

It should not have any effect as long as your server has the dsn setup with the odbc drivers !

Good Luck!
Arun.
0
 

Author Comment

by:pucktarget2
ID: 7021483
Thanks for the help.  I am not really a Notes developer so the help is greatly appreciated.  Mainly I am learning on the fly here.  

Zvonko,

I have a question located on the Access forum for the same topic, I would like you to take those points.  The link is below. There were no responses from anyone in the Access forum anyway.  Thanks for the offer to build but I would like to give it a go and if I have a problem I will post a question rather than asking you to build one for me.  Gotta learn somehow.  THANKS!!!

http://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=msaccess&qid=20298462

0

Featured Post

ScreenConnect 6.0 Free Trial

Discover new time-saving features in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
How to connect (using VBA) to a IBM Notes webmail server 3 238
All incoming messages are coming as read 3 39
Disable Return Receipt In Lotus Notes 15 253
Lotus Domino server 11 65
For users on the Lotus Notes 8 Standard client, this article provides information on checking the Java Heap size and adjusting it to half of your system RAM in attempt to get the Lotus Notes 8.x Standard client to run faster.  I've had to exercise t…
  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question