home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW08_S2.APR / SCRIPT / ApproachDoc / Employee / Body / btnLast.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1996-10-27  |  4.6 KB  |  57 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As BUTTON
  11.     Set Source = Bind(Objectname_)
  12.     On Event Click From Source Call Click
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Click:1:12
  16. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  17. 'Click event for btnLast object.
  18. 'Applies the Find and Sort objects to the DocWindow 
  19. 'using the FindSort method.  It prompts the user to enter an employee's 
  20. 'last name and starts searching after the user enters the info.    
  21. ' * Objects: You must have these objects to run this script:
  22. ' *                   Worksheet object named Worksheet 1
  23. ' * Files: The main table for the current .APR must have
  24. ' * fields named "ID", "Last", and "First".
  25.     
  26.     'Create a DocWindow object.
  27.     Dim MyDocWin As DocWindow
  28.     'Retrieve the active DocWindow.
  29.     Set MyDocWin = CurrentApplication.ActiveDocWindow
  30.     'Create a Table object.
  31.     Dim  MyTable As String
  32.     'Retrieve the name of the main table for the view.
  33.     MyTable = CurrentDocument.Tables(0).TableName
  34.     
  35.     'Collect the find conditions from the user and use them to build
  36.     'a find object.
  37.     Dim Criteria As String        'Store input from the user
  38.     'Prompt user to enter employee's last name.      
  39.     Criteria = Inputbox$("Enter employee's last name", , ,300,300)
  40.     
  41.     'Find records that match the user's input.
  42.     'Create new instance of Find object to search by input last name
  43.     Dim FindLast As New Find (MyTable & ".Last", Criteria)             
  44.     
  45.     'Create new instance of Sort object, sorted by last name.
  46.     'The constant LtsSortAscending indicates the sort direction.
  47.     Dim MySort As New Sort (MyTable & ".last", LTSSORTASCENDING)                      
  48.     'Also sort by first name in ascending order
  49.     Call MySort.Add (MyTable & ".First", LTSSORTASCENDING)
  50.     
  51.     'Find last name based on user's input, sorted by ascending order.  
  52.     'Sort is optional
  53.     Call MyDocWin.FindSort (FindLast, MySort)
  54.     'Show the find results in the worksheet view
  55.     Set CurrentWindow.ActiveView = CurrentDocument.Worksheet~ 1
  56.     
  57. End Sub    'Click event, btnLast object