Solved

Excel type interface for Lotus Notes database.

Posted on 2006-11-07
2
187 Views
Last Modified: 2013-12-18
I would like to create a view that I can update. What I am trying to do is update many records with the same data without going into each record. I just need to update the check number for a group of records. A perfect example is Excel were you can put the check number into one roll and then copy that data to other records (rolls) without using any type of form for each row.

0
Comment
Question by:normanwhitfield
2 Comments
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 17891294
Maybe this code will do what you want:
    http:Q_22043023.html#17883885 "Populating fields using picklist - code not working"
0
 
LVL 63

Accepted Solution

by:
SysExpert earned 250 total points
ID: 17891517
You can do this in script or using @ functions.

Here is some code using script.

Dim userProfile As String   , tempDir As String   ,org As String    
      Dim mailLetters As String    
      
      Dim Comment As String, Server As String, MName As String
      
      Dim col As NotesDocumentCollection ' Local only
      
      Dim key As String
      Dim CertDoc As NotesDocument
      Dim CertLocation As String
      Dim CertView As NotesView
      
      Dim ret As Integer, ntyp As Integer
      Dim response As Variant
      
      Set Session = New NotesSession
      Set CurrentDb = Session.CurrentDatabase
      
      On Error Goto errM  ' ' v 1.2
      Call CreateLog
      Set profileDoc = CurrentDb.getProfileDocument("MassPrf")  ' Mass User Reg Profile
      SwVer = " V 2.00C  12/6/05"
      
      DO_PCF_FW=6 '  Set a default account #- change as needed
      
      Do While  (DO_PCF_FW < 1000)  
            response= Inputbox ( "Enter new account)" , "account #","5")
       
            'Syntax  ' InputBox[$] ( prompt [ , [ title ] [ , [ default ] [ , xpos , ypos ] ] ] )
            
            DO_PCF_FW= Cint( response)
            
            If ( DO_PCF_FW  > 1) Or ( Isempty( response) ) Then
                  Msgbox " No Option chosen, please type 0 or 1 . "
                  Exit Sub  
'            Elseif Len(LocalOffice ) >1  Then            '       Messagebox "Please use a single digit ", 0, PROMPT_TITLE
                  
            End If
            
      Loop      
      
      Set col = currentDb.unprocesseddocuments ' selected docs
            
      For x = 1 To col.count
            ret = True
            ' Set reqired properties, else get reg error - Missing Reg  Argument required
            Set doc = col.getnthdocument(x)
             '            
             
            
'             Msgbox Message  '  V 2.00A, added, removed test
            
            If ret <> False Then
                  
            ' make change here to field ased on previous prompt
                        '                               
                        Call doc.save(0,0) ' removed V 1.00A - update status fields
                        
                  Else
                        Goto Done1
                  End If
                  
            Else
                  
                  
            End If  ' ret <> False
            
      Next  ' Doc in Col
      
      Goto Done1
      
      
errM:
      Message =Err & " Err updating InetAddress Main " & ","  & doc.LastName(0) & "," & Error$ & " on line," & Trim$(Str$(Erl))
      Print Message
      ' Call AddToLog(Message, True)
Done1:
      
      Call SaveLog
      
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
Notes Document Link used by IBM Notes is a link file which aids in the sharing of links to documents in email and webpages. The posts describe the importance and steps to create a Lotus Notes NDL file in brief.
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

758 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now