Solved

Excel type interface for Lotus Notes database.

Posted on 2006-11-07
2
192 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

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

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

Suggested Solutions

Lack of Storage capacity is a common problem that exists in every field of life. Here we are taking the case of Lotus Notes Emails, as we all know that we are totally depend on e-communication i.e. Emails. This article is fully dedicated to resolvin…
Article by: Rob
Notes 8.5 Archiving Steps and Tips This article covers setting up a Notes archive, and helps understand some of the menu choices making setting up and maintaining a Notes archive file easier.
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

770 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